Mercurial > laserkard

comparison paypal/generate_paylists.pm @ 57:8324f195ef36 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r58] implemented various changes
author rlm
date Sun, 14 Mar 2010 00:32:38 -0500
parents 5eb11cf654de
children
comparison
equal deleted inserted replaced
56:2ca94aa58033 57:8324f195ef36
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 DESC => "Clear, Scratch Resistant,<br> Laser-Etched Acrylic.",
19 TITLE => "Clarity LaserKard --- Classic Style", 19 TITLE => "Clarity LaserKard --- Classic Style",
20 NAME => 'classic_acrylic_clear', 20 NAME => 'classic_acrylic_clear',
21 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"],
22 ADD_PENNY => 1, 22 ADD_PENNY => 1,
23 COSTS_NAMES => ['40 cards -- $125', '3 cards -- $15'], 23 COSTS_NAMES => ['40 cards -- $125', '3 cards -- $15'],
91 } 91 }
92 92
93 {#PERL::PAYMENT 93 {#PERL::PAYMENT
94 94
95 95
96 my $start = 96 my $init =
97 <<DDDDD; 97 <<DDDDD;
98 98
99 <input type="radio" name = "whatev" 99 <input type="radio" name = "whatev"
100 100
101 value="PERL::CODE" PERL::CHECKED 101 value="PERL::CODE" PERL::CHECKED
106 <br> 106 <br>
107 107
108 DDDDD 108 DDDDD
109 109
110 110
111 $start2 = $start;
112 111
113 $start =~ s/PERL::COST/@costs_names[0]/; 112 $start = "";
114 $start =~ s/PERL::CODE/@costs_code[0]/; 113 for (0..$payment_opts-1)
115 $start =~ s/PERL::CHECKED/CHECKED/; 114
115 {
116 $temp = $init;
116 117
117 118
118 119 $temp =~ s/PERL::COST/@costs_names[$_]/;
119 if (2 == $payment_opts) 120 $temp =~ s/PERL::CODE/@costs_code[$_]/;
120 { 121 $temp =~ s/PERL::CHECKED/CHECKED/;
121 122 $start = $start.$temp;
122 $start2 =~ s/PERL::COST/@costs_names[1]/;
123 $start2 =~ s/PERL::CODE/@costs_code[1]/;
124 $start2 =~ s/PERL::CHECKED//;
125 $start = $start.$start2;
126
127 } 123 }
128 124
129 $base =~ s/PERL::PAYMENT/$start/; 125 $base =~ s/PERL::PAYMENT/$start/;
130 126 $start = $temp = $init ="";
131 } 127 }
132 128
133 {#PERL::INPUT 129 {#PERL::INPUT
134 130
135 131