Mercurial > laserkard

comparison buy.pl @ 5:116b15d3d68c laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r6]
author rlm
date Fri, 01 Jan 2010 17:44:10 -0500
parents c96cb4e773e5
children 839533015ed3
comparison
equal deleted inserted replaced
4:c96cb4e773e5 5:116b15d3d68c
85 $all =~ m/_(.*)/; 85 $all =~ m/_(.*)/;
86 86
87 $materialcolor = $1; 87 $materialcolor = $1;
88 88
89 89
90 $r = "Templates:<br> 90 $r = "<div id = \"i_templates\">Templates:<br>
91 <input TYPE=\"image\" src = \"./templates/thumbnails/classic_$materialcolor.jpg\" onmouseover=\"pokedex([\'args__classic\'],[\'pokedex\']);\" onclick=\"display([\'template1\'], [\'display\']); inputbox([\'template1\'], [\'inputbox\']);material([\'template1\'], [\'materials\']);\" ID=\"template1\" NAME=\"template1\" VALUE=\"classic_$materialcolor\" > 91 <input TYPE=\"image\" src = \"./templates/thumbnails/classic_$materialcolor.jpg\" onmouseover=\"pokedex([\'args__classic\'],[\'pokedex\']);\" onclick=\"display([\'template1\'], [\'display\']); inputbox([\'template1\'], [\'inputbox\']);material([\'template1\'], [\'materials\']);\" ID=\"template1\" NAME=\"template1\" VALUE=\"classic_$materialcolor\" >
92 <input TYPE=\"image\" src = \"./templates/thumbnails/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\" > 92 <input TYPE=\"image\" src = \"./templates/thumbnails/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\" >
93 <input TYPE=\"image\" src = \"./templates/thumbnails/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\" > 93 <input TYPE=\"image\" src = \"./templates/thumbnails/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\" >
94 <input TYPE=\"image\" src = \"./templates/thumbnails/lines_$materialcolor.jpg\" onmouseover=\"pokedex([\'args__lines\'],[\'pokedex\']);\" onclick=\"display([\'template4\'], [\'display\']); inputbox([\'template4\'], [\'inputbox\']);material([\'template4\'], [\'materials\']);\" ID=\"template4\" NAME=\"template4\" VALUE=\"lines_$materialcolor\" > 94 <input TYPE=\"image\" src = \"./templates/thumbnails/lines_$materialcolor.jpg\" onmouseover=\"pokedex([\'args__lines\'],[\'pokedex\']);\" onclick=\"display([\'template4\'], [\'display\']); inputbox([\'template4\'], [\'inputbox\']);material([\'template4\'], [\'materials\']);\" ID=\"template4\" NAME=\"template4\" VALUE=\"lines_$materialcolor\" >
95 95 </div>
96 96
97 "; 97 ";
98 98
99 return $r; 99 return $r;
100 } 100 }
178 $a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to <?php include("top_menu.html"); ?>, but in perl and with more memory problems :) 178 $a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to <?php include("top_menu.html"); ?>, but in perl and with more memory problems :)
179 $b = &material("void_acrylic_clear",1); 179 $b = &material("void_acrylic_clear",1);
180 $a =~ s/PERL-REPLACE::MATERIALS/$b/; #let's do it again!!! :) 180 $a =~ s/PERL-REPLACE::MATERIALS/$b/; #let's do it again!!! :)
181 $b = &template("classic_acrylic_clear"); 181 $b = &template("classic_acrylic_clear");
182 182
183 #$a =~ s/PERL-REPLACE::TEMPLATES//; 183 $a =~ s/PERL-REPLACE::TEMPLATES//;
184 $a =~ s/PERL-REPLACE::TEMPLATES/$b/; #comment out one or the other! 184 #$a =~ s/PERL-REPLACE::TEMPLATES/$b/; #comment out one or the other!
185 185
186 186
187 187
188 return $a 188 return $a
189 189