Mercurial > laserkard

comparison paypal/generate_paylists.pm @ 32:0deeb2d5d1db laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r33] modifications with Kevin on jan 18.
author rlm
date Mon, 18 Jan 2010 00:19:17 -0500
parents d269b63b4a54
children 021a9ab1ed5b
comparison
equal deleted inserted replaced
31:d269b63b4a54 32:0deeb2d5d1db
13 sub paylist 13 sub paylist
14 { 14 {
15 15
16 {#input stuff 16 {#input stuff
17 my %args = ( 17 my %args = (
18 DESC => "Laser-Etched Clear Acrylic",
18 TITLE => "Clarity LaserKard --- Classic Style", 19 TITLE => "Clarity LaserKard --- Classic Style",
19 NAME => 'classic_acrylic_clear', 20 NAME => 'classic_acrylic_clear',
20 FIELDS => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Side"], 21 FIELDS => ["Line 1", "Line 2","Line 3","Line 4","Line 5","Side"],
21 ADD_PENNY => 1, 22 ADD_PENNY => 1,
22 COSTS_NAMES => ['40 cards -- $125', '3 cards -- $15'], 23 COSTS_NAMES => ['40 cards -- $125', '3 cards -- $15'],
32 @costs_names = @{$args{COSTS_NAMES}}; 33 @costs_names = @{$args{COSTS_NAMES}};
33 @costs_code = @{$args{COSTS_CODE}}; 34 @costs_code = @{$args{COSTS_CODE}};
34 $penny = $args{ADD_PENNY}; 35 $penny = $args{ADD_PENNY};
35 $title = $args{TITLE}; 36 $title = $args{TITLE};
36 $initial_price = $args{INITIAL_PRICE}; 37 $initial_price = $args{INITIAL_PRICE};
37 38 $desc = $args{DESC};
38 } 39 }
39 40
40 {#determine the total number of fields and payment options present: 41 {#determine the total number of fields and payment options present:
41 42
42 43
68 69
69 70
70 {#PERL::TITLE 71 {#PERL::TITLE
71 $base =~ s/PERL::TITLE/$title/g; 72 $base =~ s/PERL::TITLE/$title/g;
72 $base =~ s/PERL::PRODUCT-NAME/$prod_name/g; 73 $base =~ s/PERL::PRODUCT-NAME/$prod_name/g;
73 74 $base =~ s/PERL::DESC/$desc/g;
74 } 75 }
75 76
76 {#PERL::OPT0 -- PERL::OPT9 77 {#PERL::OPT0 -- PERL::OPT9
77 for (0..9) 78 for (0..9)
78 { 79 {