Mercurial > laserkard

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r25] meeting with kevin
author rlm
date Sun, 03 Jan 2010 21:11:16 -0500
parents c96cb4e773e5
children 4475e9ee3c36
comparison
equal deleted inserted replaced
23:707d202f58b1 24:2979a76e3fdf
23 COSTS_CODE => ['40 cards @125.00', '3 cards @15.00'], 23 COSTS_CODE => ['40 cards @125.00', '3 cards @15.00'],
24 INITIAL_PRICE => '$125.00', 24 INITIAL_PRICE => '$125.00',
25 DEFAULTS => ['jbond@mi6.co.uk','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'], 25 DEFAULTS => ['jbond@mi6.co.uk','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
26 @_, # argument pair list goes here 26 @_, # argument pair list goes here
27 ); 27 );
28 28 $prod_name = $args{PRODUCT_NAME};
29 @defaults = @{$args{DEFAULTS}}; 29 @defaults = @{$args{DEFAULTS}};
30 $name = $args{NAME}; 30 $name = $args{NAME};
31 @fields = @{$args{FIELDS}}; 31 @fields = @{$args{FIELDS}};
32 @costs_names = @{$args{COSTS_NAMES}}; 32 @costs_names = @{$args{COSTS_NAMES}};
33 @costs_code = @{$args{COSTS_CODE}}; 33 @costs_code = @{$args{COSTS_CODE}};
67 #PERL::INITIAL_COST x 67 #PERL::INITIAL_COST x
68 68
69 69
70 {#PERL::TITLE 70 {#PERL::TITLE
71 $base =~ s/PERL::TITLE/$title/g; 71 $base =~ s/PERL::TITLE/$title/g;
72 $base =~ s/PERL::PRODUCT-NAME/$prod_name/g;
73
72 } 74 }
73 75
74 {#PERL::OPT0 -- PERL::OPT9 76 {#PERL::OPT0 -- PERL::OPT9
75 for (0..9) 77 for (0..9)
76 { 78 {