Mercurial > laserkard

comparison paypal/generate_paylists.pm @ 42:ef8615de8a9c laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r43] implemented form memory
author rlm
date Wed, 27 Jan 2010 22:04:43 -0500
parents 1ac1409ea68c
children 1045db9799e3
comparison
equal deleted inserted replaced
41:c4747d955ac8 42:ef8615de8a9c
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'],
24 COSTS_CODE => ['40 cards @125.00', '3 cards @15.00'], 24 COSTS_CODE => ['40 cards @125.00', '3 cards @15.00'],
25 INITIAL_PRICE => '$125.00', 25 INITIAL_PRICE => '$125.00',
26 DEFAULTS => ['jbond@mi6.co.uk','123.456.7890','James Bond','MI6','Secret Agent','http://www.jamesbond.com'], 26 DEFAULTS => ['PERL::EMAIL','PERL','James Bond','MI6','Secret Agent','http://www.jamesbond.com'],
27 @_, # argument pair list goes here 27 @_, # argument pair list goes here
28 ); 28 );
29 $short_form = $args{SHORT_FORM}; 29 $short_form = $args{SHORT_FORM};
30 $prod_name = $args{PRODUCT_NAME}; 30 $prod_name = $args{PRODUCT_NAME};
31 @defaults = @{$args{DEFAULTS}}; 31 @defaults = @{$args{DEFAULTS}};
134 134
135 135
136 $start = <<OHYEAH; 136 $start = <<OHYEAH;
137 <br> 137 <br>
138 PERL::OPT:&nbsp;&nbsp; 138 PERL::OPT:&nbsp;&nbsp;
139 <input type="text" id="PERL::OPT" name="line_PERL::NUMb" size="20" value = "PERL::DEFAULT" ONFOCUS="clearDefault(this);" onKeyUp="redraw('PERL::SHORT');" 139 <input type="text" name="line_PERL::NUMb" size="20" id="PERL::OPT"
140 ONFOCUS="clearDefault(this);" onKeyUp="redraw('PERL::SHORT'); updateForm(['args__PERL::OPT', 'PERL::OPT', 'formValues'] , ['formValues']);"
140 141
141 > 142 >
142 <!-- --> 143 <!-- -->
143 <br> 144 <br>
144 OHYEAH 145 OHYEAH
145 $start =~ s/PERL::SHORT/$short_form/; 146 $start =~ s/PERL::SHORT/$short_form/g;
146 147
147 my $input = ""; 148 my $input = "";
148 149
149 for (0..$#fields) 150 for (0..$#fields)
150 { 151 {