#!/usr/bin/perl # Copyright 2001-2018 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 = ('Withdraw' => 'Withdraw', 'Staff' => 'Staff', 'Not Found' => 'Not Found', 'Withdrawn' => 'Withdrawn', 'Main' => 'Main', 'Error' => 'Error', 'Search' => 'Search', 'Name' => 'Name', 'Birthdate' => 'Birthdate', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Description' => 'Description', 'Reason' => 'Reason', 'Code' => 'Code', 'Transfer' => 'Transfer', 'Date' => 'Date', 'Yes' => 'Yes', 'Delete' => 'Delete', 'Insert' => 'Insert', 'Select' => 'Select', 'Userid' => 'Userid', 'Position' => 'Position', 'Eoy' => 'Eoy', 'Restore' => 'Restore', 'Reinstate' => 'Reinstate', ); use DBI; use CGI; my $self = 'staffrestore.pl'; eval require qq{../../etc/admin.conf}; if ( $@ ) { print "$lex{Error}: $@
\n"; die "$lex{Error}: $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $dsn = qq{DBI:$dbtype:dbname=$dbase}; my $dbh = DBI->connect($dsn,$user,$password); # Page Header my $title = qq{$lex{Restore}/$lex{Reinstate} $lex{Staff}}; print qq{$doctype\n$title \n}; if ( $arr{page} == 1 ) { # calendar popup. print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{$chartype\n\n}; if ( not $arr{page} ) { print qq{\n}; } else { print qq{\n}; } print qq{

[ $lex{Main} | $lex{Eoy} ]

\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; confirmRestore(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; restoreStaff(); } #---------------- sub showStartPage { #---------------- print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Get all withdrawn staff members. my $sth = $dbh->prepare("select * from staffwd order by lastname, firstname"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; print qq{\n}; print qq{\n}; } print qq{\n}; print qq{

$lex{Select} $lex{Staff} to $lex{Restore}
	$lex{Staff}	User Id
	$r{lastname}, $r{firstname}	$r{userid}

\n}; print qq{

\n}; print qq{\n}; exit; } # end of showStartPage #----------------- sub confirmRestore { #----------------- # foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # only userid passed. my $userid = $arr{userid}; # Set current time my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; my $currdate = qq{$year-$month-$day}; # Read the staff data. my $sth = $dbh->prepare("select * from staffwd where userid = ?"); $sth->execute( $userid ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; # Start Form print qq{\n}; print qq{\n}; print qq{\n}; exit; } #--------------- sub restoreStaff { #--------------- # foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Date, Userid, Description passed, (could have newuserid also ) # Get withdrawn staff member data my $sth = $dbh->prepare("select * from staffwd where userid = ?"); $sth->execute( $arr{userid} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; if ( not $ref ) { #Error! print qq{

$lex{Error}: $lex{'Not Found'}!

\n}; print qq{\n}; exit; } delete $r{id}; # Check for userid collision my $failflag; my $sth = $dbh->prepare("select count(*) from staff where userid = ?"); $sth->execute( $userid ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth->fetchrow; if ( $count ) { print qq{

This userid:$userid exists!

\n}; $failflag = 1; } if ( $arr{newuserid} ) { # try that userid $sth->execute( $arr{newuserid} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth->fetchrow; if ( $count ) { print qq{

This userid:$arr{newuserid} exists also!

\n}; } else { # no count, clear failflag, change userid; $failflag = 0; $r{userid} = $arr{newuserid}; } } if ( $failflag ) { print qq{

Userid already exists in the staff table. Cannot Restore! Try a different New Userid

\n}; print qq{\n}; exit; } # Insert WD Staff Record into Staff table my (@fields, @qst, @values); foreach my $fld (keys %r ) { if ( defined $r{$fld} ) { push @fields, $fld; push @qst, '?'; push @values, $r{$fld}; } } my $fields = join(',', @fields); my $qst = join(',', @qst); $sth = $dbh->prepare("insert into staff ( $fields ) values ( $qst )"); $sth->execute( @values ); if ( $DBI::errstr) { print qq{

$lex{Insert} $lex{Staff} $lex{Error}:}; print qq{$lex{Error}:$DBI::errstr

\n}; die qq{$lex{Error}:$self: $DBI::errstr\n}; } print qq{

$lex{Withdrawn} $lex{Staff} -> $lex{Staff}

\n}; # Delete Staff Record from withdrawn staff table $sth = $dbh->prepare("delete from staffwd where userid = ?"); $sth->execute( $arr{userid} ); if ( $DBI::errstr) { print qq{

$lex{Delete} $lex{Withdrawn} $lex{Staff} $lex{Error}:}; print qq{$lex{Error}:$DBI::errstr

\n}; die qq{$lex{Delete} $lex{Staff} $lex{Error}:$self: $DBI::errstr\n}; } # Insert a restore/withdraw record. $sth = $dbh->prepare("insert into staff_transfer ( userid, date, type, description, lastname, firstname, certificatenumber ) values ( ?, ?, ?, ?, ?, ?, ? )"); $sth->execute( $arr{userid}, $arr{date}, 'restore', $arr{description}, $r{lastname}, $r{firstname}, $r{certification1} ); if ($DBI::errstr) { print qq{

$lex{Insert} $lex{Error}:}; print qq{$lex{Error}:$DBI::errstr

\n}; die qq{$lex{Insert} $lex{Error}:$self: $DBI::errstr\n}; } print qq{

[ $lex{Eoy} ]

\n}; print qq{\n}; exit; } # end of restoreStaff

$lex{Name}	$r{firstname} $r{lastname}
$lex{Userid}	$userid

$lex{Restore} $lex{Date}	\n}; print qq{\n}; print qq{
$lex{Description}