1.1 --- a/paypal/make.pl	Sat Mar 13 22:30:59 2010 -0500
     1.2 +++ b/paypal/make.pl	Sun Mar 14 00:32:38 2010 -0500
     1.3 @@ -1,27 +1,14 @@
     1.4  use generate_paylists;
     1.5  
     1.6  
     1.7 -{#big_acrylic_clear
     1.8 -&paylist
     1.9 -(
    1.10 -TITLE  => 'Clarity Series:<br> The Bold Kard.',
    1.11 -PRODUCT_NAME => 'Clarity Series: The Bold Kard',
    1.12 -SHORT_FORM   =>  'bold',
    1.13 +@standard_prices =    ['50 cards &mdash; $149','30 cards &mdash; $99 (Intro Offer)', '4 cards &mdash; $29'] ;  #'50 cards &mdash; $149',
    1.14  
    1.15 -DESC	=> 'Laser-Etched Clear Acrylic',
    1.16 +@standard_codes = 		[ '50 cards @149.00','30 cards @99.00', '4 cards @29.00'];  #['50 cards @149.00',
    1.17 +$init_price = '$29.00';
    1.18  
    1.19 -NAME   => 'big_acrylic_clear', 
    1.20 +$descrip	= 'Laser-Etched Clear Scratch Resistant';
    1.21  
    1.22 -FIELDS      => ["Name", "Email"],
    1.23 -DEFAULTS      => ['PERL::NAME','PERL::EMAIL'],
    1.24  
    1.25 -COSTS_NAMES   => ['30 cards &mdash; $99', '4 cards &mdash; $29'],
    1.26 -COSTS_CODE    => ['30 cards @99.00', '4 cards @29.00'],
    1.27 -INITIAL_PRICE => '$99.00',
    1.28 -
    1.29 -ADD_PENNY       => 0,
    1.30 -);
    1.31 -}
    1.32  
    1.33  
    1.34  {#basic_acrylic_clear
    1.35 @@ -36,17 +23,37 @@
    1.36  FIELDS      => ["Name", "Company","Occupation","Email"],
    1.37  DEFAULTS      => ['PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::EMAIL'],
    1.38  
    1.39 -COSTS_NAMES   => ['30 cards &mdash; $99', '4 cards &mdash; $29'],
    1.40 -COSTS_CODE    => ['30 cards @99.00', '4 cards @29.00'],
    1.41 -INITIAL_PRICE => '$99.00',
    1.42 +COSTS_NAMES   => @standard_prices,
    1.43 +COSTS_CODE    => @standard_codes,
    1.44 +INITIAL_PRICE => $init_price,
    1.45  
    1.46  
    1.47  ADD_PENNY       => 1,
    1.48  );
    1.49  }
    1.50  
    1.51 +{#big_acrylic_clear
    1.52 +&paylist
    1.53 +(
    1.54 +TITLE  => 'Clarity Series:<br> The Bold Kard.',
    1.55 +PRODUCT_NAME => 'Clarity Series: The Bold Kard',
    1.56 +SHORT_FORM   =>  'bold',
    1.57  
    1.58  
    1.59 +
    1.60 +NAME   => 'big_acrylic_clear', 
    1.61 +
    1.62 +FIELDS      => ["Name", "Email"],
    1.63 +DEFAULTS      => ['PERL::NAME','PERL::EMAIL'],
    1.64 +
    1.65 +COSTS_NAMES   => @standard_prices,
    1.66 +COSTS_CODE    => @standard_codes,
    1.67 +INITIAL_PRICE => $init_price,
    1.68 +
    1.69 +ADD_PENNY       => 0,
    1.70 +);
    1.71 +}
    1.72 +
    1.73  {#classic_acrylic_clear
    1.74  &paylist
    1.75  (
    1.76 @@ -59,9 +66,9 @@
    1.77  FIELDS      => ["Email", "Phone","Name","Company","Occupation","Website"],
    1.78  DEFAULTS      => ['PERL::EMAIL','PERL::PHONE','PERL::NAME','PERL::COMPANY','PERL::OCCUPATION','PERL::WEBSITE'],
    1.79  
    1.80 -COSTS_NAMES   => ['30 cards &mdash; $99', '4 cards &mdash; $29'],
    1.81 -COSTS_CODE    => ['30 cards @99.00', '4 cards @29.00'],
    1.82 -INITIAL_PRICE => '$99.00',
    1.83 +COSTS_NAMES   => @standard_prices,
    1.84 +COSTS_CODE    => @standard_codes,
    1.85 +INITIAL_PRICE => $init_price,
    1.86  
    1.87  
    1.88  ADD_PENNY       => 0,
    1.89 @@ -83,9 +90,9 @@
    1.90  FIELDS      => ["Name", "Occupation","Company","Phone","Email","Website"],
    1.91  DEFAULTS      => ['PERL::NAME','PERL::OCCUPATION','PERL::COMPANY','PERL::PHONE','PERL::EMAIL','PERL::WEBSITE'],
    1.92  
    1.93 -COSTS_NAMES   => ['30 cards &mdash; $99', '4 cards &mdash; $29'],
    1.94 -COSTS_CODE    => ['30 cards @99.00', '4 cards @29.00'],
    1.95 -INITIAL_PRICE => '$99.00',
    1.96 +COSTS_NAMES   => @standard_prices,
    1.97 +COSTS_CODE    => @standard_codes,
    1.98 +INITIAL_PRICE => $init_price,
    1.99  
   1.100  
   1.101  ADD_PENNY       => 0,