\n";
print "| Error | Name |
|---|
\n";
while ( my ( $lastname, $firstname, $studnum, $provnum, $birthdate, $grade,
$healthid, $sex, $address1, $prov1, $pcode1 ) = $sth->fetchrow ) {
# Check Provincial Number
if ( $provnum ) {
my $temppn = $provnum;
my $tempcd = chop( $temppn );
my $checkdigit = &checkprovnum( $temppn );
if ( $checkdigit != $tempcd ) {
print "| Parity Error | \n";
#print "[ Edit]\n";
print " | $lastname, $firstname";
print "($studnum/$birthdate) - Prov #: $provnum | ";
print "
\n";
}
}
# Check Health Number
$healthid =~ s/ //g; # strip spaces
if ( checkHealthId( $healthid ) ) {
print "| Parity Error | ";
print" $lastname, $firstname";
print "($studnum) - HSN#: $healthid |
\n";
}
# else {
# print "| No Health Services Number | ";
# print" $lastname, $firstname ($studnum) |
\n";
# }
# Check Gender Values ( M or F) and fix if necessary
if ( $sex ) { # Check Gender
if ( $sex ne 'M' and $sex ne 'F' ) { # Error
if ( $sex eq 'm' or 'f' ) { #fix case.
$sex = uc( $sex );
my $sth1 = $dbh->prepare("update student set sex = ? where studnum = ?");
# $sth1->execute( $sex, $studnum );
if ($DBI::errstr) { print $DBI::errstr; die;}
} else { # not fixable.
print "| Gender Error | ";
print" $lastname, $firstname ($studnum) - Gender:$sex |
\n";
}
}
} else {
print "| Missing Gender | ";
print" $lastname, $firstname ($studnum) |
\n";
}
# Get and Check the Grade
if ( $grade eq 'k' or $grade eq 'pk' or $grade eq 'p3' ) {
$grade = uc( $grade );
my $sth1 = $dbh->prepare("update student set grade = ? where studnum = ?");
# $sth1->execute( $grade, $studnum );
if ($DBI::errstr) { print $DBI::errstr; die;}
} else { # Do more checking.
my @gradelist = qw(K PK K3 1 2 3 4 5 6 7 8 9 10 11 12 );
my $pass = 0;
foreach my $gr ( @gradelist ) {
if ( $grade eq $gr ) { $pass = 1; last; }
}
if ( not $pass ) {
print "| Grade Error | ";
print" $lastname, $firstname ($studnum) - Grade:$grade |
\n";
}
}
# Get Address Info; returns an address hash.
# foreach my $key ( sort keys %sr ) { print "K:$key V:$sr{$key}
\n"; }
# Check Address, Province, Postal Code.
if ( not $address1 ) {
print "| Missing Address | ";
print" $lastname, $firstname ($studnum) |
\n";
}
# Check Postal Code
if ( not $pcode1 ) {
print "| Missing Postal Code | ";
print" $lastname, $firstname ($studnum) |
\n";
} else { # Test the code
my $testpc = $pcode1;
if ( !( $testpc =~ m/^\s*([a-z]\s*\d){3}\s*$/i ) ) { # failure!
print "| Invalid Postal Code - $testpc | ";
print" $lastname, $firstname ($studnum) |
\n";
}
}
# Check Province (and fix, if possible)
my $fail = 0;
if ( not $prov1 ) {
print "| Missing Province Code | ";
print" $lastname, $firstname ($studnum) |
\n";
} else { # test for case problems and also 'Sask' variant.
my $testprov = $prov1;
if ( uc($testprov) ne $prov1 ) { # we have a case error.
$prov1 = uc( $testprov );
$fail = 1;
} elsif ( lc( $testprov ) eq 'sask' ) {
$prov1 eq 'SK';
$fail = 1;
}
if ( $fail ) { # rewrite update
my $sth1 = $dbh->prepare("update student set prov1 = ? where studnum = ?");
# $sth1->execute( $prov1, $studentid );
if ($DBI::errstr) { print $DBI::errstr; die;}
}
}
} # End of Student Loop
print "