#!/usr/bin/perl
# Copyright 2001-2026 Leslie Richardson
# This file is part of Open Admin for Schools.
%lex = ('Main' => 'Main',
'Top' => 'Top',
'No Records Found' => 'No Records Found',
'All Records' => 'All Records',
'Error' => 'Error',
'Continue' => 'Continue',
'Lastname' => 'Lastname',
'Birthdate' => 'Birthdate',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Sort by' => 'Sort by',
'Select by' => 'Select by',
'View' => 'View',
'Students' => 'Students',
'Select by' => 'Select by',
'OR' => 'OR',
'Show Withdrawn' => 'Show Withdrawn',
);
use DBI;
use CGI;
use Cwd;
# Read config variables
eval require "../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my ($sec, $min, $hour, $mday, $mon, $year, $wday,
$yday, $iddst) = localtime(time);
$year = $year + 1900;
$mon++;
$wday++;
my $currdate = "$dow[$wday], $month[$mon] $mday, $year";
# Display top of page
my $title = "Set Teacher/TA/EA Site access";
print qq{$doctype\n$title\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ $lex{Main} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
showStartPage();
} else {
delete $arr{page};
updateAccess();
}
#---------------
sub updateAccess {
#---------------
use Data::Dumper;
$Data::Dumper::Purity = 1;
$Data::Dumper::Indent = 0;
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
my (@tchsite, @easite);
foreach my $key ( sort keys %arr ) {
my ($type,$val) = split(':', $key);
if ( $type eq 'TCH' ) {
push @tchsite, $val;
} elsif ( $type eq 'EA') {
push @easite, $val;
} else {
print qq{ERROR for val:$val KEY:$key \n};
exit;
}
}
# print qq{TCH:@tchsite \n};
# print qq{EA:@easite \n};
my $sth = $dbh->prepare("update conf_system set datavalue = ? where id = ?");
foreach my $dataname ( 'g_TchSiteAccess', 'g_EaSiteAccess' ) {
my @pos; # list of positions
if ( $dataname eq 'g_TchSiteAccess' ) {
@pos = @tchsite;
} else {
@pos = @easite;
}
my $value_ref = [ ];
my $name_ref = [ ];
# print "
@pos
\n";
@$name_ref;
@$value_ref;
# Get record id for teacher g_TchSiteAccess.
my $sth1 = $dbh->prepare("select * from conf_system where dataname = ?");
$sth1->execute($dataname);
my $ref = $sth1->fetchrow_hashref;
my %r = %$ref;
my $id = $r{id}; # id of that teacher record.
my $dataname = '*'. $dataname;
push @$name_ref, $dataname;
push @$value_ref, \@pos;
my $d = Data::Dumper->new( $value_ref, $name_ref );
my $datavalue = $d->Dump;
print qq{Datavalue:$datavalue \n};
$sth->execute( $datavalue, $id );
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
}
print qq{
Site Access Variables Updated
\n};
# Now write the file update, if requested.
print qq{
Updating Configuration File from variables
\n};
updateFiles();
print qq{\n};
exit;
}
#----------------
sub showStartPage { # Entry Values for Custom Script
#----------------
# Get All positions in staff_multi table
my @positions;
my $sth = $dbh->prepare("select distinct field_value from staff_multi where field_name = 'position'
order by field_value");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr; }
while ( my $pos = $sth->fetchrow ) {
push @positions, $pos;
}
# print "Positions:@positions \n";
# convert array into hash values for checking.
my (%tchpos, %eapos); # teachers positions and ea positions loaded from vars.
foreach my $pos ( @g_TchSiteAccess ) {
$tchpos{$pos} = 1;
}
foreach my $pos ( @g_EaSiteAccess ) {
$eapos{$pos} = 1;
}
# Start Form
print qq{