#!/usr/bin/perl use CGI qw/:standard/; require "common.sub"; print header; #$oid = $ENV{QUERY_STRING}; #$sav_oid = $oid; if ($user eq "$admin"){ use CGI; my $q = new CGI; @deletes = $q->param('delete_this_row'); foreach (@deletes) { &Create_DB_Connection; &delete_results; } &print_results; $dbh->disconnect; }else{ &print_error; } ################ BEGIN DELETE RECORD SUBROUTINE sub delete_record{ $SQL="DELETE FROM timeclock WHERE oid = '$sav_oid'"; my $sth = &Do_SQL; } ################ END DELETE RECORD SUBROUTINE ################ BEGIN PRINT RESULTS SUBROUTINE sub print_results{ print <Delete Entry
Delete Results

Record Deleted!

Home | Clock In | Search
HTML # Release the statement handle resources $sth->finish; } # End of print_results subroutine ################ END PRINT RESULTS SUBROUTINE