#!/usr/bin/perl # Copyright Les Richardson 2001-2018 # This file is part of Open Administration for Schools. Released under GPL Licensing. my %lex = ('Reset' => 'Reset', 'Course' => 'Course', 'Courses' => 'Courses', 'Main' => 'Main', 'Eoy' => 'Eoy', 'Continue' => 'Continue', 'Fields' => 'Fields', 'Field' => 'Field', 'Type' => 'Type', 'Enter Values' => 'Enter Values', 'Select from List' => 'Select from List', 'No Field Selected' => 'No Field Selected', 'Field Fill' => 'Field Fill', 'Grade' => 'Grade', 'Homeroom' => 'Homeroom', 'Student Group' => 'Student Group', 'Separate with Spaces' => 'Separate with Spaces', 'Blank=All' => 'Blank=All', 'Student' => 'Student', 'Contact' => 'Contact', 'Error' => 'Error', 'Record(s) Updated' => 'Record(s) Updated', 'Blank' => 'Blank', 'Students' => 'Students', 'Current' => 'Current', 'Withdrawn' => 'Withdrawn', 'Update' => 'Update', 'Select' => 'Select', ); my $self = 'coursedelete.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); # Show top of page. my $title = qq{Course Delete}; 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} ) { getGrade(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; showCodes(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; deleteCodes(); } #----------- sub getGrade { # get the grade for entry. #----------- print qq{

Select Grade

\n}; my @grades; $sth = $dbh->prepare("select distinct grade from student"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my $grade = $sth->fetchrow ) { push @grades, $grade; } @grades = sort {$a <=> $b} @grades; print qq{\n}; print qq{\n}; foreach my $grade ( @grades ) { print qq{\n}; } print qq{
Select Grade
}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
\n}; print qq{\n}; exit; } #-------------- sub deleteCodes { #-------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $sth = $dbh->prepare("delete from sasked_courses where id = ?"); foreach my $id ( keys %arr ) { $sth->execute( $id ); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } } print qq{

Courses Deleted

\n}; print qq{
[ Restart ]
\n}; print qq{\n}; exit; } #-------------- sub showCodes { #-------------- # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Passed: Grade print qq{

Grade $arr{grade}

\n}; my $sth = $dbh->prepare("select * from sasked_courses where ( enddate is NULL or enddate = '0000-00-00' ) and grade = ? order by code"); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } $sth->execute( $arr{grade} ); # print which students we're viewing print qq{

Sask Ed Courses

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{}; print qq{\n}; print qq{\n}; print qq{\n}; # Loop through Courses my $count = 1; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; if ( $r{enddate} eq '0000-00-00' ) { $r{enddate} = ''; } print qq{}; print qq{}; print qq{\n}; $count++; if ( $count % 20 == 1 ) { print qq{}; print qq{\n}; print qq{\n}; } } # End of Course Loop print qq{
Delete!CourseCodeStartEndGradeType
}; print qq{Courses without end dates are active courses.
$count. $r{title}$r{code}$r{startdate}$r{enddate}$r{grade}$r{ctype}
DeleteCourseCodeStartEndGradeType
\n}; exit; } # end of selectChanges