#!/usr/local/bin/perl
require 'general_cgi.pl';

sub get_categories {
	$setup_file = "recipe_setup.dat";
	$setup_fields = 1;
	$category_file = "recipe_categories.dat";
	$count = 0;
	
	&open_file("FILE","",$setup_file);
	$line = &read_file("FILE");
	@setupdata = split(/\s*\|\s*/,$line ,$setup_fields);
	$category_fields = $setupdata[0];
	close(FILE);
	
	&open_file("FILE","",$category_file);
	while ($line = &read_file("FILE")) {
		# split the fields at the | character 
		@categorydata = split(/\s*\|\s*/,$line ,2);
		$category_code[$count] = $categorydata[0];
		$category_full[$count] = $categorydata[1];
		$category_code{$categorydata[0]} = $categorydata[1];
		$count++;
	}
	close(FILE);

}

sub add_categories {
	&get_categories;

	print "<TABLE ALIGN=CENTER BORDER=0><TR>";
	print "<TD VALIGN=TOP><TABLE BORDER=1 ALIGN=CENTER>";
	print "<TR><TH ALIGN=CENTER><FONT SIZE=2 FACE=Tahoma>Code</FONT></TH><TH ALIGN=CENTER><FONT SIZE=2 FACE=Tahoma>Full</FONT></TH></TR>";
	for ($i=0;$i<$category_fields;$i++) {
		print "<TR><TD><FONT SIZE=2 FACE=Tahoma>$category_code[$i]</FONT></TD><TD><FONT SIZE=2 FACE=Tahoma>$category_full[$i]</FONT></TD></TR>";
	}
	print "</TABLE></TD><TD VALIGN=TOP>";
	print "<CENTER><FONT SIZE=2 FACE=Tahoma><B>Add a Category</B></CENTER><BR>";
	print "<FORM ACTION=/cgi-bin/database.pl?add_new_category METHOD=POST>";
	print "<B>Code Word:</B><INPUT TYPE=TEXT WIDTH=40 NAME=code><BR><BR>";
	print "<B>Full Name:</B><INPUT TYPE=TEXT WIDHT=40 NAME=full>";
	print "<INPUT TYPE=HIDDEN NAME=num_categories VALUE=$category_fields>";
	print "<BR><BR><CENTER><INPUT TYPE=SUBMIT VALUE=Add NAME=submit></CENTER>";
	print "</FONT></TD></TR></TABLE>";
	
}