Mercurial > laserkard

comparison buy.pl @ 16:839533015ed3 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r17] made it look good.
author rlm
date Sat, 02 Jan 2010 01:42:50 -0500
parents 116b15d3d68c
children 2f537455ebf7
comparison
equal deleted inserted replaced
15:5c7f16af1dd2 16:839533015ed3
86 86
87 $materialcolor = $1; 87 $materialcolor = $1;
88 88
89 89
90 $r = "<div id = \"i_templates\">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 = \"./images/templates/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\" ><br>
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 = \"./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>
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 = \"./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>
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 = \"./images/templates/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 </div> 95 </div>
96 96
97 "; 97 ";
98 98
99 return $r; 99 return $r;
148 $all = shift; 148 $all = shift;
149 149
150 150
151 151
152 $t =" 152 $t ="
153 <input TYPE=\"image\" src = \"./templates/display/$all.jpg\" > 153 <input TYPE=\"image\" src = \"./images/display/$all.jpg\" >
154 "; 154 ";
155 return $t; 155 return $t;
156 156
157 } 157 }
158 158
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