1.1 --- a/paypal/generate_paylists.pm	Sun Jan 17 22:11:27 2010 -0500
     1.2 +++ b/paypal/generate_paylists.pm	Mon Jan 18 00:19:17 2010 -0500
     1.3 @@ -15,6 +15,7 @@
     1.4  	
     1.5  {#input stuff
     1.6      my %args = (
     1.7 +		DESC   => "Laser-Etched Clear Acrylic",
     1.8  		TITLE  => "Clarity LaserKard --- Classic Style",
     1.9          NAME   => 'classic_acrylic_clear', 
    1.10          FIELDS      => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Side"],
    1.11 @@ -34,7 +35,7 @@
    1.12      $penny = $args{ADD_PENNY};
    1.13      $title = $args{TITLE};
    1.14      $initial_price = $args{INITIAL_PRICE};
    1.15 -    
    1.16 +	$desc = $args{DESC};
    1.17  }      
    1.18  
    1.19  {#determine the total number of fields and payment options present:
    1.20 @@ -70,7 +71,7 @@
    1.21  {#PERL::TITLE   
    1.22  $base =~ s/PERL::TITLE/$title/g;
    1.23  $base =~ s/PERL::PRODUCT-NAME/$prod_name/g;
    1.24 -
    1.25 +$base =~ s/PERL::DESC/$desc/g;
    1.26  }
    1.27  
    1.28  {#PERL::OPT0 -- PERL::OPT9