diff paypal/generate_paylists.pm @ 24:2979a76e3fdf laserkard

[svn r25] meeting with kevin
author rlm
date Sun, 03 Jan 2010 21:11:16 -0500
parents c96cb4e773e5
children 4475e9ee3c36
line wrap: on
line diff
     1.1 --- a/paypal/generate_paylists.pm	Sun Jan 03 08:30:32 2010 -0500
     1.2 +++ b/paypal/generate_paylists.pm	Sun Jan 03 21:11:16 2010 -0500
     1.3 @@ -25,7 +25,7 @@
     1.4          DEFAULTS      => ['jbond@mi6.co.uk','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
     1.5          @_,         # argument pair list goes here
     1.6      );
     1.7 -    
     1.8 +    $prod_name = $args{PRODUCT_NAME};
     1.9      @defaults = @{$args{DEFAULTS}};
    1.10      $name = $args{NAME};
    1.11      @fields = @{$args{FIELDS}};
    1.12 @@ -69,6 +69,8 @@
    1.13      
    1.14  {#PERL::TITLE   
    1.15  $base =~ s/PERL::TITLE/$title/g;
    1.16 +$base =~ s/PERL::PRODUCT-NAME/$prod_name/g;
    1.17 +
    1.18  }
    1.19  
    1.20  {#PERL::OPT0 -- PERL::OPT9