#!/usr/bin/perl # Copyright 2001-2021 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. # *** Outline *** # Remove Function to remove students entered by mistake. my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Attendance' => 'Attendance', 'Records' => 'Records', 'Birthdate' => 'Birthdate', 'Age' => 'Age', 'Transfers' => 'Transfers', 'Student' => 'Student', 'Records Deleted' => 'Records Deleted', 'Delete' => 'Delete', 'Password' => 'Password', 'Continue' => 'Continue', 'Audit' => 'Audit', 'Record(s) Stored' => 'Record(s) Stored', 'Count' => 'Count', 'Course' => 'Course', 'Enrollments' => 'Enrollments', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Not Found' => 'Not Found', 'Record' => 'Record', 'Remove' => 'Remove', 'Student Number' => 'Student Number', 'Students' => 'Students', 'Transfer' => 'Transfer', 'Name' => 'Name', ); my $self = 'remove.pl'; my $pass = 'embrayer'; use DBI; use CGI; # Read config variables 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; # Get Date my @tim = localtime(time); my $year = @tim[5] + 1900; my $month = @tim[4] + 1; my $day = @tim[3]; if ( length( $day ) == 1 ) { $day = '0'. $day; } if ( length( $month ) == 1 ) { $month = '0'. $month; } my $currdate = "$year-$month-$day"; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # HTML Header my $title = "$lex{Remove} $lex{Students} Enrolled by Mistake"; print qq{$doctype\n$title $chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

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

Local $lex{'Student Number'}

\n}; print qq{

$lex{Password}

\n}; print qq{

\n}; print qq{
\n}; print qq{\n}; exit; } #---------------- sub confirmStudent { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # check password; if ( $arr{pass} ne $pass ) { print qq{

$lex{Password} $lex{Error}

\n}; print qq{\n}; exit; } # Get table, in case withdrawn. my $studtable = 'student'; my $sth = $dbh->prepare("select count(*) from studentwd where studnum = ?"); $sth->execute( $arr{studnum} ); if ($DBI::errstr) { print $DBI::errstr; die "$DBI::errstr : $! \n";} my $studcount = $sth->fetchrow; if ( $studcount > 0 ) { $studtable = 'studentwd'; } # Get Name my $sth = $dbh->prepare("select lastname, firstname, initial, studnum, birthdate, grade, homeroom from $studtable where studnum = ?"); $sth->execute( $arr{studnum} ); if ($DBI::errstr) { print $DBI::errstr; die "$DBI::errstr : $! \n";} my $ref = $sth->fetchrow_hashref; if ( not $ref ) { print qq{

$lex{Student} $lex{'Not Found'}

\n}; print qq{\n}; exit; } my %sr = %$ref; # Start Table print qq{\n}; print qq{}; print qq{\n}; print qq{\n}; print qq{\n}; if ( $sr{homeroom} ) { print qq{\n}; } # print qq{\n}; # Get Transfers my $sth = $dbh->prepare("select * from transfer where studnum = ? order by date desc"); $sth->execute( $arr{studnum} ); if ($DBI::errstr) { print $DBI::errstr; die "$DBI::errstr : $! \n";} my $tcount = 1; while ( my $tref = $sth->fetchrow_hashref ) { my %tr = %$tref; print qq{}; print qq{\n}; $tcount++; } # Display Attendance, Courses, if any. my $failflag; $sth = $dbh->prepare("select count(*) from attend where studentid = ?"); $sth->execute( $arr{studnum} ); if ($DBI::errstr) { print $DBI::errstr; die "$DBI::errstr : $! \n";} my $attcount = $sth->fetchrow; print qq{}; print qq{\n}; if ( $attcount ) { print qq{\n}; $failflag = 1; } $sth = $dbh->prepare("select count(distinct subjcode) from eval where studnum = ?"); $sth->execute( $arr{studnum} ); if ($DBI::errstr) { print $DBI::errstr; die "$DBI::errstr : $! \n";} my $coursecount = $sth->fetchrow; print qq{\n}; if ( $coursecount ) { print qq{\n}; $failflag = 1; } print qq{
$lex{Name}$sr{firstname} $sr{initial} $sr{lastname}
$lex{Birthdate}$sr{birthdate}
$lex{Grade}$sr{grade}
$lex{Homeroom}$sr{homeroom}
$lex{Transfer} $tcount$tr{date} - $tr{type} - $tr{description}
$lex{Attendance} $lex{Count}$attcount
}; print qq{$lex{Remove} $lex{Attendance} $lex{Records}
$lex{Course} $lex{Count}$coursecount
}; print qq{$lex{Remove} $lex{Course} $lex{Enrollments}
\n}; if ( $failflag ) { print qq{\n}; exit; } print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{

\n}; print qq{
}; print qq{\n}; exit; } #---------------- sub deleteStudent { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Read Student record my $sth = $dbh->prepare("select * from $arr{studtable} where studnum = ?"); $sth->execute( $arr{studnum} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $sref = $sth->fetchrow_hashref; # print qq{SREF:$sref
\n}; my %audit; $audit{userid} = $ENV{REMOTE_USER}; $audit{ipaddr} = $ENV{REMOTE_ADDR}; $audit{scriptname} = $self; $audit{tablename} = 'studentwd'; $audit{tableid} = $sref->{studid}; $audit{startval} = $sref; # $audit{endval} = ''; # blank. addAudit( \%audit, $dbh ); # Remove Student record my $sth = $dbh->prepare("delete from $arr{studtable} where studnum = ?"); $sth->execute( $arr{studnum} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } # Remove Transfer records $sth = $dbh->prepare("delete from transfer where studnum = ?"); $sth->execute( $arr{studnum} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{

$lex{'Records Deleted'}
$lex{Audit} $lex{'Record(s) Stored'}

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