my %form = Vars(); if ($form{'action'} eq "addrecord") { &add_record; } elsif ($form{'action'} eq "add_record_two") { &add_record_two; } sub header { $title = shift; print qq~ $title

CHGMANT V2

~; } sub footer { print qq~
Add A Record Modify a Record Delete a Record Search
~; } sub build_record_page { my (%record) = @_; my ($val) = ""; my ($html) = qq~~; foreach $obj (@db_fields) { if ($obj eq $db_key) { next; # ID's are dynamically made } $html .= qq~~; } $html .= "
Record
$db_name{$obj}~; if ($db_type{$obj} eq "text") { # Makes the text box if ($record{$obj}) { $val = qq~ VALUE="$record{$obj}"~; } else { $val = ""; } $html .= qq~~; } if ($db_type{$obj} eq "drop" && $db_name{$obj} eq "UserID:") { # Makes the dropdown box if ($record{$obj}) { $val = qq~ VALUE="$record{$obj}"~; } else { $val = ""; } print "$record{$obj} $id\n"; #debug $html .= popup_menu ( -name => $obj, -values=>\@users); } if ($db_type{$obj} eq "drop" && $db_name{$obj} eq "Type Of Change:") { # Makes the dropdown box if ($record{$obj}) { $val = qq~ VALUE="$record{$obj}"~; } else { $val = ""; } print "$record{$obj} $id\n"; #debug $html .= popup_menu ( -name => $obj, -values=>\@changetype); } elsif ($db_type{$obj} eq "textarea") { # Makes the textarea if ($record{$obj}) { $val = qq~$record{$obj}~; } else { $val = ""; } $html .= qq~~; } $html .= qq~

"; print $html; } sub add_record { &header("Add a Record"); print qq~

~; &build_record_page; print qq~
~; &footer; } sub add_record_two { $form{$db_key} = &get_next_id(); my ($line) = &make_data(%form); open (DATABASE, ">>".$file); if ($flock) { flock(DATABASE, 2) } print DATABASE $line; close (DATABASE); &header("Add a Record Successful - $id"); print qq~
Here Is Your Record

~; my (%result) = get_record($form{$db_key}); print Dumper(%result); if (%result) { &build_record_page(%result); } else { print "Error - No Record Added"; } &footer; }