Mercurial > laserkard
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