#! /usr/bin/perl
# Sends recap page with ability to remove contents for @Product shopping cart program
require "$ENV{'DOCUMENT_ROOT'}/libcgi/environlib.cgi";
require "$PATH_ROOT/deals/products_and_services/productlib.cgi";
require "/home/storm/sites/webflyer-com-1/public/deals/products_and_services/recaplib.cgi";
# Load necessary info
%recapinfo = &ParseInput; # Decode & Parse into hash
&VerifyID ( $recapinfo{'ID'} ); # Verify ID OK
@order = &LoadOrder ( $recapinfo{'ID'} ); # Load order info
&LoadProduct; # Load product info into %product
if ( !$recapinfo{'submit'} ) { # GET means show recap page
&SendRecap; # Send recap file with info
}
else { # POST means save changes
&RemoveOrds; # Remove checked orders
@order = (); # Init array
@order = &LoadOrder ( $recapinfo{'ID'} ); # Reload order info
&SendRecap; # Resend updated recap
}
# <----- Subroutine: SendRecap ----->
sub SendRecap {
my ( $recap );
$recap = &GetRecap ( \@order ); # get recap html table info
$recap =~ s/>#(\d+)>
sub RemoveOrds {
# Open order file, overwrite
open ORDER, ">$basketsPath/$recapinfo{'ID'}.inf" or &Diagnostic ( "RemoveOrds: 'NO SUCH BASKET $recapinfo{'ID'}'" );
for ( $i=0 ; $i<=$#order ; $i++ ) { # Loop through orders
if ( ! $recapinfo{$i} ) { # Remove checkbox NOT checked
print ORDER "$order[$i]\n"; # Send order record
}
}
close ORDER; # Close order file
}