}
sub print_htmlfooter
{
my $page = shift;
print "
\n";
print " \n";
if ($page eq "search")
{
print " \n";
}
elsif ($page eq "form")
{
print " \n";
print " \n";
print " \n";
print " \n";
}
elsif ($page eq "edit" || $page eq "add")
{
print " \n";
print " \n";
print " \n";
}
print <<__END_OF_HTML__;
__END_OF_HTML__
}
sub db_connect()
{
my $dsn = "DBI:$Driver:$DataBase";
$dbh = DBI->connect($dsn, $User, $Password, {RaiseError => 1, AutoCommit => 1});
}
sub db_disconnect()
{
$dbh->disconnect;
}
## Pages ###############################
sub search_page
{
my $message = shift;
print_htmlheader();
print "$message" if ($message);
print <<__END_OF_HTML__;
Search by $DataKey:
__END_OF_HTML__
print_htmlfooter("search");
}
sub form_page
{
my $message = shift;
my $hashref;
my $field;
my $query = "select * from $Table where $DataKey = ?";
my $sth = $dbh->prepare($query);
$sth->execute($FormData{$DataKey});
print_htmlheader();
print "\n";
print "$message\n" if (defined($message));
print "\n";
print "\n";
print_htmlfooter("form");
}
sub edit_page
{
my $message = shift;
my $hashref;
my $query = "select * from $Table where $DataKey = ?";
my $sth = $dbh->prepare($query);
$sth->execute($FormData{record});
print_htmlheader();
print "\n";
print "$message\n" if (defined($message));
while (defined($hashref = $sth->fetchrow_hashref))
{
print<<__END_OF_HTML__;
__END_OF_HTML__
}
print_htmlfooter("edit");
}
sub add_page
{
print_htmlheader();
my $hashref;
my $field;
print "\n\n\n";
print_htmlfooter("add");
}
sub save_record()
{
# This sub is used to actually save the data to the database
if ($FormData{savetype} eq "add")
{
my $hashref;
my %rst;
my $field;
my @values;
my @colname;
}
elsif ($FormData{savetype} eq "edit")
{
my $field;
my $query = "update $Table set ? where $DataKey = '$FormData{$DataKey}'";
my $sth = $dbh->prepare($query);
print_htmlheader();
print $query;
foreach $field (@Fields)
{
print "$field: $FormData{$field}
\n" if ($field ne "domain" && $field ne "priority");
}
form_page("Record Saved");
}
}
sub delete_record()
{
}
sub data_page()
{
}
|