#!/usr/bin/perl
# Copyright 2001-2022 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('Maintenance Menu' => 'Maintenance Menu',
'GB Main' => 'GB Main',
'Main' => 'Main',
'Error' => 'Error',
'Adjust Student Sort Order' => 'Adjust Student Sort Order',
'Delete/Compress Assessment Items' => 'Delete/Compress Assessment Items',
'Clone Assessment Items' => 'Clone Assessment Items',
'Export' => 'Export',
);
use CGI;
# required to load the css values.
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@
\n";
die $lex{Error}. " $@
\n";
}
my $q = CGI->new;
print $q->header( -charset, $charset );
my $title = $lex{'Maintenance Menu'};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} |
$lex{'GB Main'} ]\n};
print qq{$title
\n};
print qq{\n};