#!/usr/bin/perl
# Copyright 2001-2025 Leslie Richardson
# This file is part of Open Admin for Schools.
# View Land Based Education Records
my %lex = ('Main' => 'Main',
'Error' => 'Error',
'Continue' => 'Continue',
'Start Date' => 'Start Date',
'End Date' => 'End Date',
);
use DBI;
use CGI;
use Cwd;
my $self = 'landView.pl';
my $editScript = './landEdit.pl';
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, not teacher tcgi
$tchcss = $css;
$tchpage = $homepage;
$tchdownloaddir = $downloaddir;
$tchwebdownloaddir = $webdownloaddir;
}
my $q = new CGI;
print $q->header( -charset, $charset);
my %arr = $q->Vars;
my $userid = $ENV{'REMOTE_USER'};
$userid = 'Fred';
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
# Page Header
my $title = qq{View Land Based Education Records};
print qq{$doctype\n$title\n};
print qq{\n};
if ( not $arr{page} ) { # calendar popup.
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} ) {
showStartPage();
} elsif ( $arr{page} == 1 ) {
delete $arr{page};
showLBEvents();
}
#----------
sub fmtDate {
#----------
my ( $year, $mon, $day ) = split /-/, shift;
return "$year-$s_month[$mon]-$day";
}
#----------------
sub showStartPage {
#----------------
# foreach my $key ( sort keys %arr ) { print "K:$key V:$arr{$key} \n"; }
# Setup Year-Months.
my @months;
my %months;
my ($sy, $sm, $sd) = split('-', $schoolstart); # schoolstart is global var from config.
my $yrmo = "$sy-$sm";
push @months, $yrmo;
$months{$yrmo} = "$s_month[$sm]-$sy";
for my $i (1..10) {
my $mo = $sm + $i;
my $yr = $sy;
if ( $mo > 12 ) {
$mo = $mo - 12;
$yr++;
}
my $yrmo = "$yr-$mo";
push @months, $yrmo;
$months{$yrmo} = "$s_month[$mo]-$yr";
}
print qq{
\n};
print qq{
Select Month
# Recs
\n};
my $sth = $dbh->prepare("select count(*) from landedu where year(date) = ? and month(date) = ? ");
# month is passed as 2025-03 format
foreach my $mo ( @months ) { # mo is yyyy-mm
# Count Records for each month
my ($y,$m) = split('-', $mo);
$sth->execute($y,$m);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $count = $sth->fetchrow;
print qq{
\n};
print qq{\n};
print qq{
$count
\n};
}
print qq{
\n};
print qq{\n};
exit;
}
#---------------
sub showLBEvents {
#---------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# just passed year-month
my $sth = $dbh->prepare("select * from landedu where year(date) = ? and month(date) = ? ");
my ($y,$m) = split('-', $arr{month} );
$sth->execute($y,$m);
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $first = 1;
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
if ( $first ) { # start the table.
print qq{