#! /usr/local/perl5/bin/perl
#
#use strict;
#
#
# License: This code is released under the terms of the GNU GPL
# version 2 or later. Please refer to www.gnu.org for a copy
# of this license.
#
#-#############################################
# Admin
# Allows the administrator to delete items.
print "Content-type: text/html\n\n";
print "No Account";
sub THISISNOTACCOUNTINGSCRIPT {
	my ($key, $category_list);
	foreach $key (sort keys %category) {
		$category_list .= "<OPTION VALUE=\"$key\">$category{$key}</OPTION>\n";
	}

    print	&load_template ('adminform.html', { 
       CATEGORIES  =>    $category_list,
			%globals
	});

}  
1;