#!/usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('Reports' => 'Reports',
'Gradebook' => 'Gradebook',
'Main' => 'Main',
'Student' => 'Student',
'Report' => 'Report',
'Course' => 'Course',
'Blank Mark Sheets' => 'Blank Mark Sheets',
'Password' => 'Password',
'Error' => 'Error',
);
use DBI;
use CGI::Session;
use CGI;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " : $@
\n";
die $lex{Error}. ": $@\n";
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
my $q = CGI->new;
my $userid = $ENV{'REMOTE_USER'};
print $q->header( -charset, $charset );
my $title = qq{$lex{Gradebook} $lex{Reports}};
print qq{$doctype\n
\n}; print qq{ | A Mark Sheet to record on paper your raw scores for student tests/evaluations. It will be sorted in the same order as the gradebook with new students at the bottom (assuming you have changed the sorting order (maintenance menu) in order not to mess up existing test score sheets) |
\n}; print qq{ | }; print qq{ |
\n}; print qq{ | }; print qq{ |
\n}; print qq{ | }; print qq{ |