#!/usr/bin/perl # Copyright 2001-2024 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', 'Attendance' => 'Attendance', 'Student Not Found' => 'Student Not Found', 'Name' => 'Name', 'Date' => 'Date', 'Reasons' => 'Reasons', 'Period' => 'Period', 'Error' => 'Error', 'Course' => 'Course', 'Add' => 'Add', 'Student' => 'Student', 'Continue' => 'Continue', 'Save' => 'Save', 'Records Stored' => 'Records Stored', 'More' => 'More', 'Not Found' => 'Not Found', 'Skipping' => 'Skipping', 'Reason' => 'Reason', ); my $self = 'attAddStudent.pl'; use DBI; use CGI; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); my $title = "$lex{Add} $lex{Student} $lex{Course} $lex{Attendance}"; print qq{$doctype\n$title\n}; print qq{\n}; if ( not $arr{page} ) { # load javascript print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; } print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{ $lex{Attendance} ]\n}; print qq{

$title

\n}; if (not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectStudent(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; enterAttendance(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; writeAttendance(); } #------------------ sub writeAttendance { #------------------ # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n};} my $date = $arr{date}; delete $arr{date}; my $studnum = $arr{student}; delete $arr{student}; # Calculate DOW (Day of Week) my $jd = julian_day( split('-', $date)); my $dow = day_of_week($jd); # used next line with @dowstd array (0 is Sunday). print qq{
$lex{Attendance} $lex{Date} $date $dowstd[$dow]
\n}; my $sth1 = $dbh->prepare("select lastname, firstname from student where studnum = ?"); my $sth2 = $dbh->prepare("select description, teacher from subject where subjsec = ?"); my $sth3 = $dbh->prepare("select count(*) from attend where absdate = ? and studentid = ? and period = ?"); # attendance duplicate check. my $sth6 = $dbh->prepare("select count(*) from tattend where attdate = ? and subjects = ? and periods = ?"); # teacher attendance duplicate check. # Attendance Insert my $sth4 = $dbh->prepare("insert into attend (studentid, absdate, reason, period, subjsec) values ( ?,?,?,?,? )"); # We're not doing lates here. my $first = 1; my %subjperiods; # subjperiods{subjsec}{period} my %teacher; # teacher{subjsec} = $userid; foreach my $key ( sort keys %arr ) { if ( $arr{$key} ) { # if we have a value if ( $first ) { print qq{\n}; print qq{\n}; $first = 0; } my ( $studnum, $subjsec, $period ); ( $studnum, $subjsec, $period ) = split(':', $key ); if ( not $period or $period =~ m/\D/ ) { next; } # skip if blank, or has text value # Capture Teacher periods and subjects. $subjperiods{$subjsec}{$period} = 1; my $reason = $arr{$key}; # Get Student Name $sth1->execute( $studnum ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth1->fetchrow; # Get Course Description and Teacher $sth2->execute( $subjsec ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my ($description,$userid) = $sth2->fetchrow; $teacher{$subjsec} = $userid; if ( not $reason ) { print qq{\n}; next; } # Check for an existing record for this date, student, period. $sth3->execute( $studnum, $date, $period ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } my $count = $sth3->fetchrow; if ( $count ) { print qq{\n}; next; } # if ( not $late ) { undef $late; } # Insert the Record $sth4->execute( $studnum, $date , $reason, $period, $subjsec ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } # Show Result print qq{\n}; } # end, if we have a value } # end of for loop for each key print qq{
$lex{Student}Course$lex{Period}}; print qq{$lex{Reason}
$lastname, $firstname ($studnum)}; print qq{$description ($subjsec)$period$lex{Attendance} $lex{Reasons} $lex{'Not Found'}}; print qq{ $lex{'Skipping'}
$lastname, $firstname ($studnum)}; print qq{$description ($subjsec)$periodA Record already exists!\n}; print qq{ $lex{'Skipping'}
$lastname, $firstname ($studnum)}; print qq{$description ($subjsec)$period$reason
\n}; # Teacher Attendance Entry if ( %subjperiods ) { # Insert tattend record my $sth5 = $dbh->prepare("insert into tattend ( userid, attdate, currdate, subjects, periods ) values ( ?,?,now(),?,? )"); print qq{\n}; print qq{\n}; print qq{\n}; foreach my $subjsec ( keys %subjperiods ) { foreach my $period ( keys %{ $subjperiods{$subjsec} } ) { # check for duplicates $sth6->execute( $date, $subjsec, $period); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth6->fetchrow; if ( $count ) { next; } # Insert record. my $userid = $teacher{$subjsec}; $sth5->execute( $userid, $date, $subjsec, $period); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } print qq{\n}; } # period loop } # course loop } # end of teacher attendance loop print qq{
Teacher Attendance Entry
TeacherDateCourse$lex{Period}
$userid$date$subjsecPer $period
\n}; # end of teacher attendance table print qq{

$lex{'Records Stored'}

\n}; print qq{[ $lex{Main} |\n}; print qq{ $lex{Attendance} |\n}; print qq{ $lex{More} ]\n}; print qq{\n}; exit; } # end of writeAttendance #------------------ sub enterAttendance { #------------------ use Time::JulianDay; # Needs findDayInCycle function eval require "../../lib/libschedule.pl"; if ( $@ ) { print $lex{Error}. ": $@
\n"; die $lex{Error}. ": $@\n"; } # print qq{
Enter Attendance
\n}; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Passed: date, studnum, reason. my $date = $arr{date}; my $studnum = $arr{student}; my $reason = $arr{reason}; # get student record into %r hash. my $sth = $dbh->prepare("select * from student where studnum = ? "); $sth->execute($studnum); my $ref = $sth->fetchrow_hashref; my %r = %$ref; print qq{

$r{firstname} $r{lastname} ($studnum)

\n}; my $jd = julian_day( split('-', $date)); # Check for a weekend date my $dow = day_of_week($jd); if ( $dow == 0 or $dow == 6 ) { print qq{

Weekend Date

\n}; print qq{\n}; exit; } # check for a closed date. my $sth = $dbh->prepare("select count(*) from dates where date = ?"); $sth->execute($date); my $count = $sth->fetchrow; if ( $count ) { print qq{

School is Closed

\n}; print qq{\n}; exit; } # get Term my $grade = $r{grade}; my $track = $g_MTrackTermType{$grade}; my $term; my %temp = %{$g_MTrackTerm{$track}}; foreach my $trm ( sort keys %temp ) { my $start = $temp{$trm}{start}; my $end = $temp{$trm}{end}; # Check using jd of current entry date my $startjd = julian_day( split('-', $start)); my $endjd = julian_day( split('-', $end)); if ( $startjd <= $jd and $endjd >= $jd ) { $term = $trm; # term is permanent value last; } } # get Courses for this student, this term. my @courses; my $sth = $dbh->prepare("select subjcode from eval where studnum = ? and term = ?"); $sth->execute($studnum, $term); while ( my $subjsec = $sth->fetchrow ) { push @courses, $subjsec; } # print qq{Courses:@courses
\n}; # Get DayInCycle my $dayincycle = findDayInCycle( $date, $dbh ); print qq{
Attendance Date: $date }; print qq{$dowstd[$dow]
Day In Cycle: $dayincycle
\n}; print qq{Grade $grade Track $track Term $term
\n}; # Get courses taught today along with their period. my %periods; # periods{#} = @subjsec; my $sth = $dbh->prepare("select period from schedat where subjsec = ? and day = ? and term = ?"); foreach my $subjsec ( @courses ) { $sth->execute( $subjsec, $dayincycle, $term ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } while ( my $period = $sth->fetchrow ) { # there may be more than one scheduled today. if ( $period ) { # timetable today. push @{ $periods{$period} }, $subjsec; } } } my $sth = $dbh->prepare("select description, teacher from subject where subjsec = ?"); my $sth1 = $dbh->prepare("select lastname, firstname, sal from staff where userid = ?"); my $first = 1; # Start Form print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; foreach my $period ( sort {$a <=> $b} keys %periods ) { my @crs = @{ $periods{$period} }; # print qq{Courses for period $period - @crs
\n}; foreach my $crs ( @crs ) { if ( $first ) { print qq{\n}; print qq{\n}; $first = 0; } print qq{}; # Get Course/Teacher Information $sth->execute( $crs ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($desc, $teacher) = $sth->fetchrow; # Get Teacher Name $sth1->execute( $teacher ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($ln,$fn,$sal) = $sth1->fetchrow; print qq{\n}; print qq{\n}; } } # end of period loop if ($first ) { print qq{

No Courses Found

\n}; } else { # Submit / Save print qq{\n}; print qq{
Period$lex{Course}$lex{Reason}
$period$desc ($sal $fn $ln)
\n}; } print qq{
\n}; # end form entry print qq{\n}; exit; } #---------------- sub selectStudent { #---------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $student = $arr{student}; my $date = $arr{date}; my $reason = $arr{reason}; if ( not $student or not $date ) { print qq{

Missing Values

\n}; print qq{\n}; exit; } my %names; my @students; # found student numbers. my $select; # Setup the Search if ($student =~ /\d+/) { # we have a student number $select = qq{studnum = '$student'}; } else { # we have words hopefully with a comma ($lastname,$firstname) = split /\,/, $student; $firstname =~ s/^\s*//; # strip leading spaces $lastname =~ s/^\s*//; if ($lastname and $firstname){ # both entered. $select = "lastname = '$lastname' and firstname = '$firstname'"; } elsif ($lastname and not $firstname){ # only lastname (no comma) if (length($lastname) == 2){ # search by initials: fi, li. $fi = substr($lastname,0,1); $li = substr($lastname,1,1); $select = "lastname like '$li%' and firstname like '$fi%'"; } else { $select = "lastname = '$lastname'"; } } } # print "SELECT:$select
\n"; # Find the student numbers that match $sth = $dbh->prepare("select studnum, lastname, firstname, grade from student where $select order by lastname, firstname"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my ($studnum, $ln, $fn, $gr) = $sth->fetchrow ) { push @students, $studnum; $names{$studnum} = qq{$ln, $fn}; $grade{$studnum} = $gr; } if ( not @students ) { print qq{

$lex{'Student Not Found'}

\n}; print qq{\n}; exit; } # Loop through these students to select one. my $sth = $dbh->prepare("select lastname, firstname from student where studnum = ? order by lastname, firstname"); my $first = 1; foreach my $studnum ( @students ) { if ( $first ) { print qq{\n}; print qq{\n}; print qq{\n}; $first = 0; } print qq{}; # Start Form print qq{\n}; } if ( not $first ) { print qq{
Please select a student
$lex{Name}
$names{$studnum} ($studnum) Grade $grade{$studnum}}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{
\n}; } print qq{\n}; exit; } # end of selectStudent #---------------- sub showStartPage { #---------------- # Start Form print qq{
\n}; print qq{\n}; # Start Table print qq{\n}; # Student print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Date print qq{}; print qq{\n}; # Reason print qq{}; print qq{\n}; print qq{\n}; print qq{
$lex{Student}
Last,First/Last/Initials/Studnum
$lex{Date} \n}; print qq{
Default $lex{Reason}
\n}; print qq{
\n}; print qq{ \n}; print qq{\n}; exit; }