#! /usr/bin/perl
# Copyright 2001-2019 Leslie Richardson
# This file is part of Open Admin for Schools.
# Query School Identities
# Find blank provincial number student and push into blank hash.
# Roll through Sask Ed records and find possible matches based on name and bdate.
# remove matches from blank hash.
# Once done SaskEd records, display remaining students w/o identity.
my $self = 'qryschident.pl';
use DBI;
use CGI;
use XML::Writer;
use XML::Writer::String;
use Data::UUID;
use HTTP::Request::Common qw(POST);
use HTTP::Headers;
use LWP::UserAgent;
use XML::LibXML;
use Time::JulianDay;
my %lex = ( 'Main' => 'Main',
'Error' => 'Error',
);
eval require "../../etc/admin.conf";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
eval require "slxmllibNew.pl";
if ( $@ ) {
print $lex{Error}. " $@ \n";
die $lex{Error}. " $@\n";
}
my $dsn = "DBI:$dbtype:dbname=$dbase";
$dbh = DBI->connect($dsn,$user,$password);
$dbh->{mysql_enable_utf8} = 1;
my $q = new CGI;
my %arr = $q->Vars;
print $q->header( -charset, $charset);
my $debug;
if ( $arr{debug} ) {
$debug = 1;
delete $arr{debug};
}
my $title = qq{SDS Query: Identity};
print qq{$doctype\n$title\n};
print qq{\n};
print qq{\n};
print qq{$chartype\n\n};
print qq{[ Main | Export ]\n};
print qq{
\n};
print qq{Query Sask Ed's records of student enrollment to locate };
print qq{student information \n for local students without provincial };
print qq{student numbers.
\n};
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 $currjd = julian_day($year,$tim[4],$tim[3]);
# First run a duplicate provnum check
my $sth = $dbh->prepare("select studnum, lastname, firstname, provnum
from student where provnum != '' order by provnum");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
my $currstud = '-1';
my $currname = '';
while ( my ($studnum, $lastname, $firstname, $provnum) = $sth->fetchrow ) {
$oldstud = $currstud;
$currstud = $provnum;
$oldlocal = $currlocal;
$currlocal = $studnum;
$oldname = $currname;
$currname = "$firstname $lastname";
if ($currstud == $oldstud) { # Ack! We have a duplicate!
print qq{
};
print qq{Duplicate for provincial student number: $currstud \n};
print qq{$currname and $oldname are duplicated!
\n};
# print qq{$currlocal - $oldlocal \n};
}
}
# Find blank kids and push studnum into %noProvnum hash.
my %noProvnum;
my $sth = $dbh->prepare("select studnum from student
where provnum = '' or provnum is null");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
while ( my $studnum = $sth->fetchrow ) {
$noProvnum{$studnum} = 1;
}
if ( not %noProvnum ) { # No kids found...
print qq{
All students have provincial numbers.
\n};
print qq{\n};
exit;
}
# Create a new user agent
my $ua = LWP::UserAgent->new();
$ua->agent("OpenAdmin");
# Grade and Provincial Number passed
$count=1;
mkQueryString($count); # Generate $output string
# DEBUG Data Errors
if ($debug){
print qq{
\n};
print qq{
DEBUG - Request sent to Sask ED
\n};
my $temp = $output->value;
$temp =~ s//>/g;
print qq{
",$temp,"
\n};
}
# Create the https post request
my $req = POST $url, [ XML=>$output->value ];
$req->content_type('application/xml;charset="utf-8"');
$req->authorization_basic($sds_userid, $sds_password);
# Issue the request and receive a response
my $res = $ua->request($req);
# Check the status of the response
if ($res->is_success) {
# For Debugging Data Errors
if ($debug){
print qq{
DEBUG - Sask Ed XML Response
\n};
print qq{
\n};
my $temp = $res->content;
$temp =~ s//>/g;
print qq{
",$temp,"
\n};
}
my $response = $res->content;
$response =~ s/\xE9/\x65/g;
# Parse the response.
my $parser = XML::LibXML->new();
eval {$doc = $parser->parse_string($response)};
if ($@){
print qq{Error: $@ \n};
$response =~ s//>/g;
print qq{