#-#############################################
# Sub: Display List Of Categories
# This creates directories and a list of categories
# Contributed by: Dieter Werner
#-#############################################
sub disp_cat {
   my ($key, $numitems, $row, $rowcolor);
   my $all_items = 0;
  
print <<EO_HTML;
<div align="center">
   <table bgcolor="#FFFFFF" width="770" border="0" cellspacing="0" cellpadding="0">
	<tr>
	    <td width="200" valign="top"><br>
		<table bgcolor="$config{'colortablebody'}" width="200" border="0" cellspacing="1" cellpadding="3">
		    <tr bgcolor="$config{'colortablehead'}">
			<td align="center"><b>$txt{'Category'}</b></td>
			<td align="center" nowrap><b>$txt{'Items'}</b></td>
		    </tr>
EO_HTML
  
	  foreach $key (sort keys %category) {
		oops($txt{'The category may not contain any non word characters'})
		if $key =~ /\W/;
		
		check_dir("$config{'basepath'}$key");
		$numitems = count_items(\$key) || 0;
		$all_items += $numitems;
		($row, $rowcolor) = get_row_color($row);
	 
print <<EO_HTML;
		    <tr $$rowcolor>
			<td>
			    <a href="$ENV{'SCRIPT_NAME'}?action=search&searchtype=items&searchstring=$key&lang=$form{'lang'}">
			    <b>$category{$key}</b></a>
			</td>
			<td width="50" nowrap><font size="1">  <b>$numitems</b></font></td>
		    </tr>
EO_HTML
		
	  }

print <<EO_HTML;
		    </tr>
		</table>
	    <td align="center" valign="top"><br>
		@{[disp_random('pic', 4)]}<br>
		@{[disp_random('list', 5)]}<br>
		@{[disp_stat($all_items)]}<br>
		@{[disp_runtime()]}<br>
		@{[disp_banner('tbl')]}
	    </td>
	</tr>
   </table>
</div>
<br>
EO_HTML
  
}

##############################################
# Sub: Display Statistics
# Contributed by: Dieter Werner
##############################################
sub disp_stat {
   my $items = shift;
   my $users = 0;

   opendir DIR, "$config{'basepath'}$config{'regdir'}" or oops($!);
   $users = grep /\.dat$/, readdir DIR;
   closedir DIR;

my $table = <<EO_HTML;
		    <table>
		    <tr>
				<td nowrap><font size="1"><b>$txt{'Registered Users'}:</b></font></td>
			<td nowrap><font size="1"><b>$users</b></font></td>
		    </tr>
		    <tr>
			<td nowrap><font size="1"><b>$txt{'Open Auctions'}:</b></font></td>
			<td nowrap><font size="1"><b>$items</b></font></td>
		    </tr>
		</table>
EO_HTML

} 

	  'Registered Users' => ['Registrierte Teilnehmer', ],
	  'Open Auctions' => ['Offene Auktionen', ],