#!/usr/bin/perl ### clock_out.cgi use CGI qw/:standard/; require "common.sub"; $oid = $ENV{QUERY_STRING}; $sav_oid = $oid; $end_hour = &filter(param(hour)); $end_minute = &filter(param(minute)); $comment = &filter(param(comment)); print header; &Create_DB_Connection; &clock_out; &print_output; # Disconnect from the database $sth->finish; $dbh->disconnect; ################ BEGIN CLOCKOUT SUBROUTINE sub clock_out{ $SQL = "UPDATE timeclock SET end_hour = '$hour', end_minute = '$minute', end_stamp = CURRENT_TIMESTAMP, WHERE oid = '$sav_oid' "; &Do_SQL; } # End of clock_out ################ END CLOCKOUT SUBROUTINE ################ BEGIN TIME TOTAL CALCULATION SUBROUTINE sub calc_total{ $SQL = "select oid,* FROM timeclock WHERE oid = $sav_oid"; &Do_SQL; ################ END WRITE DATA SUBROUTINE ################ BEGIN PRINT OUTPUT SUBROUTINE sub print_output{ print< Record added to database

HTML } # End of subroutine ################ END PRINT OUTPUT SUBROUTINE