#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. # Edit an existing writing score record my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Edit' => 'Edit', 'Name' => 'Name', 'Update' => 'Update', 'Score' => 'Score', 'Record(s) Updated' => 'Record(s) Updated', 'Edit not allowed' => 'Edit not allowed', 'Scores' => 'Scores', 'Date' => 'Date', 'Close' => 'Close', 'Test' => 'Test', ); use DBI; use CGI; my $self = 'wrEdit.pl'; # Configuration Settings ----------------------- my $allow_author = 1; # allow author to edit my $allow_wr = 1; # allow user with math 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); # 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 $accessWR; while ( my $val = $sth->fetchrow ) { if ( uc $val eq 'WR' ) { $accessWR = 1; } # print qq{VAL:$val ACCESS:$accessWR
\n}; } # Page Header my $title = "$lex{Edit} Writing $lex{Scores}"; 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} ) { editScore(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; writeScore(); } #------------- sub editScore { #------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # id is passed. if ($arr{id} ) { # we are passed only a single value my $id = $arr{id}; delete $arr{id}; $arr{$id} = 1; # the id is now the KEY value, incase of passing of multiple records } # otherwise multiple record id's passed as keys in %arr # Print Form Heading print qq{
\n}; print qq{\n}; print qq{
\n}; my $datecounter = 1; foreach my $id ( keys %arr ) { # Get Writing Record my $sth = $dbh->prepare("select * from write_scores 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}; my $id = $r{id}; =head # Access Controls my $failflag; if ( not $allow_author and not $allow_cma ) { $failflag = 1; } # nobody edits elsif ( $allow_author and $r{tauthor} ne $userid ) { $failflag = 1; } # not author if ( $allow_cma and $accesscma ) { $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 student where studnum = ?"); $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $ref = $sth1->fetchrow_hashref; # my %s = %$ref; # Print Table Header and Heading values print qq{\n}; print qq{}; print qq{\n}; # Date print qq{}; print qq{\n}; $datecounter++; # for multiple records editing # Score print qq{}; print qq{\n}; print qq{
\n}; # Name print qq{
$lex{Name}$s{firstname} $s{lastname}
$lex{Test} $lex{Date}\n}; print qq{\n}; print qq{
$lex{Score}
\n}; } # record loop end print qq{
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; exit; } #------------- sub writeScore { #------------- # 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 ); 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; } } my $sth = $dbh->prepare("update write_scores 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; }