#!/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', ); use DBI; use CGI; my $self = 'staffwithdraw.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{Withdraw} $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}; confirmWithdraw(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; withdrawStaff(); } #---------------- sub showStartPage { #---------------- print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Get Position and homeroom if any my $sth1 = $dbh->prepare("select field_value from staff_multi where field_name = ? and userid = ?"); # Get all staff members. my $sth = $dbh->prepare("select lastname, firstname, userid, id from staff order by lastname, firstname"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; # Get Position $sth1->execute('position', $r{userid} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $position = $sth1->fetchrow; print qq{\n}; print qq{\n}; } print qq{\n}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage #------------------ sub confirmWithdraw { #------------------ # foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } 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. $sth = $dbh->prepare("select * from staff 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}; print qq{
$lex{Staff}$lex{Position}
$lex{Select} $lex{Staff} to $lex{Withdraw}
$r{lastname}, $r{firstname}$position
\n}; print qq{\n}; print qq{\n}; # Blank row # print qq{\n}; # Withdraw Date print qq{\n}; print qq{\n}; # Description print qq{\n}; print qq{\n}; # Submit print qq{\n}; print qq{
$lex{Name}$r{firstname} $r{lastname}
$lex{Userid}$userid
 
$lex{Withdraw} $lex{Date}\n}; print qq{\n}; print qq{
$lex{Description}
\n}; print qq{\n}; print qq{\n}; exit; } #------------------ sub withdrawStaff { #------------------ # foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Date, Userid, Description passed. my $sth = $dbh->prepare("select * from staff 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}; # Insert Staff Record into WD 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 staffwd ( $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{Staff} -> $lex{Withdrawn} $lex{Staff}

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

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

\n}; die qq{$lex{Delete} $lex{Staff} $lex{Error}:$self: $DBI::errstr\n}; } # Get Any values from the multi table and append to the description value, if any. my $multivals; $sth = $dbh->prepare("select * from staff_multi where userid = ?"); $sth->execute( $arr{userid} ); while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; # print qq{R:$r{field_name} - $r{field_value}
\n}; $multivals .= "$r{field_name}:$r{field_value}, "; # print qq{Multivals:$multivals
\n}; } if ( $multivals ) { $arr{description} .= "\n$multivals"; } # Delete the multi record values, if any $sth = $dbh->prepare("delete from staff_multi where userid = ?"); $sth->execute( $arr{userid} ); # Insert a enrol/withdraw record. $sth = $dbh->prepare("insert into staff_transfer ( userid, date, type, description, lastname, firstname, certificatenumber ) values ( ?, ?, ?, ?, ?, ?, ? )"); $sth->execute( $arr{userid}, $arr{date}, 'withdraw', $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 withdrawStaff