#!/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$title\n}; print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} |\n}; print qq{$lex{Gradebook} ]\n}; print qq{

$title

\n}; # Table print qq{\n}; # Mark Sheet print qq{\n}; print qq{\n\n}; # Course Report print qq{\n}; print qq{\n\n}; # Student Report print qq{\n\n}; # Student Password Report print qq{\n\n}; print qq{
\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{
\n}; print qq{		 }; print qq{
\n}; print qq{
\n}; print qq{		 }; print qq{
\n}; print qq{\n};