1.1 --- a/paypal/generate_paylists.pm	Sat Mar 13 22:30:59 2010 -0500
     1.2 +++ b/paypal/generate_paylists.pm	Sun Mar 14 00:32:38 2010 -0500
     1.3 @@ -15,7 +15,7 @@
     1.4  	
     1.5  {#input stuff
     1.6      my %args = (
     1.7 -		DESC   => "Laser-Etched Clear Acrylic",
     1.8 +		DESC   => "Clear, Scratch Resistant,<br>  Laser-Etched  Acrylic.",
     1.9  		TITLE  => "Clarity LaserKard --- Classic Style",
    1.10          NAME   => 'classic_acrylic_clear', 
    1.11          FIELDS      => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Side"],
    1.12 @@ -93,7 +93,7 @@
    1.13  {#PERL::PAYMENT
    1.14  
    1.15  
    1.16 -my $start  = 
    1.17 +my $init  = 
    1.18  <<DDDDD;
    1.19      
    1.20      <input type="radio" name = "whatev"
    1.21 @@ -108,26 +108,22 @@
    1.22  DDDDD
    1.23  
    1.24  
    1.25 -$start2 = $start;
    1.26  
    1.27 -$start =~ s/PERL::COST/@costs_names[0]/;
    1.28 -$start =~ s/PERL::CODE/@costs_code[0]/;
    1.29 -$start =~ s/PERL::CHECKED/CHECKED/;
    1.30 +$start = "";
    1.31 +for (0..$payment_opts-1)
    1.32  
    1.33 +{
    1.34 +$temp = $init;
    1.35  
    1.36  
    1.37 -if (2 ==  $payment_opts)
    1.38 -{
    1.39 -
    1.40 -$start2 =~ s/PERL::COST/@costs_names[1]/;
    1.41 -$start2 =~ s/PERL::CODE/@costs_code[1]/;
    1.42 -$start2 =~ s/PERL::CHECKED//;
    1.43 -$start = $start.$start2;
    1.44 -
    1.45 +$temp =~ s/PERL::COST/@costs_names[$_]/;
    1.46 +$temp =~ s/PERL::CODE/@costs_code[$_]/;
    1.47 +$temp =~ s/PERL::CHECKED/CHECKED/;
    1.48 +$start = $start.$temp;
    1.49  }
    1.50  
    1.51  $base =~ s/PERL::PAYMENT/$start/;
    1.52 -
    1.53 +$start = $temp = $init ="";
    1.54  }
    1.55  
    1.56  {#PERL::INPUT