Mercurial > laserkard

comparison paypal/generate_paylists.pm @ 40:1ac1409ea68c laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r41] implemented dynamic text.
author rlm
date Mon, 25 Jan 2010 03:42:08 -0500
parents 021a9ab1ed5b
children ef8615de8a9c
comparison
equal deleted inserted replaced
39:8b3b5753ad41 40:1ac1409ea68c
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 => ['jbond@mi6.co.uk','123.456.7890','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 $prod_name = $args{PRODUCT_NAME}; 30 $prod_name = $args{PRODUCT_NAME};
30 @defaults = @{$args{DEFAULTS}}; 31 @defaults = @{$args{DEFAULTS}};
31 $name = $args{NAME}; 32 $name = $args{NAME};
32 @fields = @{$args{FIELDS}}; 33 @fields = @{$args{FIELDS}};
33 @costs_names = @{$args{COSTS_NAMES}}; 34 @costs_names = @{$args{COSTS_NAMES}};
133 134
134 135
135 $start = <<OHYEAH; 136 $start = <<OHYEAH;
136 <br> 137 <br>
137 PERL::OPT:&nbsp;&nbsp; 138 PERL::OPT:&nbsp;&nbsp;
138 <input type="text" id="PERL::OPT" name="line_PERL::NUMb" size="20" value = "PERL::DEFAULT" ONFOCUS="clearDefault(this)" 139 <input type="text" id="PERL::OPT" name="line_PERL::NUMb" size="20" value = "PERL::DEFAULT" ONFOCUS="clearDefault(this);" onKeyUp="redraw('PERL::SHORT');"
139 onKeyUp="
140 tt.remove();
141
142 var font_size = 30;
143
144 tt = raphe.print(0, 145, value, raphe.getFont('HelveticaNeue', 700), font_size);
145 tt.attr('stroke', '#f00');
146 tt.attr('fill', 'TRANSPARENT');
147 var c = tt.getBBox().width;
148 tt.translate((502 - c)/2,0);
149
150
151
152
153
154
155 //document.write( c );
156
157
158
159
160
161 "
162 140
163 > 141 >
164 <!-- --> 142 <!-- -->
165 <br> 143 <br>
166 OHYEAH 144 OHYEAH
167 145 $start =~ s/PERL::SHORT/$short_form/;
168 146
169 my $input = ""; 147 my $input = "";
170 148
171 for (0..$#fields) 149 for (0..$#fields)
172 { 150 {