search- Timeclock Search

sub normal_results{ print <search- Timeclock Search Home | Clock In | Search Search Results for $username

HTML while (@row = $sth->fetchrow()){ $total_time = $row[9]; $allhours = $allhours + $total_time; ## Make our HTML look better if no data. $row[0] = " " if($row[0] eq ""); $row[1] = " " if($row[1] eq ""); $row[2] = " " if($row[2] eq ""); $row[3] = " " if($row[3] eq ""); $row[4] = " " if($row[4] eq ""); $row[6] = " " if($row[6] eq ""); $row[7] = " " if($row[7] eq ""); $row[9] = " " if($row[9] eq ""); $row[10] = " " if($row[10] eq ""); print < HTML } # End of while. print<

- Employee Timeclock Database
Oid	Date	Username	Clocked In	Clocked Out	Daily Total	notes
$row[0]	$row[1]	$row[2]	$row[3]:$row[4]	$row[6]:$row[7]	$row[9]	$row[10]
				Total Time:	$allhours

Main Page HTML } # End of normal_results subroutine ################ END NORMAL RESULTS SUBROUTINE ##

##

#!/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