#!/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', 'Report Card' => 'Report Card', 'Select a Student' => 'Select a Student', 'Select a Record' => 'Select a Record', 'Save Record' => 'Save Record', 'Edit Data Record' => 'Edit Data Record', 'Record Updated' => 'Record Updated', 'Edit Transcript Records' => 'Edit Transcript Records', 'Record Deleted' => 'Record Deleted', 'New Student Edit' => 'New Student Edit', 'Delete the Record' => 'Delete the Record', 'Confirm Record Delete' => 'Confirm Record Delete', 'Code' => 'Code', 'Subject' => 'Subject', 'Area' => 'Area', 'Term' => 'Term', 'Grade' => 'Grade', 'Difficulty' => 'Difficulty', 'School Year' => 'School Year', 'Description' => 'Description', 'Date' => 'Date', 'Credit' => 'Credit', 'Mark' => 'Mark', 'Edit' => 'Edit', 'Delete' => 'Delete', 'Error' => 'Error', 'Student Number' => 'Student Number', 'First Name' => 'First Name', 'Middle Name' => 'Middle Name', 'Last Name' => 'Last Name', 'Birthdate' => 'Birthdate', 'Student Id' => 'Student Id', 'Edit Identity' => 'Edit Identity', 'Graduation Date' => 'Graduation Date', 'Letter' => 'Letter', ); my $self = 'tscdeled.pl'; use DBI; use CGI; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $@
\n"; die $lex{Error}. " $@\n"; } my $q = CGI->new; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Page Header my $title = $lex{'Edit Transcript Records'}; print qq{$doctype\n$title $chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{'Report Card'} ]\n}; if ( $arr{studid} ) { # We have a selected student. showSelectedStudent( $arr{studid} ); } elsif ( $arr{dataid} ) { editDataRecord( $arr{dataid} ); } elsif ( $arr{identid} ) { editIdentRecord( $arr{identid} ); } elsif ( $arr{writeidentflag} ) { delete $arr{writeidentflag}; writeIdentRecord(); } elsif ( $arr{delid} ) { confirmDataDelete( $arr{delid} ); } elsif ( $arr{writedataflag} ) { delete $arr{writedataflag}; writeDataRecord(); } elsif ( $arr{deletedataflag} ) { delete $arr{deletedataflag}; deleteDataRecord( $arr{id} ); } # Student Selection my $sth = $dbh->prepare("select id, studnum, lastname, middlename, firstname from tscriptident order by lastname, firstname"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } # Print Start of Selection. print qq{

$title

\n}; print qq{}; print qq{\n}; my $count = 1; print qq{}; while ( my ( $id, $studnum, $lastname, $middlename, $firstname ) = $sth->fetchrow ) { print qq{\n}; if (not ($count % 3)){ print qq{\n};} $count++; } if ($count % 3 == 2){ print qq{\n}; } if ($count % 3 == 0){ print qq{\n}; } print qq{

$lex{'Select a Student'}
$lastname, }; print qq{$firstname $middlename ($studnum)

\n}; #---------------------- sub showSelectedStudent { #---------------------- my $id = shift; # Get Student Ident my $sth = $dbh->prepare("select studnum, lastname, middlename, firstname from tscriptident where id = ?"); $sth->execute( $id ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($studnum, $lastname, $middlename, $firstname) = $sth->fetchrow; # Get Student Data $sth = $dbh->prepare("select id, subjecttext, subjectcode, subjectarea, schoolyear, term_desc from tscriptdata where studnum = ? order by schoolyear, term"); $sth->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{

$lex{'Edit Transcript Records'} – }; print qq{$firstname $middlename $lastname

\n}; print qq{\n}; print qq{}; print qq{\n}; while (my ( $id, $subjectcode, $subjecttext, $subjectarea, $schoolyear, $term_desc ) = $sth->fetchrow ) { print qq{}; print qq{}; print qq{\n}; } print qq{

$lex{'Select a Record'}
$subjecttext ($subjectcode)	$subjectarea	$schoolyear - $term_desc	$lex{Edit}\n}; print qq{	}; print qq{$lex{Delete}}; print qq{

\n}; exit; } #----------------- sub editIdentRecord { #----------------- my $identid = shift; # Get Ident Record my $sth = $dbh->prepare("select * from tscriptident where id = ?"); $sth->execute( $identid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($id,$studnum, $lastname, $firstname, $middlename, $birthdate, $studentid, $graddate ) = $sth->fetchrow; # Note: $studentid may be a state or provincial identity number. NOT studnum (local). # The field is set in the transcript posting script. print qq{

$lex{'Edit Identity'} — $firstname $lastname

\n}; # Now print the form. print qq{\n}; exit; } # End of editIdentRecord #------------------ sub writeIdentRecord { #------------------ my $studid = $arr{id}; # for passing value below foreach my $key (keys %arr ) { $arr{$key} = $dbh->quote( $arr{$key} ); #print qq{K:$key V:$arr{$key}
\n}; } my $sth = $dbh->prepare("update tscriptident set firstname = $arr{firstname}, middlename = $arr{middlename}, lastname = $arr{lastname}, birthdate = $arr{birthdate}, studentid = $arr{studentid}, graddate = $arr{graddate} where id = $arr{id} "); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{

$lex{'Record Updated'}

\n}; print qq{[ $lex{'Edit Transcript Records'} |\n}; print qq{ $lex{'New Student Edit'} ]\n}; print qq{\n}; exit; } # end of writeIdentRecord #----------------- sub editDataRecord { #----------------- my $dataid = shift; require "../../etc/transcript.conf" or die "Cannot open transcript.conf!"; # Get Data Record my $sth = $dbh->prepare("select * from tscriptdata where id = ?"); $sth->execute( $dataid ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($id,$studnum, $subjectcode, $subjecttext, $subjectarea, $score_mark, $score_letter, $score_diff, $schoolyear, $crdate, $credit, $term, $term_desc ) = $sth->fetchrow; $sth = $dbh->prepare("select lastname, firstname from tscriptident where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname) = $sth->fetchrow; print qq{

$lex{'Edit Data Record'} — $firstname $lastname

\n}; # Now print the form. print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; } else { print qq{\n}; } print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{


$lex{Subject} $lex{Code}	}; print qq{
$lex{Subject}	}; print qq{
$lex{Subject} $lex{Area}	}; if ( %gradRequirements ) { print qq{
$lex{Mark}	}; print qq{
$lex{Letter} $lex{Grade}	}; print qq{
$lex{Difficulty}	}; print qq{
$lex{'School Year'}	}; print qq{
$lex{Date}	}; print qq{
$lex{Credit}	}; print qq{
$lex{Term}	}; print qq{
$lex{Term} $lex{Description}	}; print qq{

\n}; exit; } #------------------ sub writeDataRecord { #------------------ foreach my $key (keys %arr ) { $arr{$key} = $dbh->quote( $arr{$key} ); #print qq{K:$key V:$arr{$key}
\n}; } my $sth = $dbh->prepare("update tscriptdata set subjectcode = $arr{subjectcode}, subjecttext = $arr{subjecttext}, subjectarea = $arr{subjectarea}, score_mark = $arr{score_mark}, score_letter = $arr{score_letter}, score_diff = $arr{score_diff}, schoolyear = $arr{schoolyear}, crdate = $arr{crdate}, credit = $arr{credit}, term = $arr{term}, term_desc = $arr{term_desc} where id = $arr{id} "); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } print qq{

$lex{'Record Updated'}

\n}; # Now get student identid for record $sth = $dbh->prepare("select id from tscriptident where studnum = $arr{studnum}"); $sth->execute; my $studid = $sth->fetchrow; print qq{[ $lex{'Edit Transcript Records'} |\n}; print qq{ $lex{'New Student Edit'} ]\n}; print qq{\n}; exit; } #------------------ sub deleteDataRecord { #------------------ my $id = shift; foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Get student ident record id from data record id (2 steps). my $sth = $dbh->prepare("select studnum from tscriptdata where id = ?"); $sth->execute( $id ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $studnum = $sth->fetchrow; $sth = $dbh->prepare("select id from tscriptident where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my $studid = $sth->fetchrow; # Delete the data record. $sth = $dbh->prepare("delete from tscriptdata where id = ?"); $sth->execute( $id ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } # Response print qq{

$lex{'Record Deleted'}

\n}; print qq{[ $lex{'Edit Transcript Records'} |\n}; print qq{ $lex{'New Student Edit'} ]\n}; print qq{\n}; exit; } #------------------ sub confirmDataDelete { #------------------ my $id = shift; #foreach my $key (keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Get Data Record my $sth = $dbh->prepare("select * from tscriptdata where id = ?"); $sth->execute( $id ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($id,$studnum, $subjectcode, $subjecttext, $subjectarea, $score_mark, $score_letter, $score_diff, $schoolyear, $crdate, $credit, $term, $term_desc ) = $sth->fetchrow; # Get Student Info $sth = $dbh->prepare("select id,lastname, firstname from tscriptident where studnum = ?"); $sth->execute( $studnum ); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($studid, $lastname, $firstname) = $sth->fetchrow; print qq{

$lex{'Confirm Record Delete'} — $firstname $lastname

\n}; # Now print the form. print qq{\n}; print qq{[ $lex{'Edit Transcript Records'} |\n}; print qq{ $lex{'New Student Edit'} ]\n}; print qq{\n}; exit; }


$lex{'Student Number'}	}; print qq{$studnum
$lex{'First Name'}	}; print qq{
$lex{'Middle Name'}	}; print qq{}; print qq{
$lex{'Last Name'}	}; print qq{
$lex{'Birthdate'}	}; print qq{
$lex{'Student Id'}	}; print qq{
$lex{'Graduation Date'}	}; print qq{


$lex{Subject} $lex{Code}	}; print qq{$subjectcode
$lex{Subject}	}; print qq{$subjecttext
$lex{Subject} $lex{Area}	}; print qq{$subjectarea
$lex{Mark}	}; print qq{$score_mark
$lex{Letter} $lex{Grade}	}; print qq{$score_letter
$lex{Difficulty}	}; print qq{$score_diff
$lex{'School Year'}	}; print qq{$schoolyear
$lex{Term} $lex{Description}	}; print qq{$term_desc