#!/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', 'Student' => 'Student', 'No User Id' => 'No User Id', 'No Password' => 'No Password', 'Please Log In' => 'Please Log In', 'Select' => 'Select', 'Select' => 'Select', 'Students' => 'Students', 'No Students Found' => 'No Students Found', 'Group' => 'Group', 'Students' => 'Students', 'Edit' => 'Edit', 'Delete' => 'Delete', 'Yes' => 'Yes', 'Confirm' => 'Confirm', 'Start Date' => 'Start Date', 'End Date' => 'End Date', 'Hours' => 'Hours', 'Record(s) Deleted' => 'Record(s) Deleted', 'More' => 'More', 'Record(s) Updated' => 'Record(s) Updated', 'Update' => 'Update', 'Program' => 'Program', 'Comment' => 'Comment', 'Dropped' => 'Dropped', 'Kit' => 'Kit', 'Lesson' => 'Lesson', 'Number' => 'Number', 'Initial' => 'Initial', 'Attended' => 'Attended', 'Not Found' => 'Not Found', ); use DBI; use CGI; use CGI::Session; my $self = 'lintStudDelEd.pl'; my $q = new CGI; my %arr = $q->Vars; my @tim = localtime(time); my $year = $tim[5] + 1900; my $month = $tim[4] + 1; my $day = $tim[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 qq{$lex{Error} $self: $@
\n}; die qq{$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; my ( $userid, $duration); # 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{Main} ]

\n}; 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{Edit}/$lex{Delete} $lex{Students}"; print qq{$doctype\n$title\n}; print qq{\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}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectStudents(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; editRecords(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; confirmDelete(); } elsif ( $arr{page} == 4 ) { delete $arr{page}; updateRecords(); } elsif ( $arr{page} == 5 ) { delete $arr{page}; deleteRecords(); } #---------------- sub showStartPage { #---------------- print qq{

$title

\n}; # both edit and delete print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Edit or Delete print qq{\n}; print qq{\n}; # Load existing programs (ie. lint groups) my $sth = $dbh->prepare("select p.*, s.lastname,s.firstname from lint_program p left join staff s on s.userid = p.userid order by startdate desc, s.lastname, s.firstname"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; # Get Staff Member Name; part of main query. my $teachername; if ( $r{lastname} ) { $teachername = qq{$r{lastname}, $r{firstname}}; } else { $teachername = qq{}; print qq{$lex{'Not Found'}:$r{userid}} } print qq{\n}; print qq{\n}; } # Edit or Delete print qq{\n}; print qq{
$lex{Select} $lex{Group}
}; print qq{
NameStart DateEnd DateDescription
$teachername$r{startdate}$r{enddate}$r{groupdesc}
}; 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 $mode eq 'edit'; if ( $arr{delete} ) { $mode = 'delete'; } my $title = "$lex{Edit} $lex{Students}"; my $page = 2; # edit if ( $mode eq 'delete' ) { $title = "$lex{Delete} $lex{Students}"; $page = 3; # delete } print qq{

$title

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; my $sth = $dbh->prepare("select l.*,s.lastname,s.firstname from lint_student l, studentall s where s.studnum = l.studnum and progid = ? order by s.lastname, s.firstname, l.id"); $sth->execute( $arr{program} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $ref = $sth->fetchrow_hashref ) { my %sr = %$ref; print qq{}; print qq{\n}; } if ( $first ) { print qq{
$lex{Student}$lex{'Start Date'}$lex{'End Date'}$lex{Hours}
\n}; print qq{$sr{lastname}, $sr{firstname}$sr{startdate}$sr{enddate}$sr{programhours}

$lex{'No Students Found'}

\n}; print qq{\n}; exit; } # Submit print qq{\n}; print qq{\n}; print qq{\n}; exit; } # end of selectStudents #---------------- sub confirmDelete { #---------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } my $sth = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); my $sth1 = $dbh->prepare("select * from lint_student where id = ?"); # print qq{

$lex{Confirm} $lex{Delete}

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; foreach my $id ( keys %arr ) { # Get lint record $sth1->execute( $id ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth1->fetchrow_hashref; my $studnum = $ref->{studnum}; # Get student name $sth->execute( $studnum ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ( $lastname, $firstname ) = $sth->fetchrow; print qq{\n }; } print qq{
$lex{Confirm} $lex{Delete}
$firstname $lastname
}; print qq{

\n}; print qq{
\n}; print qq{\n}; exit; } #-------------- sub editRecords { #-------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } print qq{

$lex{Edit} $lex{Students}

\n}; # Start Form print qq{
\n}; print qq{\n}; print qq{

\n}; # Prepare Queries my $sth = $dbh->prepare("select * from lint_student where id = ?"); my $sth1 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?"); foreach my $id ( keys %arr ) { # Get Lint Record $sth->execute( $id ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $ref = $sth->fetchrow_hashref; my %sr = %$ref; my $id = $sr{id}; # Get Student Name $sth1->execute( $ref->{studnum} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my ($lastname, $firstname ) = $sth1->fetchrow; # Start Table print qq{\n}; # Student Name print qq{\n}; # Hours print qq{\n}; print qq{\n}; # Kit print qq{\n}; print qq{\n}; # Lesson Number print qq{\n}; print qq{\n}; # Comment print qq{\n}; print qq{\n}; # Override Text. print qq{\n}; # Start Date - Late Entry print qq{\n}; print qq{\n}; # Attendance - Program Hours Enrolled - Late Entry print qq{\n}; print qq{\n}; # Withdraw Type my %wdtype = (dropped => Dropped, moved => Moved ); print qq{\n}; print qq{\n}; # End Date print qq{\n}; print qq{\n}; print qq{
}; print qq{$firstname $lastname
$lex{Program} $lex{Hours} $lex{Attended}\n}; print qq{
$lex{Initial} $lex{Kit}
$lex{Initial} $lex{Lesson} $lex{Number}
$lex{Comment}
}; print qq{The following values are only entered if a student enters \n}; print qq{the program late or exits the program early (ie. drops)
$lex{'Start Date'}\n}; print qq{\n}; print qq{
Program Hours Enrolled Late Entry\n}; print qq{
Withdrawal Type
$lex{'End Date'}\n}; print qq{ Student Dropped

\n}; print qq{\n}; } print qq{

\n}; print qq{
\n}; print qq{[ $lex{Main} ]\n}; print qq{\n}; exit; } # end of editRecords #-------------- sub updateRecords { #-------------- # print qq{Edit Records
\n}; #foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } foreach my $key ( keys %arr ) { my ( $id, $field) = split(/:/, $key); if ( $field eq 'attendance' ) { $arr{$key} =~ s/\%//; } # Strip % if found. my $sth; if ( $arr{$key} eq '' or not defined $arr{$key} ) { $sth = $dbh->prepare("update lint_student set $field = NULL where id = ?"); $sth->execute( $id); } else { $sth = $dbh->prepare("update lint_student set $field = ? where id = ?"); $sth->execute( $arr{$key}, $id); } if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } } print qq{

$lex{'Record(s) Updated'}

\n}; print qq{[ $lex{Main} ]\n}; print qq{\n}; exit; } # end of updateRecords #---------------- sub deleteRecords { # delete student records #---------------- # foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key}
\n}; } my $sth = $dbh->prepare("delete from lint_student where id = ?"); foreach my $key ( keys %arr) { $sth->execute( $key ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } } print qq{

$lex{'Record(s) Deleted'}

\n}; # print qq{

[ $lex{Main} ]\n}; print qq{

\n}; print qq{

\n}; print qq{\n}; exit; }