#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # Nov 12/24 Updated to allow for decimal (3.2) scores # 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', 'Error' => 'Error', 'Edit' => 'Edit', 'Name' => 'Name', 'Update' => 'Update', 'Score' => 'Score', 'No User Id' => 'No User Id', 'No Password' => 'No Password', 'Please Log In' => 'Please Log In', 'Record(s) Updated' => 'Record(s) Updated', 'Edit not allowed' => 'Edit not allowed', 'Scores' => 'Scores', 'Date' => 'Date', 'Close' => 'Close', 'Common Math Assessment' => 'Common Math Assessment', 'Outcome' => 'Outcome', 'Test' => 'Test', ); use DBI; use CGI; use CGI::Session; my $self = 'cmaEdit.pl'; # NOW in config file math.conf # my @phases = qw(Emergent Matching Quantifying Partitioning Factoring Operating); # my @seasons = qw(Sep-2012 Nov-2012 Apr-2013 Sep-2013 Nov-2013 Apr-2014 Sep-2014 Nov-2014); # Configuration Settings ----------------------- my $allow_author = 1; # allow author to edit my $allow_cma = 1; # allow user with math access code to edit #----------------------------------------------- my $q = new CGI; 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); # Session Setup Here my $session = new CGI::Session("driver:mysql;serializer:FreezeThaw", undef,{Handle => $dbh}) or die CGI::Session->errstr; # Get/Set Session Values (a defined userid means it was passed) if ( $arr{userid} ){ # we want to login, passed userid/password pair. # Check password/userid against database (-1 no user, -2 wrong password); my $error = checkPassword($arr{userid}, $arr{password}, $dbh); if ($error == -1){ print $q->header( -charset, $charset ); login($lex{'No User Id'}); } if ($error == -2){ print $q->header( -charset, $charset ); login($lex{'No Password'}); } $cookietime = checkCookieTime( $arr{duration} ); # Set values for userid and logged_in in session $session->param( 'logged_in','1'); $session->expire( 'logged_in', $cookietime ); $session->param( 'userid',$arr{userid} ); $session->param( 'duration',$cookietime ); $userid = $arr{userid}; } else { # check logged_in value in session if ( not $session->param('logged_in') ){ $userid = $session->param('userid'); print $q->header( -charset, $charset ); print $lex{'Please Log In'}. "\n"; exit; } # Ok, we have a login. Values below we have in environment. $userid = $session->param('userid'); $duration = $session->param('duration'); if ( not ($duration =~ /\+/)) { # if not in +20m format, do so. $duration = checkCookieTime( $duration ); } $session->expire('logged_in', $duration ); } # End of check for logged_in value print $session->header( -charset, $charset ); # Session Setup End # 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 $accesscma; while ( my $val = $sth->fetchrow ) { if ( uc $val eq 'CMA' ) { $accesscma = 1; } # print qq{VAL:$val ACCESS:$accesscma
\n}; } # Page Header my $title = "$lex{Edit} $lex{'Common Math Assessment'} $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} ) { editTests(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; writeTest(); } #------------- sub editTests { #------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Passed record id for record(s) to edit; if ( not %arr ) { print qq{

No Records Selected

\n}; print qq{\n}; exit; } # Print Form Heading print qq{\n}; # end form print qq{

$lex{'Edit not allowed'}

\n}; print qq{\n}; exit; } # Get Student Name, Grade my $sth1 = $dbh->prepare("select lastname, firstname, grade from student where studnum = ?"); $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname, $grade ) = $sth1->fetchrow; # print qq{Name: $lastname $firstname
\n}; # Get Outcomes for this Grade my %outcomes; my $sth = $dbh->prepare("select oid, odesc from mathca_outcomes where grade = ?"); $sth->execute( $grade ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my ($oid, $odesc ) = $sth->fetchrow ) { $outcomes{$oid} = $odesc; } # Print Table Header and Heading values print qq{\n}; print qq{}; print qq{\n}; # Test Date print qq{}; print qq{\n}; $datecounter++; # School Year print qq{}; print qq{\n}; # Pretest or Posttest print qq{\n}; # Outcome print qq{}; print qq{\n}; # Score print qq{}; print qq{\n}; print qq{

\n}; # Name print qq{
$lex{Name}	$lastname, $firstname
$lex{Test} $lex{Date}	\n}; print qq{\n}; print qq{
School Year	\n}; print qq{ (ie 2021-2022 = 2022)
Pretest or Posttest	}; print qq{
$lex{Outcome}
$lex{Score}	}; # foreach my $score ( 1, 2, 3, 4, 'N/A' ) { # my $checked; # if ( $score eq $r{score} ) { $checked = qq{checked="checked"} } print qq{}; print qq{$score \n}; # } print qq{

\n}; print qq{

\n}; } # record loop end print qq{

\n}; print qq{\n}; print qq{\n}; print qq{\n}; exit; } #-------------- sub writeTest { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Format is: studnum:field = value; 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 mathca_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{[ CMA View ]\n}; 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; }