Mercurial > laserkard

comparison buy.pl @ 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 707d202f58b1
children 5b5c03a850b9
comparison
equal deleted inserted replaced
23:707d202f58b1 24:2979a76e3fdf
87 $all =~ m/_(.*)/; 87 $all =~ m/_(.*)/;
88 88
89 $materialcolor = $1; 89 $materialcolor = $1;
90 90
91 91
92 $r = "<div id = \"i_templates\"><titletron>Templates:</titletron><br> 92 $r = "<div id = \"i_templates\"><titletron>Templates</titletron><br>
93 93
94 <input TYPE=\"image\" src = \"./images/templates/big_$materialcolor.jpg\" onmouseover=\"pokedex([\'args__big\'],[\'pokedex\']);\" onclick=\"display([\'template2\'], [\'display\']); inputbox([\'template2\'], [\'inputbox\']);material([\'template2\'], [\'materials\']);\" ID=\"template2\" NAME=\"template2\" VALUE=\"big_$materialcolor\" > <br> 94 <input TYPE=\"image\" src = \"./images/templates/big_$materialcolor.jpg\" onmouseover=\"pokedex([\'args__big\'],[\'pokedex\']);\" onclick=\"display([\'template2\'], [\'display\']); inputbox([\'template2\'], [\'inputbox\']);material([\'template2\'], [\'materials\']);\" ID=\"template2\" NAME=\"template2\" VALUE=\"big_$materialcolor\" > <br>
95 95
96 <input TYPE=\"image\" src = \"./images/templates/basic_$materialcolor.jpg\" onmouseover=\"pokedex([\'args__basic\'],['pokedex\']);\" onclick=\"display([\'template3\'], [\'display\']); inputbox([\'template3\'], [\'inputbox\']);material([\'template3\'], [\'materials\']);\" ID=\"template3\" NAME=\"template3\" VALUE=\"basic_$materialcolor\" ><br> 96 <input TYPE=\"image\" src = \"./images/templates/basic_$materialcolor.jpg\" onmouseover=\"pokedex([\'args__basic\'],['pokedex\']);\" onclick=\"display([\'template3\'], [\'display\']); inputbox([\'template3\'], [\'inputbox\']);material([\'template3\'], [\'materials\']);\" ID=\"template3\" NAME=\"template3\" VALUE=\"basic_$materialcolor\" ><br>
97 97
153 { 153 {
154 $all = shift; 154 $all = shift;
155 155
156 156
157 157
158 $t =" 158 $t = <<HERE;
159 <input TYPE=\"image\" src = \"./images/display/$all.jpg\" > 159 <input TYPE="image" src = "./images/display/PERL::PIC.jpg" onmouseover="pokedex(['args__PERL::PIC'],['pokedex']);">
160 "; 160 HERE
161
162
163 $t =~ s/PERL::PIC/$all/g;
164
165
166
161 return $t; 167 return $t;
162 168
163 } 169 }
164 170
165 171
193 $a =~ s/PERL-REPLACE::DISPLAY/$b/; 199 $a =~ s/PERL-REPLACE::DISPLAY/$b/;
194 200
195 $b = &inputbox("big_acrylic_clear"); 201 $b = &inputbox("big_acrylic_clear");
196 $a =~ s/PERL-REPLACE::INPUTBOX/$b/; 202 $a =~ s/PERL-REPLACE::INPUTBOX/$b/;
197 203
204 $b = &pokedex('big');
205 $a =~ s/PERL-REPLACE::POKEDEX/$b/;
206
198 207
199 return $a 208 return $a
200 209
201 210
202 } 211 }
204 213
205 214
206 sub pokedex 215 sub pokedex
207 { 216 {
208 217
218
219 $classic = <<HERE;
220 <h1>The Classic LaserKard.</h1>
221 Balanced and Complete. The original LaserKard. For those that wish to leave no stone unturned. It's all there.
222 HERE
223
224 $bold = <<HERE;
225 <h1>The Bold Kard.</h1>
226 Austere and Iconic. For those that wish to leave an impression with the power of their name accompanied only by their main method of contact. Bold, period.
227 HERE
228
229 $arrow = <<HERE;
230 <h1>The Arrow Kard.</h1>
231 Precise and Straightforward. For those that seek to make a statement while being clear and concise. Straight as an arrow.
232 HERE
233
234 $direct = <<HERE;
235 <h1>The Direct Kard.</h1>
236 Thorough and Distinct. For those that aim to demonstrate their professionalism with style. Push the envelope. Be Direct.
237 HERE
238
239
240
241 my %megahash =
242 (
243
244 'big' => $bold,
245
246 'basic' => $arrow,
247
248 'lines' => $direct,
249
250 'classic' => $classic,
251
252 'big_acrylic_clear' => $bold,
253
254 'classic_acrylic_clear' => $classic,
255
256 'basic_acrylic_clear' => $arrow,
257
258 'lines_acrylic_clear' => $direct
259 );
260
261
262
209 my $key = shift; 263 my $key = shift;
210 264
211 return $key; 265
266 if (!$megahash{$key}){return $key;}
267
268 return $megahash{$key};
269
270
212 271
213 272
214 } 273 }
215 274
216 275
221 280
222 281
223 # this here function makes the paypal button go away so people know it's working! 282 # this here function makes the paypal button go away so people know it's working!
224 sub vanish 283 sub vanish
225 { 284 {
226 return "Fuck you!" 285 return "";
227 286
228 287
229 } 288 }
230 289