#!/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 = 'atpBalfwd.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 $userid = $ENV{'REMOTE_USER'}; 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} Balance Forward Values}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} ] $userid \n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; enterBalFwd(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; writeBalFwd(); } #---------------- 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; print qq{

$fn $ln

\n}; # 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}; # Horizontal Rule print qq{\n}; # Year-Month Select print qq{}; print qq{\n}; print qq{
Please Select Month and Homerooms
Homeroom}; foreach my $hr ( sort {$a <=> $b} @homerooms ) { print qq{ $hr
\n}; } print qq{
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 enterBalFwd { #-------------- # print qq{
Enter Balances
\n}; # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $yrmo = $arr{yrmo}; delete $arr{yrmo}; if ( not $yrmo or not %arr ) { print qq{

$lex{Error}: Missing Value

\n}; print qq{\n}; exit; } my ($y,$m) = split('-', $yrmo); my @homerooms; foreach my $key (keys %arr ) { push @homerooms, $key; } @homerooms = sort {$a <=> $b} @homerooms; # Show Choices print qq{

Balance Forwards for $month[$m], $y

\n}; # Print Form Heading print qq{
\n}; print qq{\n}; print qq{\n}; print qq{
\n}; my $sth = $dbh->prepare("select studnum, firstname, lastname from student where homeroom = ? order by lastname, firstname"); # load a balance forward value, if any my $sth1 = $dbh->prepare("select id, balfwd from atp_balfwd where yrmo = ? and studnum = ?"); foreach my $hr ( sort {$a <=> $b} @homerooms ) { my $first = 1; $sth->execute( $hr ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; if ( $first ) { print qq{\n}; print qq{\n}; print qq{\n}; $first = 0; } # load a value, if any; $sth1->execute( $yrmo, $r{studnum} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($id, $balfwd) = $sth1->fetchrow; my $recname; if ( $id ) { $recname = qq{ID:$id}; } else { # no record yet $recname = $r{studnum}; } print qq{}; print qq{\n}; } if ( not $first ) { print qq{
Homeroom $hr
$lex{Student}Balance
Forward
$r{lastname}, $r{firstname} ($r{studnum})
\n}; } else { print qq{

No Records Found for homeroom $hr

\n}; } } print qq{
\n}; print qq{
\n}; exit; } # end of enterBalFwd #--------------- sub writeBalFwd { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $yrmo = $arr{yrmo}; delete $arr{yrmo}; print qq{Year-Month: $yrmo
\n}; foreach my $key ( keys %arr ) { # print qq{K:$key VAL:$arr{$key}
\n}; my $studnum; my ($flag, $id) = split(':', $key); if ( $flag ne 'ID' ) { # we have a record already $studnum = $flag; } # Check for existing record for this student. If so, get record id # my $sth = $dbh->prepare("select id from atp_balfwd # 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}; my $sth1= $dbh->prepare("update atp_balfwd set balfwd = ? where id = ?"); my $sth2 = $dbh->prepare("insert into atp_balfwd (userid, studnum, yrmo, balfwd) values ( ?, ?, ?, ? )"); my $sth3= $dbh->prepare("delete from atp_balfwd where id = ?"); if ( $id and not $arr{$key} ) { # delete the rec $sth3->execute( $id ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } elsif ( $id ) { # update record $sth1->execute( $arr{$key}, $id ); # $arr{$key} is the value. if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } elsif ( $arr{$key} ) { # insert a record, if a value $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