#-#############################################
# Sub: Add New Item
# This allows a new item to be put up for sale

sub new {

###########################################################################################
print "<form ACTION=$ENV{'SCRIPT_NAME'} method=post> ",

	my $catinfo="<!--$form{category}-->";$catinfo=~s/\:/--><!--/g;$catinfo=~s/<!---->//g;
	umask(000);
	my($key, %numfiles, %mycategory, %caticon);
	foreach $key (keys %category) {
		next if $category{$key}!~/^\Q$catinfo\E/;
 		opendir(THEDIR, "$config{'basepath'}$key") || mkdir("$config{'basepath'}$key", 0777) || &oops("Category directory $key could not be opened.");
		readdir THEDIR;readdir THEDIR;
		my @allfiles = readdir THEDIR;
		closedir THEDIR;
		if($category{$key} =~ /^\Q$catinfo\E<!--([^>]*)-->/ && $supercat{$1} ne ''){
			$mycategory{"$form{category}:$1"} = $supercat{$1};
			$numfiles{"$form{category}:$1"} += @allfiles;
			$caticon{"$form{category}:$1"} = $config{supercaticon};
		}else{
			$mycategory{$key} = $category{$key};
			$numfiles{$key} += @allfiles;
			$caticon{$key} = $config{regularcaticon};
		}
	}
	my $cols = $config{maincatcols} || 2;
	my $pc = int(100/$cols);

print "<select name=category>",

	my @keys = sort {lc $mycategory{$a} cmp lc $mycategory{$b}} keys %mycategory;
	my $definedkeys = $#keys + $cols-(($#keys+1)%$cols);
	my $cmove = int(@keys/$cols);
	$cmove++ if (@keys%$cols);
	for(my $i = 0;$i<=$cmove-1;$i++) {
#	print "<tr>";
		my $j = $i;
		for(1..$cols){
			my $key=$keys[$j];
			if($key ne ''){
print "<OPTION value=$key>@mycategory{$key}</OPTION>",
			}else{
				print(
					# Print Padding (Empty Cells)
					"<td>&nbsp;</td>",
				);
			}
			$j+=$cmove;
		}
	}
print (
"</select>",
"<INPUT TYPE='SUBMIT' NAME=action VALUE='go'>",
"</tr>",

);
###########################################################################################

	my ($title, $reserve, $inc, $desc, $image, $buyit, @bids);
	my $inc = '1.00'; # default increment
	if ($form{'REPOST'}) {
		$form{'REPOST'} =~ s/\W//g;
		if (-T "$config{'basepath'}$config{'closedir'}/$form{'REPOST'}.dat") {
			open THEFILE, "$config{'basepath'}$config{'closedir'}/$form{'REPOST'}.dat";
			($title, $reserve, $inc, $desc, $image, $buyit, @bids) = <THEFILE>;
			close THEFILE;
			chomp($title, $reserve, $inc, $desc, $image, $buyit, @bids);
		}
	}
	print <<"EOF";

<!-- Add the following line to add a back button - between (print <<"EOF";) & (EOF) -->

	<input type="button" name="Button" value="Back" onClick="MM_callJS('if (history.length 	&gt; 0){history.back()}')">



#####################
# Post new Item Form
<FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
<H2>Post A New Item</H2>
<TABLE WIDTH=100% BORDER=1 BGCOLOR=$config{'colortablebody'}>
<INPUT TYPE=HIDDEN NAME=action VALUE=procnew>
<TR><TD VALIGN=TOP><B>Title/Item Name:<BR></B>No HTML</TD><TD><INPUT NAME=TITLE VALUE=\"$title\" TYPE=TEXT SIZE=50 MAXLENGTH=50></TD></TR>
<TR><TD VALIGN=TOP><B>Category:<BR></B>Select One</TD><TD>

#####################
# Select Main Cat pulldown

<FORM ACTION=$ENV{'SCRIPT_NAME'} METHOD=POST>
EOF

	my $catinfo="<!--$form{category}-->";$catinfo=~s/\:/--><!--/g;$catinfo=~s/<!---->//g;
	umask(000);
	my($key, %numfiles, %mycategory, %caticon);
	foreach $key (keys %category) {
		next if $category{$key}!~/^\Q$catinfo\E/;
 		opendir(THEDIR, "$config{'basepath'}$key") || mkdir("$config{'basepath'}$key", 0777) || &oops("Category directory $key could not be opened.");
		readdir THEDIR;readdir THEDIR;
		my @allfiles = readdir THEDIR;
		closedir THEDIR;
		if($category{$key} =~ /^\Q$catinfo\E<!--([^>]*)-->/ && $supercat{$1} ne ''){
			$mycategory{"$form{category}:$1"} = $supercat{$1};
			$numfiles{"$form{category}:$1"} += @allfiles;
			$caticon{"$form{category}:$1"} = $config{supercaticon};
		}else{
			$mycategory{$key} = $category{$key};
			$numfiles{$key} += @allfiles;
			$caticon{$key} = $config{regularcaticon};
		}
	}
	my $cols = $config{maincatcols} || 2;
	my $pc = int(100/$cols);
print "<SELECT NAME=CATEGORY>",


	my @keys = sort {lc $mycategory{$a} cmp lc $mycategory{$b}} keys %mycategory;
	my $definedkeys = $#keys + $cols-(($#keys+1)%$cols);
	my $cmove = int(@keys/$cols);
	$cmove++ if (@keys%$cols);
	for(my $i = 0;$i<=$cmove-1;$i++) {
#	print "<tr>";
		my $j = $i;
		for(1..$cols){
			my $key=$keys[$j];
			if($key ne ''){
print "<OPTION value=$key>@mycategory{$key}</OPTION>",
			}else{
				print(
					# Print Padding (Empty Cells)
					"<td>&nbsp;</td>",
				);
			}
			$j+=$cmove;
		}
	}

print "</select>",
print "<INPUT TYPE='submit' NAME=action VALUE=go>",
#print "</tr>",


	print <<"EOF";

print "<INPUT TYPE='submit' NAME=action VALUE=go>",
<SELECT NAME=CATEGORY TYPE=TEXT SIZE=5>
<OPTION SELECTED>Test2</OPTION>
EOF
	my $key;
	foreach $key (sort keys %category) {
		print "<OPTION VALUE=\"$key\">$category{$key}</OPTION>\n";
	}
	print <<"EOF";
</SELECT></TD></TR>
</SELECT></TD></TR>
#########################
<TR><TD VALIGN=TOP><B>Image URL:<BR></B>Optional, should be no larger than 200x200</TD><TD><INPUT NAME=IMAGE VALUE=\"$image\" TYPE=TEXT SIZE=50 VALUE="http://"></TD></TR>
<TR><TD VALIGN=TOP><B>Days Until Close:<BR></B>1-30</TD><TD><INPUT NAME=DAYS TYPE=TEXT SIZE=2 MAXLENGTH=2></TD></TR>
<TR><TD VALIGN=TOP><B>Description:<BR></B>May include HTML - This should include the condition of the item, payment and shipping information, and
any other information the buyer should know.</TD><TD><TEXTAREA NAME=DESC ROWS=5 COLS=45>$desc</TEXTAREA></TD></TR>
<TR><TD COLSPAN=2 VALIGN=TOP>Please note that by placing an item up for bid you are making a contract between you and the buyer.<br>
Once you place an item, you may not retract it and you must sell it for the highest bid.<br>
In other words, if you don't want to sell it, don't place it up for bid!
EOF

	if ($config{'regdir'}) {
		print <<"EOF";
<P><B><A HREF="$ENV{'SCRIPT_NAME'}?action=reg">Registration</A> is required to post or bid!</B></TD></TR>
<TR><TD VALIGN=TOP><B>Your Handle/Alias:<BR></B>Used to track your post</TD><TD><INPUT NAME=ALIAS TYPE=TEXT SIZE=30 MAXLENGTH=30>
<TR><TD VALIGN=TOP><B>Your Password:<BR></B>Must be valid</TD><TD><INPUT NAME=PASSWORD TYPE=PASSWORD SIZE=30>
<TR><TD VALIGN=TOP><B>Your Starting Bid:</B></TD><TD>\$<INPUT NAME=BID TYPE=TEXT SIZE=7 VALUE=0>
<TR><TD VALIGN=TOP><B>Your Reserve Price:<BR></B>You are not obligated to sell below this price.  Leave blank if none.</TD><TD>\$<INPUT NAME=RESERVE TYPE=TEXT SIZE=7 VALUE=0>

<!-- ############################ -->
<TR><TD VALIGN=TOP><B>Bid Increment:</B></TD><TD>\$<INPUT NAME=INC TYPE=TEXT SIZE=7 VALUE="$inc"></TD></TR>
<TR><TD VALIGN=TOP><B>Buy-it Now:</B><BR>Optional, this feature allows the first bidder to win the auction with a bid at this set price.</TD><TD>\$<INPUT NAME="BUYIT" TYPE="text" SIZE="7"></TD></TR></TABLE>
<!-- ############################ -->


EOF
	}
	else {
		print <<"EOF";
</TD></TR>
<TR><TD VALIGN=TOP><B>Your Handle/Alias:<BR></B>Used to track your post</TD><TD><INPUT NAME=ALIAS TYPE=TEXT SIZE=30 MAXLENGTH=30>
<TR><TD VALIGN=TOP><B>Your E-Mail Address:<BR></B>Must be valid</TD><TD><INPUT NAME=EMAIL TYPE=TEXT SIZE=30>
<TR><TD VALIGN=TOP><B>Your Starting Bid:</B></TD><TD>\$<INPUT NAME=BID TYPE=TEXT SIZE=7 VALUE=0>
<TR><TD VALIGN=TOP><B>Your Reserve Price:<BR></B>You are not obligated to sell below this price.  Leave blank if none.</TD><TD>\$<INPUT NAME=RESERVE TYPE=TEXT SIZE=7 VALUE=0>
<TR><TD VALIGN=TOP><B>Bid Increment:</B></TD><TD>\$<INPUT NAME=INC TYPE=TEXT SIZE=7 VALUE="$inc">

<!-- ############################ -->
<TR><TD VALIGN=TOP><B>Buy-it Now:</B><BR>Optional, this feature allows the first bidder to win the auction with a bid at this set price.</TD><TD>\$<INPUT NAME="BUYIT" TYPE="text" SIZE="7">
<!-- ############################ -->



<TR><TD VALIGN=TOP><B>Contact Information:<BR></B>Will be given out only to the buyer</TD><TD>
<TT>Full Name: </TT><BR><INPUT NAME=ADDRESS1 TYPE=TEXT SIZE=30><BR>
<TT>Street Address: </TT><BR><INPUT NAME=ADDRESS2 TYPE=TEXT SIZE=30><BR>
<TT>City, State, ZIP: </TT><BR><INPUT NAME=ADDRESS3 TYPE=TEXT SIZE=30></TD></TR></TABLE>
EOF
	}
	print <<"EOF";
<CENTER>Adult Content IS NOT Allowed!!! <INPUT TYPE=SUBMIT VALUE=Preview></CENTER>
EOF
}