#!/usr/bin/perl # Copyright 2001-2023 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', 'Report Card' => 'Report Card', 'Add' => 'Add', 'Grade' => 'Grade', 'Start Term' => 'Start Term', 'End Term' => 'End Term', 'Save' => 'Save', 'Error' => 'Error', 'Exists' => 'Exists', 'Record(s) Stored' => 'Record(s) Stored', 'cannot be larger than' => 'cannot be larger than', 'Terms' => 'Terms', 'Courses' => 'Courses', 'Continue' => 'Continue', 'Course' => 'Course', ); my $studentCheck = 0; # check for students in that grade. my $defaultSection = '1'; # default section value my $maxterms = 12; # maximum size of term values. use DBI; use CGI; my $self = 'courseadd.pl'; my $defaultsequence = 100; # Starting value for sequence number. my $q = new CGI; print $q->header( -charset, $charset ); my %arr = $q->Vars; eval require "../../etc/admin.conf"; if ( $@ ) { print $lex{Error}. " $self: $@
\n"; die $lex{Error}. "$self: $@\n"; } my $title = qq{$lex{Add} $lex{Courses}}; print qq{$doctype\n$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{'Report Card'} ]\n}; my $dsn = "DBI:$dbtype:dbname=$dbase"; my $dbh = DBI->connect($dsn,$user,$password); $dbh->{mysql_enable_utf8} = 1; print qq{

$title

\n}; if ( not $arr{page} ) { getGrade(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; selectCourses(); } elsif ( $arr{page} == 2 ) { delete $arr{page}; addCourses(); } elsif ( $arr{page} == 3 ) { delete $arr{page}; addObjectives(); } elsif ( $arr{page} == 4 ) { delete $arr{page}; writeRecords(); } #----------- 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 selectCourses { #---------------- # print qq{
Select Course
\n}; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } print qq{

Select Grade $arr{grade} Courses

\n}; # Start the form print qq{
\n}; print qq{\n}; print qq{\n}; # Continue print qq{
\n}; # Start Table print qq{\n}; # Max # of Objectives print qq{\n}; print qq{\n}; # Default Section print qq{}; print qq{\n}; # Default Starting Term print qq{}; print qq{\n}; # Default Ending Term print qq{}; print qq{\n}; # Start the table. print qq{
Maxiumum # Objectives (1-20) Blank=Marks Only
Default Section
Default Start Term
Default End Term
\n}; print qq{\n}; # Load the active courses for this grade; $sth = $dbh->prepare("select * from sasked_courses where grade = ? and enddate is NULL order by code, title"); $sth->execute( $arr{grade} ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } CRS: while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my @text = split('', $r{title} ); # print qq{
$r{title} }; foreach my $val (@text) { my $v = ord($val); if ( $v > 200 ) { next CRS;} # print qq{|$v}; } # print qq{
\n}; # A Unicode regex search # if ( $r{title} =~ m/\x00c0|\x00ca/g ){ #Agrav # print qq{
Skipping:$r{title}
\n}; # next; # } print qq{}; print qq{\n}; print qq{\n}; } print qq{
CourseCodeStart Date
$r{title}$r{code}$r{startdate}
\n}; print qq{
\n}; print qq{
\n}; print qq{\n}; exit; } #-------------- sub addCourses { #-------------- # print qq{
Add Courses
\n}; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } # Passed: grade, maxobj and then the course codes. my $grade = $arr{grade}; delete $arr{grade}; if ( $arr{maxobj} > 20 or $arr{maxobj} < 0 ) { print qq{

Error in Maximum Number of objectives

\n}; print qq{\n}; exit; } my $maxobj = $arr{maxobj}; delete $arr{maxobj}; my $defsection = $arr{defsection}; delete $arr{defsection}; my $defstartterm = $arr{defstartterm}; delete $arr{defstartterm}; my $defendterm = $arr{defendterm}; delete $arr{defendterm}; # Find the number of terms; my $track = $g_MTrackTermType{$grade}; my $maxterm = scalar keys %{ $g_MTrackTerm{$track}}; # Load teachers into hash my (%teachers, %teachername); $sth = $dbh->prepare("select lastname, firstname, userid from staff order by lastname, firstname"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } while ( my ( $lastname, $firstname, $userid) = $sth->fetchrow ) { $teachers{"$lastname, $firstname ($userid)"} = $userid; $teachername{$userid} = "$lastname, $firstname ($userid)"; } # Display Current Courses. print qq{

Current Courses - Grade $grade

\n}; $sth = $dbh->prepare("select * from subject where grade = ? order by subjcode"); $sth->execute( $grade ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $first = 1; while ( my $ref = $sth->fetchrow_hashref ) { my %r = %$ref; my $subjcode = $r{subjcode}; foreach my $code ( keys %arr ) { # check if we already have this course. if ( $code == $subjcode ) { print qq{}; print qq{Duplicate Course Code $code - make sure section differs!\n}; } } if ( $first ) { print qq{\n}; print qq{}; print qq{\n}; $first = 0; } print qq{}; print qq{\n}; } if ( not $first ) { print qq{
DescriptionCodesTeacherTermsSeq
$r{description}$r{subjsec}$r{teacher}$r{startrptperiod} - $r{endrptperiod}$r{sequence}
\n}; } else { print qq{
No Current Courses
\n}; } print qq{
\n}; print qq{

New Courses to Add

\n}; # Start Form print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; # Start Table print qq{\n}; print qq{\n}; # Table Titles print qq{}; print qq{}; print qq{}; print qq{}; print qq{}; print qq{\n}; print qq{}; print qq{}; # print qq{}; # print qq{\n}; # print qq{ print qq{\n}; my $sth1 = $dbh->prepare("select title from sasked_courses where code = ?"); # Table Loop for courses. foreach my $code ( sort keys %arr ) { # get title $sth1->execute( $code ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my $title = $sth1->fetchrow; print qq{\n}; # Small Desc print qq{\n}; # Section print qq{\n}; # Start Term print qq{\n\n}; # End Term print qq{\n\n}; # Teacher print qq{\n\n}; # Sequence # print qq{}; # Gradebook Visible (ie. web visible) # print qq{\n}; # Exam Mix (Mark Mix) #print qq{}; print qq{\n\n}; } print qq{\n}; print qq{
}; print qq{ }; print qq{Hover on title for description
TitleCodeSm DescSectionStart
Term		End
Term		TeacherSequence # Gradebook
Visible		}; # print qq{Exam Mix
$title$code}; print qq{
}; print qq{
\n}; print qq{
\n}; } #---------------- sub addObjectives { #---------------- # print qq{
Add Objectives
\n}; # foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $maxobj = $arr{maxobj}; delete $arr{maxobj}; # maximum number of objectives needed. # Check for any missing values; these are the fields to check my %fields = (description => 1, endrptperiod => 1, startrptperiod => 1, section => 1, smdesc => 1, teacher => 1); # skip sequence requirement my $missingflag; foreach my $key ( sort keys %arr ) { my ($code, $field) = split(':', $key); if ( not $arr{$key} and $field) { # no value and it's one of the fields in courses print qq{
Missing Value in course code $code for field $field
\n}; $missingflag = 1; } } if ( $missingflag ) { print qq{
Please go back
\n}; print qq{\n}; exit; } # Find the code and course names (description) my %coursename; my %sort; # sort by code value foreach my $key ( keys %arr ) { my ($code, $temp) = split(':', $key ); $sort{$code} = 1; if ( $temp eq 'description' ) { $coursename{$code} = $arr{$key}; } } print qq{\n}; print qq{\n}; print qq{
}; print qq{If your course only has only marks, no objectives/outcomes entry
\n}; print qq{is required. If you have non-mark based objectives, please enter
\n}; print qq{the description that will appear on the report card. These will
\n}; print qq{also appear for evaluation entry. Note: The first objective should
\n}; print qq{be the numeric value if a mix of mark and other outcomes. }; print qq{Limit: 255 characters
\n}; # Start Form print qq{
\n}; print qq{\n}; foreach my $key (keys %arr ) { print qq{\n}; } # Save print qq{\n}; foreach my $code ( sort keys %sort ) { my $description = $coursename{$code}; # print qq{

$description ($code)

\n}; # Start Table print qq{\n}; print qq{\n}; if ( not $maxobj ) { print qq{\n}; } foreach my $obj ( 1..$maxobj ) { print qq{\n}; } print qq{
$description ($code) Objectives}; print qq{
Marks Only
$obj.
\n}; } # Save print qq{\n}; print qq{
\n}; print qq{\n}; exit; } #--------------- sub writeRecords { #--------------- # print qq{
Write Records
\n}; #foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key}
\n"; } my $grade = $arr{grade}; delete $arr{grade}; # push all data into %data. my %data; foreach my $key ( sort keys %arr ) { $arr{$key} =~ s/^\s+//g; # strip leading and trailing spaces in values. $arr{$key} =~ s/\s+$//g; my ($code, $field) = split(':', $key); $data{$code}{$field} = $arr{$key}; } foreach my $code ( sort keys %data ) { my %r = %{ $data{$code}}; $r{grade} = $grade; $r{subjcode} = $code; # Check objectives, remove any blank values foreach my $val (1..20) { my $field = 'q'. $val; if ( not exists $r{$field} ) { # doesn't exist, skip next; } if ( not $r{$field} ) { # no value, delete delete $r{$field}; } } =head # Blank Values Check my @missing; foreach my $field ( sort keys %r ) { if ( not $r{$field} ) { push @missing, $field; } } if ( @missing ) { my $fields = join(',', @missing); print qq{

Missing Fields for $code: $fields. Skipping!

\n}; next; } =cut # Section Stripping (spaces, non alphanumerics) $r{section} =~ s/\s//g; # strip any spaces in the section value. $r{section} =~ s/\W//g; # strip any non-alphanumerics. # Join Subject and Section to make Subjsec my $subjsec = $r{subjsec} = $code. '-'. $r{section}; # Check for existing subject-section ( subjsec ) my $sth = $dbh->prepare("select count(*) from subject where subjsec = ?"); $sth->execute( $subjsec ); if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; } my $count = $sth->fetchrow; if ( $count > 0 ){ print qq{

$lex{Course} $lex{Exists} - $subjsec. Skipping!

\n}; next; } # Check for start/end term errors: sequence, < 1, > maxterms # print qq{Start Term:$r{startrptperiod} End Term: $r{endrptperiod}
\n}; if ( $r{startrptperiod} > $r{endrptperiod} or $r{startrptperiod} < 1 or $r{endrptperiod} < 1 ) { print qq{

$code: $lex{'Start Term'} $lex{'cannot be larger than'} }; print qq{$lex{'End Term'} Skipping

\n}; next; } if ( $r{startrptperiod} > $maxterms or $r{endrptperiod} > $maxterms ) { print qq{

$code: $lex{Terms} $lex{'cannot be larger than'} $maxterms. Skipping

\n}; next; } $sth = $dbh->prepare("insert into subject ( subjcode, description, grade, teacher, sequence , section, subjsec, smdesc, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10, q11, q12, q13, q14, q15, q16, q17, q18, q19, q20, visible, startrptperiod, endrptperiod, location, exammix ) values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?, ?,?,?,?,?,?,?,?,?,?,?,?,?)"); # 33 fields; $sth->execute( $r{subjcode}, $r{description}, $r{grade}, $r{teacher}, $r{sequence}, $r{section}, $subjsec, $r{smdesc}, $r{q1}, $r{q2}, $r{q3}, $r{q4}, $r{q5}, $r{q6}, $r{q7}, $r{q8}, $r{q9}, $r{q10}, $r{q11}, $r{q12}, $r{q13}, $r{q14}, $r{q15}, $r{q16}, $r{q17}, $r{q18}, $r{q19}, $r{q20}, $r{visible}, $r{startrptperiod}, $r{endrptperiod}, $r{location}, $r{exammix} ); } # next code (course) if (not $DBI::errstr ) { print qq{

$lex{'Record(s) Stored'}

\n}; } else { print qq{

$lex{Error}: $DBI::errstr

}; } print qq{

[ $lex{Add} $lex{Course} |\n}; print qq{$lex{'Report Card'} ]

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