#!/usr/local/bin/perl
require "/home/roger/lib/weblib.lib";
#use DB_File;
&htmlopen("Anthony Rogers Data Addition/Edit");
&ReadParse;
if($in{Select}){
	dbmopen(%DB,"/home/todd/db/arogers.db",undef);
	print "<form action=$weblib::URL method=POST>\n";
	print "<table>\n";
	$record="000";
	@bulk=sort grep /^$in{Select}/,keys %DB;
	foreach $keydate(@bulk){
		$record++;
		($time2,$date,$title,$length,$grade)=split(/%%/,$DB{$keydate});
		$title=~s/"/&quot;/g;
		print "<tr>";
		print "<td><input name=Keydate$record value=\"$keydate\" size=10>\n";
		print "<td><input name=Time2$record value=\"$time2\" size=8>\n";
		print "<td><input name=Date$record value=\"$date\" size=10>\n";
		print "<td><input name=Title$record value=\"$title\" size=60>\n";
		print "<td><input name=Length$record value=\"$length\" size=3>\n";
		print "<td><input name=Grade$record value=\"$grade\" size=2>\n";
		print "</tr>\n";
	}
	print "</table>\n<br><input type=submit>\n";
	print "</form>\n";
}
elsif($bulk=$in{bulk}){
	$bulk=~s/\t/  /gm;
	$bulk=~s/\r\n/\n/gm;
	$bulk=~s/\r/\n/gm;
	@bulk=split(/\n/,$bulk);
	print "<form action=$weblib::URL method=POST>\n";
	print "<table>\n";
	$record="000";
	dbmopen(%DB,"/home/todd/db/arogers.db",undef);
	foreach $line(@bulk){
		$record++;
		($date,$title,$length,$grade)=split(/\s\s+/,$line);
		$title=~s/"/&quot;/g;
		($month,$day,$year)=split(m#/#,$date);
		if($year eq ""){$year=$day;$day="00";}
		if($year<100){$year+=1900;}
		$keydate=sprintf("%4d%02d%02d00",$year,$month,$day);
		while(defined($DB{$keydate})){$keydate++;}
		while(defined($USED{$keydate})){$keydate++;}
		$USED{$keydate}=1;
		$title=~s/ ABOVE / ABOVE:$previous /;
		print "<tr>";
		print "<td><input name=Keydate$record value=\"$keydate\" size=10>\n";
		print "<td><input name=Date$record value=\"$date\" size=10>\n";
		print "<td><input name=Title$record value=\"$title\" size=60>\n";
		print "<td><input name=Length$record value=\"$length\" size=3>\n";
		print "<td><input name=Grade$record value=\"$grade\" size=2>\n";
		print "</tr>\n";
		$previous=$keydate;
	}
	print "</table>\n<br><input type=submit>\n";
	print "</form>\n";
}
elsif($in{Keydate001}){
	dbmopen(%DB,"/home/todd/db/arogers.db",undef);
	print "<pre>\n";
	foreach $key(sort grep /^Keydate/,keys %in){
		($number=$key)=~s/^Keydate//;
		$time2=$in{"Time$number"};
		$time2="00000000" unless $time2;
		print <<EOF;
$in{$key} -> $time2%%$in{"Date$number"}%%$in{"Title$number"}%%$in{"Length$number"}%%$in{"Grade$number"}
EOF
$DB{$in{$key}}="$time2%%$in{\"Date$number\"}%%$in{\"Title$number\"}".
	"%%$in{\"Length$number\"}%%$in{\"Grade$number\"}";
	}
	print "</pre>\n";
}
else{
	print <<EOF;
<form action=$weblib::URL method=POST>
<b>New data entry</b><br>
<textarea name=bulk rows=20 cols=80></textarea>
<br><b>or Select Key to edit</b><input name=Select size=10><br><input type=submit>
</form>
EOF
}
&htmlclose;