#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. my %lex = ('Main' => 'Main', 'Error' => 'Error', 'Add' => 'Add', 'Score' => 'Score', 'Student' => 'Student', 'Continue' => 'Continue', 'Save' => 'Save', 'Homeroom' => 'Homeroom', 'Select' => 'Select', 'Record' => 'Record', ); use DBI; use CGI; use Time::JulianDay; my $self = 'atpAdd.pl'; my $q = new CGI; my %arr = $q->Vars; my @time = localtime(time); my $year = $time[5] + 1900; my $month = $time[4] + 1; my $day = $time[3]; if ( length $month == 1 ) { $month = '0'. $month; } if ( length $day == 1 ) { $day = '0'. $day; } my $currdate = "$year-$month-$day"; 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); print $q->header( -charset, $charset ); # Page Header my $title = qq{$lex{Add} Attitude/Academic $lex{Scores}}; print qq{$doctype\n$title\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}; enterScores(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeScores(); } #---------------- sub showStartPage { #---------------- # Get the homeroom students of this teacher # Get Homeroom my @homerooms; my $sth = $dbh->prepare("select distinct homeroom from student where homeroom is not NULL and homeroom != ''"); $sth->execute; if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } while ( my $homeroom = $sth->fetchrow ) { push @homerooms, $homeroom; } @homerooms = sort {$a <=> $b} @homerooms; # Get Teacher Name my $sth = $dbh->prepare("select firstname, lastname from staff where userid = ?"); $sth->execute($userid); if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; } my ($fn,$ln) = $sth->fetchrow; # Get the Year-Month for entry. my ($y,$m,$d) = split('-', $schoolstart); # loaded from admin.conf file my @yrmo; # ordered by year-month foreach my $m (9..12) { # do fall push @yrmo, qq{$y-$m}; } $y++; # increment year foreach my $m (1..6) { # do fall push @yrmo, qq{$y-$m}; } my $hrcount = scalar @homerooms; # print qq{
HR:@homerooms - $hrcount
\n}; # print qq{
YR-MO:@yrmo
\n}; # Start Form print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Homeroom print qq{\n}; print qq{\n}; # Year-Month Select print qq{}; print qq{\n}; print qq{
Please Select Homeroom and Month
Homeroom
Year-Month}; foreach my $yrmo ( @yrmo ) { my ($y,$m) = split('-', $yrmo); print qq{ $month[$m], $y
\n}; } print qq{
\n}; print qq{
\n}; print qq{\n}; exit; } # end of showStartPage #-------------- sub enterScores { #-------------- # print qq{
Enter Scores
\n}; # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } if ( not $arr{yrmo} or not $arr{homeroom} ) { print qq{

$lex{Error}: Missing Value

\n}; print qq{\n}; exit; } my ($y,$m) = split('-', $arr{yrmo}); # Show Choices print qq{

Scores for Homeroom $arr{homeroom} on $month[$m], $y

\n}; # Print Form Heading print qq{
\n}; print qq{\n}; print qq{\n}; my $sth1 = $dbh->prepare("select score from atp_academic where studnum = ? and yrmo = ?"); my $sth2 = $dbh->prepare("select score from atp_attitude where studnum = ? and yrmo = ?"); my $first = 1; my $sth = $dbh->prepare("select * from student where homeroom = ? order by lastname, firstname"); $sth->execute( $arr{homeroom} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $sref = $sth->fetchrow_hashref ) { my %s = %$sref; my $studnum = $s{studnum}; if ( $first ) { print qq{
\n}; print qq{\n}; print qq{}; print qq{\n}; $first = 0; } print qq{\n}; # Get acadmic score if any $sth1->execute( $studnum, $arr{yrmo} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $acScore = $sth1->fetchrow; # Get attitude score if any $sth2->execute( $studnum, $arr{yrmo} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $atScore = $sth2->fetchrow; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{
$lex{Student}Academic
$lex{Score}		Attitude
$lex{Score}
$s{lastname}, $s{firstname}
\n}; print qq{
\n}; exit; } # end of enterScores #--------------- sub writeScores { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $userid = $ENV{'REMOTE_USER'}; # needed to store; my $yrmo = $arr{yrmo}; delete $arr{yrmo}; my $sth1 = $dbh->prepare("select * from studentall where studnum = ?"); foreach my $key ( keys %arr ) { my ($type, $studnum) = split(':', $key); my $table = 'atp_attitude'; if ( $type eq 'AC' ) { # academic table $table = 'atp_academic'; } # Check for existing record for this student. If so, get record id my $sth = $dbh->prepare("select id from $table where studnum = ? and yrmo = ?"); $sth->execute( $studnum, $yrmo ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $id = $sth->fetchrow; # print qq{ID:$id SN:$studnum Tbl:$table YRMO:$yrmo
\n}; if ( $id ) { # just update. my $sth1= $dbh->prepare("update $table set score = ? where id = ?"); $sth1->execute( $arr{$key}, $id ); # $arr{$key} is the value. if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } else { # insert a new record if ( not $arr{$key} ) { next; } # skip if no value my $sth2 = $dbh->prepare("insert into $table (userid, studnum, yrmo, score) values ( ?, ?, ?, ? )"); $sth2->execute($userid, $studnum, $yrmo, $arr{$key}); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } } } print qq{

Records Stored/Updated

\n}; print qq{\n}; exit; } # end of writeScores