#!/usr/bin/perl # Copyright 2001-2014 Leslie Richardson # This file is part of Open Admin for Schools. # Open Admin for Schools is free software; you can redistribute it # and/or modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. my %lex = ( 'Delete' => 'Delete', 'Staff Absence' => 'Staff Absence', 'Edit' => 'Edit', 'Main' => 'Main', 'Eoy' => 'Eoy', 'Are you sure' => 'Are you sure', 'Deleted' => 'Deleted', 'Name' => 'Name', 'Error' => 'Error', 'Yes' => 'Yes', 'Record' => 'Record', 'Date' => 'Date', 'Reason' => 'Reason', 'Contact' => 'Contact', ); my $self = 'staffabsDelete.pl'; use CGI; use DBI; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # Load audit write function eval require "../../lib/libaudit.pl"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; #foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n" } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $sth = $dbh->prepare("select * from staff_absent where id = ?"); $sth->execute( $arr{id} ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; my $title = "$lex{Delete} $lex{'Staff Absence'}"; print qq{$doctype\n$title $chartype\n\n}; print qq{[ $lex{Main} ]\n}; #print qq{$lex{Eoy} ]\n}; print qq{

$title

\n}; if ( $arr{deleteflag} ) { delete $arr{deleteflag}; deleteRecord(); } print qq{\n}; print qq{\n}; print qq{ \n}; print qq{ \n}; print qq{
$lex{Name}$r{firstname} $r{lastname} ($r{userid})
$lex{Date}$r{adate}
$lex{Reason}$r{reason}
\n}; print qq{

$lex{Delete} $lex{Record}: $lex{'Are you sure'}?

\n}; print qq{
\n}; print qq{\n}; print qq{ \n}; print qq{\n}; print qq{
\n}; #--------------- sub deleteRecord { #--------------- #foreach my $key (keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } my $id = $arr{itemid}; # Load Current Record for audit my $sth1 = $dbh->prepare("select * from staff_absent where id = ?"); $sth1->execute( $id ); if (DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $startref = $sth1->fetchrow_hashref; my %audit; $audit{userid} = $ENV{REMOTE_USER}; $audit{ipaddr} = $ENV{REMOTE_ADDR}; $audit{scriptname} = $self; $audit{tablename} = 'staff_absent'; $audit{tableid} = $startref->{id}; $audit{startval} = $startref; # $audit{endval} = \%arr; # no ending value. addAudit( \%audit, $dbh ); my $sth = $dbh->prepare("delete from staff_absent where id = ?"); $sth->execute( $arr{itemid} ); if ($DBI::errstr) { print qq{

$lex{Error}: $DBI::errstr
\n}; print qq{$lex{Contact}: $adminname

\n}; } else { print qq{

$lex{Record} $lex{Deleted}.

\n}; } print qq{[ View Staff Absences ]\n}; print qq{\n}; exit; }