diff buy.pl @ 22:3298256dd459 laserkard

[svn r23] did much cosmetic work.
author rlm
date Sun, 03 Jan 2010 03:36:21 -0500
parents 896afe03bc67
children 707d202f58b1
line wrap: on
line diff
     1.1 --- a/buy.pl	Sun Jan 03 00:55:18 2010 -0500
     1.2 +++ b/buy.pl	Sun Jan 03 03:36:21 2010 -0500
     1.3 @@ -88,10 +88,14 @@
     1.4  
     1.5  	
     1.6  $r = "<div id = \"i_templates\">Templates:<br>
     1.7 -   <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>
     1.8 -   <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>
     1.9 -   <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>
    1.10 -   <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\"           > 
    1.11 +
    1.12 +<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>
    1.13 +  
    1.14 +<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>
    1.15 +  
    1.16 +<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>
    1.17 + 
    1.18 +<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\"           > 
    1.19  	</div>
    1.20  
    1.21  ";
    1.22 @@ -178,11 +182,16 @@
    1.23  $a =~ s/PERL-REPLACE::TOP_MENU/$b/; #equivalent to <?php include("top_menu.html"); ?>, but in perl and with more memory problems :)
    1.24  $b = &material("void_acrylic_clear",1);
    1.25  $a =~ s/PERL-REPLACE::MATERIALS/$b/; #let's do it again!!! :)
    1.26 -$b = &template("classic_acrylic_clear");
    1.27 +$b = &template("big_acrylic_clear");
    1.28  
    1.29  #$a =~ s/PERL-REPLACE::TEMPLATES//; 
    1.30  $a =~ s/PERL-REPLACE::TEMPLATES/$b/; #comment out one or the other!
    1.31  
    1.32 +$b = &display("big_acrylic_clear");
    1.33 +$a =~ s/PERL-REPLACE::DISPLAY/$b/;
    1.34 +
    1.35 +$b = &inputbox("big_acrylic_clear");
    1.36 +$a =~ s/PERL-REPLACE::INPUTBOX/$b/;
    1.37  
    1.38  
    1.39  return $a