Home | Deals | News | Store | Community


 Bonus Promotions
 DealWatch
 Mileage Mall
 Frequent Flyer T-Shirts


 Award/Upgrade Index
 Head2Head
 Mileage Converter
 Program Guide
 Program Questions
 Program Timeline
 Ratings & Reviews


 Flight Schedules
 Flight Tracking
 Glossary
 Mileage Calculator


 Ask Randy
 Late-Breaking News
 Travel Information
 View From the Wing


 AirPoll
 Community


 Funnies
 Postcards



WebFlyer Home > Deals > Products & Services

Products & Services

#! /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 }

^top

About Us | Advertising | Contact Us | Copyright | Help | Privacy Policy | Products | Legal

A Frequent Flyer Network site. All rights reserved.