1.1 --- a/buy.pl	Sun Jan 03 08:30:32 2010 -0500
     1.2 +++ b/buy.pl	Sun Jan 03 21:11:16 2010 -0500
     1.3 @@ -89,7 +89,7 @@
     1.4  $materialcolor = $1;
     1.5  
     1.6  	
     1.7 -$r = "<div id = \"i_templates\"><titletron>Templates:</titletron><br>
     1.8 +$r = "<div id = \"i_templates\"><titletron>Templates</titletron><br>
     1.9  
    1.10  <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.11    
    1.12 @@ -155,9 +155,15 @@
    1.13  	
    1.14  	
    1.15  	
    1.16 -	$t ="
    1.17 -	<input TYPE=\"image\" src = \"./images/display/$all.jpg\" >
    1.18 -	";
    1.19 +	$t = <<HERE;
    1.20 +	<input TYPE="image" src = "./images/display/PERL::PIC.jpg" 	onmouseover="pokedex(['args__PERL::PIC'],['pokedex']);">
    1.21 +HERE
    1.22 +
    1.23 +
    1.24 +$t =~ s/PERL::PIC/$all/g;
    1.25 +
    1.26 +	
    1.27 +	
    1.28  	return $t;
    1.29  	
    1.30  }
    1.31 @@ -195,6 +201,9 @@
    1.32  $b = &inputbox("big_acrylic_clear");
    1.33  $a =~ s/PERL-REPLACE::INPUTBOX/$b/;
    1.34  
    1.35 +$b = &pokedex('big');
    1.36 +$a =~ s/PERL-REPLACE::POKEDEX/$b/;
    1.37 +
    1.38  
    1.39  return $a
    1.40  
    1.41 @@ -206,9 +215,59 @@
    1.42  sub pokedex
    1.43  {
    1.44  
    1.45 +
    1.46 +$classic = <<HERE;
    1.47 +<h1>The Classic LaserKard.</h1>
    1.48 +Balanced and Complete.  The original LaserKard.  For those that wish to leave no stone unturned.  It's all there.
    1.49 +HERE
    1.50 +
    1.51 +$bold = <<HERE;
    1.52 +<h1>The Bold Kard.</h1>
    1.53 +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.
    1.54 +HERE
    1.55 +
    1.56 +$arrow = <<HERE;
    1.57 +<h1>The Arrow Kard.</h1>
    1.58 +Precise and Straightforward.  For those that seek to make a statement while being clear and concise. Straight as an arrow.
    1.59 +HERE
    1.60 +
    1.61 +$direct = <<HERE;
    1.62 +<h1>The Direct Kard.</h1>
    1.63 +Thorough and Distinct.  For those that aim to demonstrate their professionalism with style.  Push the envelope.  Be Direct.
    1.64 +HERE
    1.65 +
    1.66 +
    1.67 +
    1.68 +my %megahash = 
    1.69 +(
    1.70 +
    1.71 +'big' => $bold,
    1.72 +
    1.73 +'basic' => $arrow,
    1.74 +
    1.75 +'lines' => $direct,
    1.76 +
    1.77 +'classic' => $classic,
    1.78 +
    1.79 +'big_acrylic_clear' => $bold,
    1.80 +
    1.81 +'classic_acrylic_clear' => $classic,
    1.82 +
    1.83 +'basic_acrylic_clear'  => $arrow,
    1.84 +
    1.85 +'lines_acrylic_clear' => $direct
    1.86 +);
    1.87 +
    1.88 +
    1.89 +
    1.90  my $key = shift;
    1.91  
    1.92 -return $key;
    1.93 +
    1.94 +if (!$megahash{$key}){return $key;}
    1.95 +
    1.96 +return $megahash{$key};
    1.97 +
    1.98 +
    1.99  
   1.100  
   1.101  }
   1.102 @@ -223,7 +282,7 @@
   1.103  # this here function makes the paypal button go away so people know it's working!
   1.104  sub vanish
   1.105  {
   1.106 -return "Fuck you!"
   1.107 +return "";
   1.108  
   1.109  
   1.110  }