#!/usr/bin/perl
# Copyright 2001-2023 Leslie Richardson
# This file is part of Open Admin for Schools.
my %lex = ('Error' => 'Error',
'Show Help' => 'Show Help',
'Not Found' => 'Not Found',
'Close' => 'Close',
'Reading Level' => 'Reading Level',
);
my $self = 'showhelp.pl';
use DBI;
use CGI;
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. ": $@
\n";
die $lex{Error}. ": $@\n";
}
my $q = CGI->new;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Print Page Heading
my $title = $lex{'Show Help'};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
my $readtable = 'read_level_dra2';
if ( $arr{dt} == 3 ) {
$readtable = 'read_level_dra3';
}
$sth = $dbh->prepare("select readlevel, category, name, help1, help2, help3
from $readtable where id = ?");
$sth->execute( $arr{id} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ( $readlevel, $category, $name, $help1, $help2, $help3 ) = $sth->fetchrow;
print qq{$lex{'Reading Level'} };
print qq{ $readlevel - $category - $name
\n};
print qq{\n};
print qq{\n};
print qq{
\n};
print qq{\n};