#!/usr/bin/perl
# Copyright 2001-2026 Leslie Richardson
# This file is part of Open Admin for Schools.
# setDefaultTerm.pl - set the defaultTerm for a staff member and store in their staff record.
my $self = 'setDefaultTerm.pl';
my $defaultEtcPath = '../../etc';
use DBI;
use CGI;
use Cwd;
my $prepath = q{../..};
if ( getcwd() =~ /ecgi/ ) { # we are in ecgi
$prepath = q{..};
}
eval require "$prepath/etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
# Set Path to etc directory
if ( not $g_EtcPath ) {
$g_EtcPath = $defaultEtcPath;
}
if ( getcwd() =~ /ecgi/ ) {
$tchpage = $eapage;
$tchcss = $eacss;
}
my $q = CGI->new;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $userid = $ENV{REMOTE_USER};
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Page Header
my $title = qq{Set Default Term};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
updateTerm();
}
#----------------
sub showStartPage{
#----------------
# Update Default Term for a user
my $sth = $dbh->prepare("select dbkterm from staff where userid = ?");
$sth->execute( $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
my $defaultterm = $sth->fetchrow; # personal value
print qq{\n};
print qq{\n};
exit;
} # end of showStartPage
#-------------
sub updateTerm {
#-------------
# print qq{
Update Term
\n};
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my $sth = $dbh->prepare("update staff set dbkterm = ? where userid = ?");
$sth->execute( $arr{newterm}, $userid );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
print qq{