#!/usr/bin/perl # Copyright 2001-2024 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', ); 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); my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $title = "$lex{Mass} $lex{Withdraw} $lex{Students}"; print qq{$doctype\n$title \n}; if ( not $arr{page} ) { # 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} |\n}; print qq{ $lex{Eoy} ]\n}; print qq{

$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 qq{$lex{'Cannot open'} global.conf file!}; print qq{\n}; exit; } # Read database names and also the global enrol/withdraw reasons. eval { require "$globdir/global.conf"; }; if ( $@ ) { print qq{

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

\n}; print qq{\n}; exit; } # 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 qq{
\n}; print qq{\n}; print qq{\n}; # Password print qq{\n}; print qq{\n}; # Student Grade print qq{\n}; print qq{\n}; # Withdraw Date print qq{\n\n}; # Withdraw Reason print qq{\n}; print qq{\n}; # Withdrawal Description print qq{\n\n}; print qq{\n}; print qq{
$lex{Password}
$lex{Grade} $lex{'Blank=All'}
$lex{Withdraw} $lex{Date}}; print qq{\n}; print qq{\n}; print qq{
$lex{Withdraw} $lex{Reason}
$lex{Withdraw} $lex{Description}}; print qq{
}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage #----------------- sub selectStudents { #----------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Check Password if ( not $arr{password} or $arr{password} ne $pwd ) { print qq{
$lex{Password} $lex{Error}
\n}; print qq{\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 qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{

$lex{Select} $lex{Students}

\n}; print qq{\n}; print qq{\n}; print qq{\n}; while ( my $ref = $sth->fetchrow_hashref ) { my %rec = (); %rec = %$ref; print qq{\n}; print qq{\n}; } print qq{\n}; print qq{
$lex{Students}$lex{Grade}
}; print qq{ }; print qq{$rec{lastname}, $rec{firstname}$rec{grade}
}; print qq{
\n}; print qq{
\n}; print qq{\n}; exit; } # end of selectStudents #------------------- sub withdrawStudents { #------------------- # foreach my $key ( keys %arr ) { print qq{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 qq{K:$key V:$arr{$key}
\n}; } # exit; # Put results into table format print qq{\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 qq{\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 qq{\n}; next; } # Remove from Student Table $sth = $dbh->prepare("delete from student where studnum = ?"); $sth->execute( $studnum ); if ( $DBI::errstr) { print qq{\n}; } else { print qq{\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 qq{
$lex{'Student(s) Not Found'}: $studnum
$lex{Insert} $lex{Error}: $firstname $lastname}; print qq{
$lex{Withdraw} $lex{Error}}; print qq{ $firstname $lastname: $DBI::errstr
$lex{Withdraw} - $lastname, $firstname
$lex{Transfer} $lex{Error}}; print qq{ - $rec{lastname} $rec{firstname}: $DBI::errstr\n}; } } # End of Student Withdrawal Loop print qq{
\n}; print qq{

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

\n}; print qq{\n}; exit; }