#! /usr/bin/perl
# Copyright 2001-2007 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 = ('Report' => 'Report',
'Main' => 'Main',
'Transcript' => 'Transcript',
'Edit Transcripts' => 'Edit Transcripts',
'Transcripts Report' => 'Transcripts Report',
'Transcripts' => 'Transcripts',
'Transcript of Marks' => 'Transcript of Marks',
'No Quality Score for' => 'No Quality Score for',
'Report Card' => 'Report Card',
'Term' => 'Term',
'Credits Earned' => 'Credits Earned',
'Credits Attempted' => 'Credits Attempted',
'Reqd' => 'Reqd',
'Earned' => 'Earned',
'Total' => 'Total',
'Approved by' => 'Approved by',
'Transcript is official when sealed' => 'Transcript is official when sealed',
'Phone' => 'Phone',
'Fax' => 'Fax',
'Requirements Complete' => 'Requirements Complete',
'Printed' => 'Printed',
'No Records Found' => 'No Records Found',
'No Records Selected' => 'No Records Selected',
'Entry Error' => 'Entry Error',
'No Student(s) Found' => 'No Student(s) Found',
'Graduation~Requirements' => 'Graduation~Requirements',
'Semester GPA' => 'Semester GPA',
'Cum GPA' => 'Cum GPA',
'Diploma Awarded on' => 'Diploma Awarded on',
'View/Download' => 'View/Download',
'View Log File' => 'View Log File',
'Year End Attendance' => 'Year End Attendance',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'DOB' => 'DOB',
'Lastname/Lastname,Firstname/Initials/StudentNumber' =>
'Lastname/Lastname,Firstname/Initials/StudentNumber',
'Select Student' => 'Select Student',
'Select Group' => 'Select Group',
'Continue' => 'Continue',
'Code' => 'Code',
'Subject' => 'Subject',
'Credit' => 'Credit',
'Credits' => 'Credits',
'Mark' => 'Mark',
'GPA' => 'GPA',
'Area' => 'Area',
);
my $self = 'rpttranscript.pl';
#my $failletter = 'F'; # Failing Letter... no credit for course.
# my $passletter = 'P';
use DBI;
use CGI;
my @month = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
my @dow = ('Sunday','Monday','Tuesday','Wednesday','Thursday',
'Friday','Saturday');
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday,
$iddst) = localtime(time);
$year = $year + 1900;
my $currdate = "$dow[$wday], $month[$mon] $mday, $year";
# Read config variables
require "../../etc/admin.conf" || die "Cannot read admin.conf!";
require "../../etc/transcript.conf" || die "Cannot read transcript.conf!";
my $shortname = "transcript$$";
my $filename = "$shortname.tex";
my $logfile = "pdflog$$.txt";
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my @month = ('','January','February','March','April','May','June','July',
'August','September','October','November','December');
my $q = new CGI;
print $q->header;
my %arr = $q->Vars;
if (not $arr{startflag} ) {
$offset = 2;
} elsif ( $arr{startflag} == 1 ) {
$offset = 1;
}
print "$doctype\n". $lex{'Transcript'}. ' '. $lex{Report}. "
\n";
print "\n";
print "$chartype\n\n";
print "[ ". $lex{Main}. " |\n";
print "". $lex{'Report Card'}. " ]\n";
print " ". $lex{'Edit Transcripts'}. "\n";
if (not $arr{startflag} ) {
showStartPage();
} elsif ( $arr{startflag} == 1 ) {
delete $arr{startflag};
processSearch();
} elsif ( $arr{startflag} == 2 ) {
delete $arr{startflag};
printTranscriptsHTML();
printTranscriptsPDF();
}
#----------------
sub showStartPage {
#----------------
# print sortorder and selection input form.
print "
". $lex{'Transcripts Report'}. "
\n";
print "\n";
print "\n";
exit;
}
#----------------
sub processSearch {
#----------------
# Passed: student, group, select
#foreach my $key (keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my @students;
if ( $arr{student} ) { # We are looking for a single student...
my $student = $arr{student};
# Setup the Search
if ($student =~ /\d+/) { # we have a student number
push @students, $student;
} else { # we have words hopefully with a comma
my ($lastname,$firstname) = split /\,/, $student;
$firstname =~ s/^\s*//;
$lastname =~ s/^\s*//;
if ($lastname and $firstname){ # both entered.
$sth = $dbh->prepare("select studnum from tscriptident
where lastname = ? and firstname = ?");
$sth->execute( $lastname, $firstname );
} elsif ($lastname and not $firstname){ # only lastname (no comma)
if (length($lastname) == 2){ # search by initials: fi, li.
my $fi = substr($lastname,0,1). '%';
my $li = substr($lastname,1,1). '%';
$sth = $dbh->prepare("select studnum from tscriptident
where lastname $sql{like} ? and firstname $sql{like} ?");
$sth->execute( $li, $fi );
} else {
$sth = $dbh->prepare("select studnum from tscriptident
where lastname = ? order by firstname");
$sth->execute( $lastname );
}
} else { # print an error....
print '