#!/usr/bin/perl
# Copyright 2001-2024 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('Main' => 'Main',
'Report Card' => 'Report Card',
'Move Course Evaluations' => 'Move Course Evaluations',
'Last,First/Last/Initials/Studnum' =>
'Last,First/Last/Initials/Studnum',
'Student' => 'Student',
'No Student(s) Found' => 'No Student(s) Found',
'Checked' => 'Checked',
'Continue' => 'Continue',
'Current' => 'Current',
'Move To' => 'Move To',
);
my $self = 'evalmove.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);
$dbh->{mysql_enable_utf8} = 1;
# Print Page Header
my $title = $lex{'Move Course Evaluations'};
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};
print qq{
$title - To Another Section
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
selectCourse();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
moveEval();
}
#----------------
sub showStartPage {
#----------------
print qq{\n};
exit;
}
#-----------------
sub selectCourse { # select student courses to move.
#-----------------
#foreach my $key ( sort keys %arr) { print qq{K:$key V:$arr{$key} \n}; }
# Outline: Find the student(s), find their courses, find matching ones.
# Pass the changes onto moveEval;
my $student = $arr{student};
my $sth;
if ( $student =~ /^\d+/) { # we have a student number
$sth = $dbh->prepare("select studnum from studentall where studnum = ?");
$sth->execute( $student );
} else { # we have words hopefully with a comma
($lastname,$firstname) = split /\,/, $student;
$firstname =~ s/^\s*//;
$lastname =~ s/^\s*//;
if ( $lastname and $firstname ){ # both entered.
$sth = $dbh->prepare("select studnum from studentall
where lastname = ? and firstname = ?");
$sth->execute( $lastname, $firstname ) ;
} elsif ($lastname and not $firstname){ # only lastname (no comma)
if ( length($lastname) == 2 ){ # search by initials: fi, li.
my $fi = substr($lastname,0,1). '%';
my $li = substr($lastname,1,1). '%';
$sth = $dbh->prepare("select studnum from studentall
where lastname $sql{like} ? and firstname $sql{like} ?");
$sth->execute( $li, $fi ) ;
} else {
$sth = $dbh->prepare("select studnum
from studentall where lastname = ?");
$sth->execute( $lastname ) ;
}
}
} # end of character search
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $rows = $sth->rows;
if ( $rows < 1 ) { # student not found
print qq{
$lex{'No Student(s) Found'}
\n};
showStartPage();
}
my $sth1 = $dbh->prepare("select distinct subjcode from eval where studnum = ?");
my $sth2 = $dbh->prepare("select lastname, firstname from studentall where studnum = ?");
my $sth3 = $dbh->prepare("select description, teacher from subject where subjsec = ?");
my $sth4 = $dbh->prepare("select subjsec from subject where subjcode = ?");
# Start Form
print qq{