#!/usr/bin/perl
# Copyright 2001-2024 Leslie Richardson
# This file is part of Open Administration for Schools
# Check for missing MSS Id and PSN
use DBI;
use CGI;
my $self = 'mssCheckDemog.pl';
my %lex = ( 'Main' => 'Main',
'Error' => 'Error',
'Grade' => 'Grade',
'Homeroom' => 'Homeroom',
'Values' => 'Values',
);
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $q = CGI->new;
my %arr = $q->Vars;
print $q->header( -charset, $charset );
my $dsn = "DBI:$dbtype:dbname=$dbase";
my $dbh = DBI->connect($dsn,$user,$password);
my @tim = localtime(time);
my $year = $tim[5] + 1900;
$tim[4]++;
for (0..4){if (length($tim[$_]) == 1){ $tim[$_] = '0'.$tim[$_];}}
my $currdate = "$year-$tim[4]-$tim[3]";
my $currtime = "$tim[2]:$tim[1]:$tim[0]";
my $title = "Show Missing MSS Id or Provincial Student Number";
print qq{$doctype\n$title\n};
print qq{$chartype\n};
print qq{[ Main |\n};
print qq{Export ]\n};
print qq{
$title
\n};
showMissing();
#---------------
sub showMissing {
#---------------
#foreach my $key ( keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
# check for any students without mssid and/or prov num
my $sth = $dbh->prepare("select * from student
where (mssid is NULL or mssid = 0) or (provnum is null or provnum = '') ");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
my $first = 1;
while ( $ref = $sth->fetchrow_hashref ) {
my %r = %$ref;
if ( $first ) { # start table
print qq{
\n};
print qq{
};
print qq{Missing MSSID or Provincial Number
\n};
print qq{
Name
Grade
Prov Num
MSSID
Edit in New Tab};
print qq{
\n};
$first = 0;
}
print qq{
$r{lastname}, $r{firstname} ($r{studnum})
$r{grade}
\n};
print qq{
$r{provnum}
$r{mssid}
\n};
print qq{
};
print qq{
\n};
}
if ( not $first ) {
print qq{
\n};
} else {
print qq{
No Students Missing MSS Id or PSN
\n};
}
print qq{\n};
exit;
} # end of showMissing;