stuck at TRUE/FALSE, pls help

shillong Mon, 16 Aug 2004 09:00:11 -0700

Hi

I am very very new to perl. And after lots of work I did script a perl
file to handle a online form (products order form). However, I am
stuck at a point. I tried my best but could not get thru.


The form is located at: http://www.kevincoffey.com/order.htm

When I select a different shipping adrress, it DOESNOT work!

I gave a RADIO button for : 

Shipping_Address: TRUE=SAME AS ABOVE (i.e. send to adove address)
Shipping ADdress: FALSE = send to Floowing address

And in the followings cript I gave it with a -- if .. else --
statement.. but no use..

Can someone pls help me?

Regards

Babul

And the first perl file is:
===form1.pl===

#!/usr/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;

my ($query, @params, $param, $paramVal);
my ($csTravel);
my (@allProductQuantities);
my (@productIDs, $ID);
my (@contactNameFields, @contactAddressFields, @contactOtherFields,
$field, $value);
my (@shippingNameFields, @shippingAddressFields, @shippingOtherFields);
my ($productQuantity, $dollarValue);

$CGI::POST_MAX = 40000;
$CGI::DISABLE_UPLOADS = 1;

$query = new CGI ();
$query -> autoEscape (undef);

#Get all parameter-value pairs in a referenced hash
@params  = $query->param ();
@allProductQuantities  = grep (/^Quantity_for_Product/, @params);
@productIDs = ();
foreach $param (@allProductQuantities){
       ($ID) = ($param =~ /^Quantity_for_Product_(.+)$/);
       @productIDs = (@productIDs, $ID);
}

=pod

$csTravel = "[EMAIL PROTECTED],[EMAIL PROTECTED]";
open (MAIL, "|/bin/mail -s 'CTS Order' $csTravel");
foreach $param (@params){
   $paramVal = $query->param ($param);
   if ($paramVal){
       print MAIL $param, " = ", $paramVal, "\n";
   }
}

close (MAIL);
=cut

@contactNameFields = qw(Contact_Title Contact_FirstName Contact_LastName);
@contactAddressFields = qw( Contact_Organization
       Contact_StreetAddress1 Contact_Address3 Contact_City1 Contact_State1
       Contact_ZipCode1 Contact_Country1);
#This variable is not used later
@contactOtherFields = qw(Contact_WorkPhone Contact_FAX
       Contact_Email);

@shippingNameFields = qw (Shipping_Title Shipping_FirstName Shipping_LastName);
@shippingAddressFields = qw(Shipping_Organization
       Shipping_StreetAddress   Shipping_Address2 Shipping_City    
Shipping_State
       Shipping_ZipCode   Shipping_Country);

print $query->header();
print $query->start_html(-title => 'Your CST Order',
                                       -BGCOLOR => "white");
print "<h2>Please check details of your order.</h2>\n";
print qq{<h4><font color = "red">If everything looks OK, please click
on the "Submit My Order" Button below.\n If not, please click on the
"Back" button of your browser and make your corrections on the
previous page.\n</font></h4>};
print $query-> hr,
   "<b>Your billing address is:</b><br>",
   $query -> hr;

#start a form
print "\n";
print $query->start_form(-method=>"POST",
                           -action=>"/cgi-bin/form2.pl");
#Print contact name
foreach $field (@contactNameFields){
       $value = $query -> param("$field");
       print "$value ";
       print $query -> hidden (-name => "$field",
                               -default => "$value",
                                         );
       print "\n";

}
print $query -> br;

#Print contact address
foreach $field (@contactAddressFields){
       $value = $query -> param("$field");
       if ($value){
               print $value, $query -> br, "\n";
       print $query -> hidden (-name => "$field",
                               -default => "$value",
                                         );
       print "\n";

       }
}
print $query -> br, "\n";

#Print additional contact information
$value = $query -> param("Contact_WorkPhone");
if ($value){
       print "Phone: ", $value, $query -> br;
       print $query -> hidden (-name => "Contact_WorkPhone",
                               -default => "$value",
                                         );
       print "\n";
}

$value = $query -> param("Contact_FAX");
if ($value){
   print "Fax: ", $value, $query -> br, "\n";
       print $query -> hidden (-name => "Contact_FAX",
                               -default => "$value",
                                         );
       print "\n";
}

$value = $query -> param("Contact_Email");
if ($value){
   print "Email: ", $value, $query -> br, "\n";
   print $query -> hidden (-name => "Contact_Email",
                               -default => "$value",
                                         );
   print "\n";
}

print $query -> hr, "<b>Your shipping preference is:</b>",
   $query -> hr;
#print "Shipping_Preference", $query -> param ("Shipping_Preference"), "<BR>\n";
$value = $query -> param("Shipping_Preference");
if ($query -> param ("Shipping_Preference") == "TRUE"){
       print "SEND TO ABOVE ADDRESS<br>\n";
}
else
{       #A different shipping address

#Print contact name
  foreach $field (@shippingNameFields){
       $value = $query -> param("$field");
       print "$value ";
       print $query -> hidden (-name => "$field",
                               -default => "$value",
                                         );
       print "\n";
 }
 print $query -> br, "\n";

 #Print shipping address
 foreach $field (@shippingAddressFields){
       $value = $query -> param("$field");
       if ($value){
               print $value, $query -> br, "\n";
       print $query -> hidden (-name => "$field",
                               -default => "$value",
                                         );
       print "\n";
       }
 }
 print $query -> br, "\n";

 $value = $query -> param("Shipping_Phone");
 if ($value){
   print "Phone: ", $value, $query -> br, "\n";
   print $query -> hidden (-name => "Shipping_Phone",
                           -default => "$value",
                                         );
   print "\n";
 }
} #else ends

print $query -> hr, "<b>Details of your order are given below: </b>",
   $query -> hr, "\n";
#print join ("<br>", @allProductQuantities), "<br>";
#print "ProductIDs = ", join ("<br>", @productIDs),  "<br>\n";

foreach $ID (@productIDs){
#       print "Inside foreach $ID<br>";
       $productQuantity = $query->param("Quantity_for_Product_$ID");
       $dollarValue = $query->param("Dollar_Value_for_$ID");
       if ($productQuantity){
               print "Product $ID: ", "No of items = $productQuantity, ";
               print $query -> hidden (-name => "Quantity_for_Product_$ID",
                                          -default => "$productQuantity",
                                         );
               print "Total value  = \$", "$dollarValue\n";
               print $query -> hidden (-name => "Dollar_Value_for_$ID",
                                          -default => "$dollarValue",
                                          );

               print $query -> br, "\n";
       }
}

print $query -> hr, "\n";
print "<b>Total number of products ordered = ",
       $query -> param ("Total_Quantity_of_Products_Ordered"), "<br></b>\n";
print $query -> hidden (-name => "Total_Quantity_of_Products_Ordered",
                       -default => ($query -> param
("Total_Quantity_of_Products_Ordered"))
                                          );

print "\n<b>Total cost of products ordered = \$",
       $query -> param("Total_Dollar_Amount_of_Products_Ordered"), "<br></b>\n";
print $query -> hidden (-name => "Total_Dollar_Amount_of_Products_Ordered",
                       -default => ($query -> param
("Total_Dollar_Amount_of_Products_Ordered"))
                                          );

print "\n<b>Total sales tax = \$", $query -> param
("Total_Amount_of_Tax"), "<br></b>\n";
print $query -> hidden (-name => "Total_Amount_of_Tax",
                       -default => ($query -> param ("Total_Amount_of_Tax"))
                                          );

print "\n<b>Total shipping cost = \$", $query -> param
("Total_Dollar_Amount_of_Shipping"), "<br></b>\n";
print $query -> hidden (-name => "Total_Dollar_Amount_of_Shipping",
                       -default => ($query -> param
("Total_Dollar_Amount_of_Shipping"))
                                          );

print "\n<b>Total amount of sale = \$",$query -> param
("Total_Dollar_Amount_of_Sale"), "<br>\n";
print $query -> hidden (-name => "Total_Dollar_Amount_of_Sale",
                       -default => ($query -> param
("Total_Dollar_Amount_of_Sale"))
                                          );
print "<BR>\n";

if ($query -> param ("Check_or_Money_Order")){
       print qq{You are paying by check or money order.\n};
       print qq{Please print the order page and mail  it to the address
given below.\n};
       print qq{We will send your order within a working days after
receiving payment in most cases.\n};
       print $query -> hidden (-name => "Check_or_Money_Order",
                       -default => ($query -> param ("Check_or_Money_Order"))
                                          );
       print "<BR>\n";
}

if ($query -> param ("VISA")){
       print qq{You are paying by VISA.\n};
       print $query -> hidden (-name => "VISA",
                       -default => ($query -> param ("VISA"))
                                          );
       print "<BR>\n";

       print qq{Your card number: },
$query->param("Credit_Card_Number"), "<BR>\n";
       print $query -> hidden (-name => "Credit_Card_Number",
                       -default => ($query -> param ("Credit_Card_Number"))
                                          );
       print "<BR>\n";

       print qq{The expiration date is: },
$query->param("Credit_Card_Expiration_Date"),
               "<BR>\n";
       print $query -> hidden (-name => "Credit_Card_Expiration_Date",
                       -default => ($query -> param
("Credit_Card_Expiration_Date"))
                                          );
       print "<BR>\n";

       print qq{The name on the credit card is: },
               $query->param("Credit_Card_Imprinted_with_Name_of"), "<BR>\n";
       print qq{We will send your order within a working days in most
cases.<BR>\n};
       print $query -> hidden (-name => "Credit_Card_Imprinted_with_Name_of",
                       -default => ($query -> param
("Credit_Card_Imprinted_with_Name_of"))
                                          );
       print "<BR>\n";
}
if ($query -> param ("MasterCard")){
       print qq{You are paying by Mastercard.\n};
       print $query -> hidden (-name => "MasterCard",
                       -default => ($query -> param ("MasterCard"))
                                          );
       print "<BR>\n";

       print qq{Your card number: },
$query->param("Credit_Card_Number"), "<BR>\n";
       print $query -> hidden (-name => "Credit_Card_Number",
                       -default => ($query -> param ("Credit_Card_Number"))
                                          );
       print "<BR>\n";

       print qq{The expiration date is: },
$query->param("Credit_Card_Expiration_Date"),
               "<BR>\n";
       print $query -> hidden (-name => "Credit_Card_Expiration_Date",
                       -default => ($query -> param
("Credit_Card_Expiration_Date"))
                                          );
       print $query -> hidden (-name => "Credit_Card_Expiration_Date",
                       -default => ($query -> param
("Credit_Card_Expiration_Date"))
                                          );
       print "<BR>\n";

       print qq{The name on the credit card is: },
               $query->param("Credit_Card_Imprinted_with_Name_of"), "<BR>\n";
       print $query -> hidden (-name => "Credit_Card_Imprinted_with_Name_of",
                       -default => ($query -> param
("Credit_Card_Imprinted_with_Name_of"))
                                          );
       print "<BR>\n";

       print qq{Your order will ship within 48 hours of receipt via priority
mail, which typically delivers within 3 days.<BR>\n};
}

$value = $query->param ("Questions");
if ($value){
       print qq{Questions: $value <BR>\n};
       print $query -> hidden (-name => "Questions",
                       -default => ($query -> param ("Questions"))
                                          );
}
print "<BR>\n", $query->submit(-name=>'Submit My Order'); print
$query->endform, "\n";

print $query -> hr, "\n";

print $query->end_html ();

=====end of form1.pl===

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

2#Mime.822
Description: Binary data

AdmID:F0B04F0A88EB04C78C82B3DD337850F8

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>

stuck at TRUE/FALSE, pls help

Reply via email to