#!/usr/bin/perl # Copyright 2001-2022 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 = ('View/Edit' => 'View/Edit', 'Transfer Records' => 'Transfer Records', 'Name' => 'Name', 'Birthdate' => 'Birthdate', 'Identity' => 'Identity', 'Date' => 'Date', 'Type' => 'Type', 'Description' => 'Description', 'Delete' => 'Delete', 'Not Found' => 'Not Found', 'Main' => 'Main', 'Student' => 'Student', 'Error' => 'Error', 'Edit' => 'Edit', 'Sort by' => 'Sort by', ); my $self = 'transview.pl'; my $allowDelete = 0; use DBI; use CGI; eval require "../../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; if ( $arr{del} ) { $allowDelete = 1; } # Set 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"; $year -= 3; # start 3 years back. my $startdate = "$year-$month-$day"; my $select = qq{where to_days(date) > to_days('$startdate')}; if ( $arr{nodate} ) { # turn off the 3 year back option. delete $arr{nodate}; $select = ''; } # Sorting. my $sort = 'order by lastname, firstname,studnum, date desc'; if ( $arr{sort} eq $lex{Name} ){ $sort = 'order by lastname, firstname,studnum, date desc'; } elsif ( $arr{sort} eq $lex{Date} ) { $sort = 'order by date desc, lastname, firstname'; } # Setup Dbase my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; my $title = qq{$lex{'View/Edit'} $lex{'Transfer Records'}}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; if ( $arr{page} == 1 ) { delete $arr{page}; showIndividual(); } print qq{
\n}; print qq{\n}; if ($allowDelete) { print qq{\n}; } print qq{
\n}; print qq{
\n}; print qq{\n}; if ($allowDelete) { print qq{\n}; } print qq{
\n}; print qq{

$title

\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; $currdate = -1; my $olddate; #while ( my ( $id, $studnum, $date, $type, $description, $entrytype, # $exittype, $prov, $country, $utag, $lastname, $firstname, $middlename, # $birthdate, $provnum ) = $sth->fetchrow) { my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); $sth = $dbh->prepare("select * from transfer $select $sort"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; $olddate = $currdate; if ( $arr{sort} eq $lex{Date} ){ $currdate = $r{date}; } else { $currdate = $r{studnum}; } # studnum if ( $currdate ne $olddate ) { if ($color eq "blue"){ $color = "gray";} else { $color = "blue"; } } if ( not $r{lastname} ) { # no lastname... # Search studentall for lastname $sth1->execute( $r{studnum} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; if ( not $lastname ) { # still no lastname.... $r{lastname} = qq{$lex{'Not Found'}}; } } print qq{\n}; print qq{}; print qq{\n\n}; } print qq{
}; print qq{Starting Date $startdate
$lex{Name}$lex{Birthdate}/Provnum$lex{Date}$lex{Type}$lex{Description}
}; print qq{$r{lastname}, $r{firstname} $r{middlename} ($r{studnum})$r{birthdate}/$r{provnum}$r{date}$r{type}$r{description}}; print qq{
\n}; print qq{\n}; print qq{
\n}; if ( $allowDelete ) { print qq{
\n}; print qq{\n}; print qq{
\n}; } print qq{
\n}; #----------------- sub showIndividual { #----------------- my $studnum = $arr{studnum}; # Get Name from studentall table my $sth = $dbh->prepare("select lastname, firstname, initial from studentall where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my ( $lastname, $firstname, $middlename ) = $sth->fetchrow; # Check if withdrawn my $wd; my $sth = $dbh->prepare("select count(*) from studentwd where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} my $count = $sth->fetchrow; # if ( $count ) { $wd = qq{WD\n}; } # Start Table. print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; my $sth = $dbh->prepare("select * from transfer where studnum = ? order by date desc"); $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr;} while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; print qq{\n}; print qq{}; print qq{\n\n}; } print qq{
}; print qq{$wd $firstname $middlename $lastname - Sorted by Date Descending (Latest First)}; print qq{
$lex{Name}$lex{Birthdate}/Provnum$lex{Date}$lex{Type}$lex{Description}
}; print qq{$r{lastname}, $r{firstname} $r{middlename} ($r{studnum})$r{birthdate}/$r{provnum}$r{date}$r{type}$r{description}}; print qq{
\n}; print qq{\n}; print qq{
\n}; if ( $allowDelete ) { print qq{
\n}; print qq{\n}; print qq{
\n}; } print qq{
\n}; # Current Student or Withdrawn if ( $count ) { # withdrawn print qq{
$firstname is a }; print qq{}; print qq{Withdrawn student.

\n}; } else { print qq{
$firstname is a }; print qq{}; print qq{Current student.
\n}; } print qq{\n}; exit; }