#!/usr/bin/perl # Copyright 2001-2021 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', 'Error' => 'Error', 'Math' => 'Math', 'Add' => 'Add', 'Math Tests' => 'Math Tests', 'Student' => 'Student', 'Continue' => 'Continue', 'Name' => 'Name', 'Save' => 'Save', 'Date' => 'Date', 'No User Id' => 'No User Id', 'No Password' => 'No Password', 'Please Log In' => 'Please Log In', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Select' => 'Select', 'Blank=All' => 'Blank=All', 'Check' => 'Check', 'Record Exists' => 'Record Exists', 'Edit Record' => 'Edit Record', 'Required' => 'Required', 'Only' => 'Only', 'Skipping' => 'Skipping', 'Next Page' => 'Next Page', 'Period' => 'Period', 'Students' => 'Students', 'Test' => 'Test', 'Missing Value' => 'Missing Value', 'Score' => 'Score', 'Record Exists' => 'Record Exists', 'Added' => 'Added', ); use DBI; use CGI; use CGI::Session; my $self = 'mathTestAdd.pl'; # Now loaded from config # 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); 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"; } eval require "./fsim.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 qq{$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 # Page Header my $title = "$lex{Add} $lex{'Math Tests'}"; print qq{$doctype\n$title\n}; print qq{\n}; 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} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; enterTests(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; writeRecords(); } #---------------- sub showStartPage { #---------------- print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
$lex{Test} $lex{Date}\n}; print qq{\n}; print qq{
$lex{Test} $lex{Period}
$lex{Select} $lex{Students}\n}; print qq{\n}; print qq{ $lex{'Blank=All'}
$lex{Check} $lex{'Next Page'}\n}; print qq{
\n
\n}; print qq{
\n}; print qq{\n}; print qq{\n}; exit; } # end of showStartPage #---------------- sub selectStudents { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $groupvalue = $arr{groupvalue}; delete $arr{groupvalue}; my $chk = $arr{chk}; delete $arr{chk}; # Check for any Blanks foreach my $key ( sort keys %arr ) { if ( not $arr{$key} ) { print qq{

$lex{'Missing Value'}: $key

\n}; print qq{\n}; exit; } } my $select; if ( $groupvalue ) { # we're picking a group if ( $arr{groupname} eq $lex{Grade} ) { $select = 'where grade = ?'; } else { $select = 'where homeroom = ?'; } } my $sth = $dbh->prepare("select lastname, firstname, studnum from student $select order by lastname, firstname"); if ( $select ) { $sth->execute( $groupvalue ); } else { $sth->execute; } if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{
$lex{Test} $lex{Date} $arr{tdate}
\n}; print qq{
$lex{Test} $lex{Period} $arr{tseason}
\n}; # Form Header print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; while ( my ( $lastname, $firstname, $studnum ) = $sth->fetchrow ) { print qq{\n}; } print qq{\n}; print qq{
\n}; print qq{
\n}; print qq{ $lastname, $firstname ($studnum)
\n}; print qq{
\n}; exit; } # end of selectStudents #------------- sub enterTests { #------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $tdate = $arr{tdate}; delete $arr{tdate}; my $tseason = $arr{tseason}; delete $arr{tseason}; # Now only student numbers left in hash... my $sth = $dbh->prepare("select * from student where studnum = ?"); my %studnames = (); my %students = (); foreach my $studnum ( keys %arr ) { # Get Student Info $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $studref = $sth->fetchrow_hashref; my $lastname = $studref->{lastname}; my $firstname = $studref->{firstname}; $studnames{"$lastname$firstname$studnum"} = $studnum; $students{$studnum} = $studref; } # use Data::Dumper; # print Dumper %students; # Print Form Heading print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{\n}; print qq{\n}; foreach my $key ( sort keys %studnames ) { my $studnum = $studnames{$key}; # Get Student Name $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my %rec = %{ $students{$studnum} }; print qq{\n}; print qq{\n}; } print qq{
$lex{Student}$lex{Score}
$rec{lastname}, $rec{firstname}
\n}; print qq{
\n}; exit; } #--------------- sub writeRecords { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $tdate = $arr{tdate}; delete $arr{tdate}; my $tseason = $arr{tseason}; delete $arr{tseason}; # Now only student scores left in hash... # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $sth1 = $dbh->prepare("select * from student where studnum = ?"); foreach my $studnum ( keys %arr ) { my $score = $arr{$studnum}; if ( not $score ) { next; } # skip blank scores # Check for existing test for this student, this reading level, and this date. my $sth = $dbh->prepare("select count(*) from math_fstep where studnum = ? and tseason = ?"); $sth->execute( $studnum, $tseason ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth->fetchrow; # Get Student Info $sth1->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $studref = $sth1->fetchrow_hashref; my %rec = %$studref; if ( $count ) { # we've already written this record.. print qq{
$lex{'Record Exists'}\n}; print qq{- $rec{firstname} $rec{lastname} ($studnum) $lex{'Period'}: $tseason }; print qq{$lex{Test} $lex{Date}: $tdate -$lex{Skipping}\n}; next; } my $age = calcAge( $rec{birthdate}, $tdate ); # Insert a record. $sth = $dbh->prepare("insert into math_fstep ( studnum, treatynum, tphase, tseason, tdate, tage, tauthor, tgrade) values ( ?, ?, ?, ?, ?, ?, ?, ? )"); $sth->execute( $studnum, $rec{treaty}, $score, $tseason, $tdate, $age, $userid, $rec{grade} ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } print qq{
$rec{firstname} $rec{lastname} $lex{Added}
\n}; } print qq{

[ $lex{Add} $lex{'Math Tests'} |\n}; print qq{$lex{Main} ]

\n}; print qq{\n}; exit; } #---------- sub calcAge { #---------- # Passed (birthdate, $currdate) my ( $birthdate, $currdate ) = @_; my ($byear,$bmonth,$bday) = split /-/,$birthdate; my ($cyear,$cmonth,$cday) = split /-/,$currdate; my $age = $cyear - $byear; my $month = $cmonth - $bmonth; #print qq{BD: $birthdate CD: $currdate Age: $age MO:$month
\n}; if ($cmonth < $bmonth){ $month = $month + 12; if ($cday < $bday){ $month--;} $age--; } elsif ($cmonth == $bmonth and $cday < $bday){ $age--; $month = 11; } elsif ($cmonth > $bmonth and $cday < $bday) { $month--; } if ( $age < 0 or $age > 100 ) { $age = 0; $month = 0; } return "$age:$month"; }