#!/usr/bin/perl # Copyright 2001-2026 Leslie Richardson # This file is part of Open Admin for Schools. # Edit an existing ssp_exception record my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Edit' => 'Edit', 'Name' => 'Name', 'Update' => 'Update', 'Record(s) Updated' => 'Record(s) Updated', 'Edit not allowed' => 'Edit not allowed', 'Date' => 'Date', 'Close' => 'Close', 'Test' => 'Test', ); use DBI; use CGI; use Cwd; my $self = 'readExceptEdit.pl'; # Configuration Settings ----------------------- my $allow_author = 1; # allow author to edit my $allow_dra = 1; # allow user with reading access code to edit #----------------------------------------------- my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my @time = localtime(time); my $year = $time[5] + 1900; my $month = $time[4] + 1; my $currdate = "$year-$month-$time[3]"; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $self: $@
\n"; die $lex{Error}. "$self: $@\n"; } my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); # Teacher Site if ( getcwd() =~ /tcgi/ ){ # we are in tcgi $css = $tchcss; $homepage = $tchpage; $downloaddir = $tchdownloaddir; $webdownloaddir = $tchwebdownloaddir; } # Check for access code my $sth = $dbh->prepare("select field_value from staff_multi where field_name = 'access' and userid = ?"); $sth->execute( $userid ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $accessdra; while ( my $val = $sth->fetchrow ) { if ( uc $val eq 'DRA' ) { $accessdra = 1; } # print qq{VAL:$val ACCESS:$accessdra
\n}; } # Page Header my $title = "$lex{Edit} Reading Exceptions"; print qq{$doctype\n$title}; print qq{\n}; if ( not $arr{page} ) { # date widget print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { editException(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; writeException(); } #---------------- sub editException { #---------------- #foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # id is passed. my $id = $arr{id}; # Print Form Heading print qq{
\n}; print qq{\n}; print qq{
\n}; my $datecounter = 1; # Get Exception Record my $sth = $dbh->prepare("select * from ssp_exceptions where id = ?"); $sth->execute( $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %r = %$ref; my $studnum = $r{studnum}; =head # Access Controls my $failflag; if ( not $allow_author and not $allow_dra ) { $failflag = 1; } # nobody edits elsif ( $allow_author and $r{tauthor} ne $userid ) { $failflag = 1; } # not author if ( $allow_dra and $accessdra ) { $failflag = 0; } # allow override of author failure for catalyst. if ( $failflag ) { print qq{

$lex{'Edit not allowed'}

\n}; print qq{\n}; exit; } =cut # Get Student Record my $sth1 = $dbh->prepare("select * from studentall3 where studnum = ?"); $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $sref = $sth1->fetchrow_hashref; my %s = %$sref; # Print Table Header and Heading values print qq{\n}; print qq{}; print qq{\n}; print qq{\n}; print qq{\n}; # Date print qq{\n}; # Reason Code print qq{}; print qq{\n}; # Reason Other Code print qq{}; print qq{\n}; print qq{
\n}; # Name print qq{
$lex{Name}$s{firstname} $s{lastname}
Grade$r{tgrade}
Author$r{tauthor}
$lex{Test} $lex{Date}$r{tdate}
Reason
Other
\n}; # } # record loop end print qq{
\n}; print qq{
\n}; # print qq{\n}; print qq{\n}; exit; } #----------------- sub writeException { #----------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } foreach my $key ( sort keys %arr ) { my ($id, $field ) = split(':', $key ); =head if ( $field eq 'tdate' ) { # check validity my $err = checkDate( $arr{$key} ); if ( $err == 1 ) { print qq{

$lex{Error}: Date Outside School Year: $arr{$key}. Skipping

\n}; next; } elsif ( $err ) { print qq{

Date Error: $err. Skipping

\n}; next; } } =cut my $sth = $dbh->prepare("update ssp_exceptions set $field = ? where id = ?"); $sth->execute( $arr{$key}, $id ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } # print qq{Field:$field Id:$id Value:$arr{$key}
\n}; } print qq{

$lex{'Record(s) Updated'}

\n}; print qq{

\n}; print qq{

}; print qq{\n}; exit; } #------------ sub checkDate { #------------ use Time::JulianDay; my $date = shift; my ($y,$m,$d) = split('-',$date); if ( not $d ) { return 255; } # wrong format. if ( $m > 12 or $m < 1 ) { return 255; } if ( $d > 31 or $d < 1 ) { return 255; } my $datejd = julian_day( $y, $m, $d ); my $startjd = julian_day( split('-', $schoolstart )); my $endjd = julian_day( split('-', $schoolend )); # print qq{DATE:$date - $datejd Start:$schoolstart - $startjd End:$schoolend - $endjd
\n}; if ( $datejd > $endjd or $datejd < $startjd ) { return 1; # different code for date outside of current year; } return 0; }