#!/usr/bin/perl # Copyright 2001-2024 Leslie Richardson # This file is part of Open Admin for Schools. # Open Admin for Schools is free software; you can redistribute it # and/or modify it under the terms of the GNU General Public License # as published by the Free Software Foundation; version 2 of # the License, only. # Basic version with only simple form add. my %lex = ('Not Found' => 'Not Found', 'Password' => 'Password', 'User Id' => 'User Id', 'Please Log In' => 'Please Log In', 'Error' => 'Error', 'Homework' => 'Homework', 'Add' => 'Add', 'Main' => 'Main', 'Subject' => 'Subject', 'Date' => 'Date', 'Time' => 'Time', 'or' => 'or', 'Continue' => 'Continue', 'Cookie Duration' => 'Cookie Duration', 'Topic' => 'Topic', 'Description' => 'Description', 'Required Field Missing' => 'Required Field Missing', 'Record(s) Stored' => 'Record(s) Stored', 'New' => 'New', 'No Subjects Found' => 'No Subjects Found', ); my $self = 'hwkadd.pl'; use DBI; use CGI; use CGI::Session; use Time::JulianDay; my $q = new CGI; my %arr = $q->Vars; 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); # Set Page Title my $title = "$lex{Add} $lex{Homework}"; # Get Session my $session = new CGI::Session("driver:$dbtype;serializer:FreezeThaw", undef,{Handle => $dbh}) or die CGI::Session->errstr; if ( not $session->param('logged_in') ){ $userid = $session->param('userid'); print $q->header( -charset, $charset ); print qq{

$title

\n}; print qq{
\n}; print qq{\n}; print qq{\n}; print qq{\n}; print qq{
\n}; exit; } my $userid = $session->param('userid'); my $duration = $session->param('duration'); $session->expire('logged_in', $duration ); print $session->header( -charset, $charset ); # HTML Page Header print qq{$doctype\n$title \n}; if ( not $arr{page} ) { # load jQuery date picker print qq{\n}; print qq{\n}; print qq{\n}; print qq{\n}; # print q{}; } # print qq{\n}; print qq{$chartype\n\n}; print qq{[ $lex{Main} ]\n}; print qq{

$title

\n}; if ( not $arr{page} ) { showStartPage(); } elsif ( $arr{page} == 1 ) { delete $arr{page}; writeRecords(); } #---------------- sub showStartPage { #---------------- # Load Subjects ... what about term? my $sth = $dbh->prepare("select description, subjsec from subject where teacher = ? order by description"); $sth->execute( $userid ); if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } my %subjects = (); while ( my ($description, $subjsec ) = $sth->fetchrow ) { $subjects{"$description ($subjsec )"} = $subjsec; } if ( not %subjects ) { print qq{

$lex{'No Subjects Found'}

\n}; print qq{\n}; exit; } # Start Form print qq{
\n}; print qq{\n}; # Start Table print qq{\n}; # Select the Subject print qq{\n}; print qq{\n}; # Select the Due Date / Time (not yet) print qq{\n}; print qq{\n}; # print qq{\n}; # Select an Existing Topic my @topics = (); my $sth = $dbh->prepare("select distinct topic from plan_homework order by topic"); $sth->execute; if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; } print qq{\n}; print qq{\n}; # Add New Description print qq{\n}; print qq{\n}; # Continue print qq{
$lex{Subject}
$lex{Date}/$lex{Time}}; print qq{\n}; print qq{
$lex{Topic} $lex{or} $lex{New} $lex{Topic} }; print qq{
$lex{Description}}; print qq{\n}; print qq{
\n}; print qq{
\n}; # script setup # print qq{\n}; # print qq{\n}; # print qq{\n}; # print qq{\n}; print qq{\n}; exit; } #--------------- sub writeRecords { #--------------- # foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key}
\n}; } # Make sure it has the right fields filled in if ( not $arr{date} or not $arr{description} or not $arr{subjsec} ) { print qq{

$lex{'Required Field Missing'}

\n}; print qq{\n}; exit; } if ( $arr{newtopic} ) { $arr{topic} = $arr{newtopic}; } my $sth = $dbh->prepare("insert into plan_homework ( subjsec, teacher, duedatetime, topic, description ) values(?,?,?,?,? )"); if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; } $sth->execute( $arr{subjsec}, $userid, $arr{date}, $arr{topic}, $arr{description} ); if (not $DBI::errstr ) { print qq{

$lex{'Record(s) Stored'}

\n}; } else { print qq{

$lex{Error}: $DBI::errstr

}; } print qq{

[ $title ]

\n}; print qq{\n}; exit; } # End of writeRecords