#!/usr/bin/perl
# Copyright 2001-2025 Leslie Richardson
# This file is part of Open Admin for Schools.
# Edit an existing land edu record
my %lex = ('Main' => 'Main',
'Error' => 'Error',
'Edit' => 'Edit',
'Name' => 'Name',
'Update' => 'Update',
'Record Updated' => 'Record Updated',
'Edit not allowed' => 'Edit not allowed',
'Date' => 'Date',
'Close' => 'Close',
'Location' => 'Location',
'Time' => 'Time',
'Action' => 'Action',
'Taken' => 'Taken',
);
use DBI;
use CGI;
use Cwd;
my $self = 'landEdit.pl';
# Configuration Settings -----------------------
#my $allow_author = 1; # allow author to edit
#my $allow_admin = 1; # allow anyone on the admin site to edit.
#-----------------------------------------------
my $q = new CGI;
print $q->header( -charset, $charset );
my %arr = $q->Vars;
my @time = localtime(time);
my $year = $time[5] + 1900;
my $month = $time[4] + 1;
my $currdate = "$year-$month-$time[3]";
my $userid = $ENV{'REMOTE_USER'};
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $self: $@ \n";
die $lex{Error}. "$self: $@\n";
}
# Get current dir so know what CSS to display and shift settings.
if ( getcwd() !~ /tcgi/ ) { # we are in cgi
$tchcss = $css;
$tchpage = $homepage;
$tchdownloaddir = $downloaddir;
$tchwebdownloaddir = $webdownloaddir;
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Page Header
my $title = "$lex{Edit} Land Based Education Records";
print qq{$doctype\n$title};
print qq{\n};
if ( not $arr{page} ) { # date widget
print qq{\n};
print qq{\n};
print qq{\n};
print qq{\n};
}
print qq{$chartype\n\n};
print qq{[ $lex{Main} ]\n};
print qq{
$title
\n};
if ( not $arr{page} ) {
editLandEdu();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
writeLandEdu();
} elsif ( $arr{page} == 2 ) {
delete $arr{page};
deleteLandEdu();
}
#---------------
sub deleteLandEdu {
#---------------
#foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# id is passed.
my $id = $arr{id};
delete $arr{id};
my $sth = $dbh->prepare("select * from landedu where id = ?");
$sth->execute( $id );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
my $ref = $sth->fetchrow_hashref;
if ( $ref->{author} ne $userid ) {
print qq{
Deletion not allowed if not author
\n};
print qq{};
print qq{\n};
exit;
}
# Delete LBE Record
my $sth = $dbh->prepare("delete from landedu where id = ?");
$sth->execute( $id );
if ( $DBI::errstr ){ print $DBI::errstr; die $DBI::errstr; }
print qq{