#!/usr/bin/perl -w
use CGI qw/:all/;
require ("/home/usr12/local/lib/cart_lib/cart_lib.pl");
get_set_cookie();
#display_header();
my ($script_name)=$ENV{'SCRIPT_NAME'};
my ($color);
$script_name = substr($script_name,rindex($script_name,'/')+1);
$script_name = substr($script_name,0,rindex($script_name,'.'));
@shirt_sizes = ('l','xl','xxl','xxxl');
%shirt_sizes = ('xl' => 'X-Large' ,'l' => 'Large','xxl' => 'XX-Large','xxxl' => 'XXX-Large');
@shirt_color = ('gy','w');
%shirt_color = ('gy' => 'Gray' ,'w' => 'White');
param(-name => 'form_type',-value => 'add_to_order');
print start_html(-bgcolor => 'white',-title => 'Micro$haft T-Shirt',-background =>'/images/bg2.gif' ),"\n";
print <<END;
<script language="Javascript">
function fill_form() {
        var color_menu= document.forms[0].${script_name}_color
        var size_menu= document.forms[0].${script_name}_size
        var color_val = color_menu.options[color_menu.selectedIndex].value
        var size_val = size_menu.options[size_menu.selectedIndex].value
        window.location.href ='${script_name}.pl?${script_name}_color=' + color_val +'&${script_name}_size='+size_val; 
}
</script>
END
if (param("${script_name}_color")){
	$color = lc($shirt_color{param("${script_name}_color")});
	param(-name => "${script_name}_color",-value => $shirt_color{$color} );
}
else {
	$color="gray";
	param(-name => "${script_name}_color",-value => 'gy') ;
}
print <<END;
<table>
<tr>
<td valign="top" width=128 align="left">
<a href="/"><Font color=white size=+1>Home</font></a><br><br>
<a href="/contact.html"><Font color=white size=+1>Contact Us</font></a><br><br>
<a href="/about.html"><Font color=white size=+1>About Us</font></a><br><br>
<a href="/t-shirts/"><Font color=white size=+1>T-Shirts</font></a><br><br>
<a href="/cgi-bin/order.pl?form_type=cart"><Font color=white size=+1>View Cart</font></a><br><br>
<td>
<table align="left">
<tr>
<td align="center">
<a href="/images/${script_name}-full-${color}.jpg" target="_blank" ><img src="/images/${script_name}-${color}.jpg" border=-1></a>
<td align="left">
END
print "<table>\n<tr>\n";
print "<td>Price: 15</td></tr> \n";
print "<tr><td>Large and X-Large</td></tr>";
print "<tr><td>Price: 17</td></tr> \n";
print "<tr><td>XX-Large and XXX-Large</td></tr>";
print "<tr><td><form method=\"post\" action=\"/cgi-bin/order.pl\" enctype=\"application/x-www-form-urlencoded\" name=\"order\">\nQuanity\n";
print "<td>",textfield(-name => "product_${script_name}" ,-size => '2',-value => '1' ),"\n";
print "<tr>\n<td> Size\n";
print "<td>",popup_menu(-name => "${script_name}_size",-values => \@shirt_sizes,-labels => \%shirt_sizes );
print "<tr>\n<td> Color\n";
print "<td>",popup_menu(-name => "${script_name}_color",-values => \@shirt_color,-labels => \%shirt_color,-onchange=>"fill_form();"),hidden('form_type'),"\n",hidden('cart_id'),"\n";
print "<tr>\n<td colspan=2 align=\"center\">\n",submit(-value => 'Add to cart'),"</form>\n</table>\n";
print <<END;
<tr>
<td align="center">
END
foreach (keys %shirt_color){
	print	"<a href=\"$ENV{SCRIPT_NAME}?${script_name}_color=${_}\"><img src=\"/images/$shirt_color{$_}-swatch.gif\" border=0 alt=\"$shirt_color{$_}\" ></a>\n"
}
print "<tr>\n<td colspan=2>\n<br>\n", get_long_desc($script_name);
print <<END;
</table>
</table>
</body>
</html>
END