#!/usr/bin/perl # Copyright 2001-2012 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 = ('Main' => 'Main', 'Eoy' => 'Eoy', 'Select' => 'Select', 'Student(s) Not Found' => 'Student(s) Not Found', 'Withdraw' => 'Withdraw', 'Transfer' => 'Transfer', 'Error' => 'Error', 'Insert' => 'Insert', 'Mass' => 'Mass', 'Grade' => 'Grade', 'Password' => 'Password', 'Description' => 'Description', 'Continue' => 'Continue', 'Students' => 'Students', 'Blank=All' => 'Blank=All', 'Date' => 'Date', 'Cannot open' => 'Cannot open', 'Reason' => 'Reason', 'Enrol' => 'Enrol', ); my $self = 'masswithdraw.pl'; my $pwd = 'tansi'; # later, pull from security system. use DBI; use CGI; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $title = "$lex{Mass} $lex{Withdraw} $lex{Students}"; print "$doctype\n$title \n"; if ( not $arr{page} ) { # calendar popup. print "\n"; print "\n"; print "\n"; print "\n"; } print "$chartype\n\n"; if ( not $arr{page} ) { print "\n"; } else { print "\n"; } print "[ $lex{Main} |\n"; print " $lex{Eoy} ]\n"; print "

$title

\n"; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; withdrawStudents(); } #---------------- sub showStartPage { #---------------- # Load Global Reasons (Exit) if ( not -e "$globdir/global.conf" ) { print $lex{'Cannot open'}. " global.conf file!"; print "\n"; die; } # Read database names and also the global enrol/withdraw reasons. eval { require "$globdir/global.conf"; }; if ( $@ ) { print "

". $lex{'Cannot open'}. " global.conf:\n $@

\n"; die $lex{'Cannot open'}. " global.conf: $@\n"; } # Get current date my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; my $currdate = "$year-$month-$day"; print "
\n"; print "\n"; print "\n"; # Password print "\n"; print "\n"; # Student Grade print "\n"; print "\n"; # Withdraw Date print "\n\n"; # Withdraw Reason print "\n"; print "\n"; # Withdrawal Description print "\n\n"; print "\n"; print "
$lex{Password}
$lex{Grade} $lex{'Blank=All'}
$lex{Withdraw} $lex{Date}"; print "\n"; print "\n"; print "
$lex{Withdraw} $lex{Reason}
$lex{Withdraw} $lex{Description}"; print "
"; print "\n"; print "\n"; exit; } # end of showStartPage #----------------- sub selectStudents { #----------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Check Password if ( not $arr{password} or $arr{password} ne $pwd ) { print "
$lex{Password} $lex{Error}
\n"; print "\n"; exit; } if ( $arr{grade} ) { $sth = $dbh->prepare("select * from student where grade = ? order by grade, lastname, firstname"); $sth->execute( $arr{grade} ); } else { $sth = $dbh->prepare("select * from student order by lastname, firstname"); $sth->execute; } if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$lex{Select} $lex{Students}

\n"; print "\n"; print "\n"; print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ) { my %rec = (); %rec = %$ref; print "\n}; print qq{\n}; } print qq{\n}; print "
$lex{Students}$lex{Grade}
"; print qq{ $rec{lastname}, $rec{firstname}$rec{grade}
\n"; print "
\n"; print "\n"; exit; } # end of selectStudents #------------------- sub withdrawStudents { #------------------- # foreach my $key ( keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $date = $arr{date}; delete $arr{date}; my $description = $arr{description}; delete $arr{description}; my $exittype = $arr{exittype}; delete $arr{exittype}; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # exit; # Put results into table format print "\n"; foreach my $studnum ( keys %arr ) { # loop through passed student numbers # Get Student Info my $sth = $dbh->prepare("select * from student where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; next; } my @student = $sth->fetchrow; my $lastname = $student[1]; my $firstname = $student[2]; # Load student record into hash $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; next; } my $ref = $sth->fetchrow_hashref; my %rec = %$ref; # used to put values into transfer table. if ( not @student ){ print "\n"; next; } # Insert Record in Student WD $student[0] = $sql{default}; # reset the studid/id. foreach my $studfld ( @student ){ if ( $studfld ne $sql{default} ) { $studfld = $dbh->quote( $studfld ); } } my $studentstr = join(', ', @student); $sth = $dbh->prepare("insert into studentwd values ( $studentstr )"); $sth->execute; if ( $DBI::errstr ) { print "\n"; next; } # Remove from Student Table $sth = $dbh->prepare("delete from student where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr) { print "\n"; } else { print "\n"; } # Add Transfer Record my $sth2 = $dbh->prepare("insert into transfer ( studnum, date, type, description, exittype, lastname, firstname, middlename, birthdate, provnum ) values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )"); $sth2->execute( $rec{studnum}, $date, 'withdraw', $description, $exittype, $rec{lastname}, $rec{firstname}, $rec{initial}, $rec{birthdate}, $rec{provnum} ); if ($DBI::errstr) { print "
$lex{'Student(s) Not Found'}: $studnum
$lex{Insert} $lex{Error}: $firstname $lastname"; print "
$lex{Withdraw} $lex{Error}"; print " $firstname $lastname: $DBI::errstr
$lex{Withdraw} - $lastname, $firstname
$lex{Transfer} $lex{Error}"; print " - $rec{lastname} $rec{firstname}: $DBI::errstr\n"; } } # End of Student Withdrawal Loop print "
\n"; print "

[ $lex{Main} |\n"; print "$lex{Eoy} ]

\n"; print "\n"; exit; }