\n};
print qq{| Error | Name |
|---|
\n};
my $first = 1;
while ( my ( $studid,$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 qq{| Parity Error | \n};
print qq{\n};
print qq{$lastname, $firstname};
print qq{($studnum/$birthdate) - Prov #: $provnum | };
print qq{
\n};
$first = 0;
}
}
# Check Health Number
$healthid =~ s/ //g; # strip spaces
if ( checkHealthId( $healthid ) ) {
print qq{| Parity Error | };
print qq{\n};
print qq{$lastname, $firstname};
print qq{($studnum) - HSN#: $healthid |
\n};
$first = 0;
}
=head
if ( not $healthid ) {
print qq{| No Health Services Number | };
print" $lastname, $firstname ($studnum) |
\n};
$first = 0;
}
=cut
# 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 $sex eq '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 $DBI::errstr;}
$first = 0;
} else { # not fixable.
print qq{| Gender Error | };
print qq{\n};
print qq{ $lastname, $firstname ($studnum) - Gender:$sex |
\n};
$first = 0;
}
}
} else {
print qq{| Missing Gender | };
print qq{\n};
print qq{$lastname, $firstname ($studnum) |
\n};
$first = 0;
}
# 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 $DBI::errstr; }
} else { # Do more checking.
my @gradelist = qw(K PK P3 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 qq{| Grade Error | };
print qq{\n};
print qq{$lastname, $firstname ($studnum) - Grade:$grade |
\n};
$first = 0;
}
}
# Get Address Info; returns an address hash.
# foreach my $key ( sort keys %sr ) { print qq{K:$key V:$sr{$key}
\n}; }
# Check Address, Province, Postal Code.
if ( not $address1 ) {
print qq{| Missing Address | };
print qq{\n};
print qq{ $lastname, $firstname ($studnum) |
\n};
$first = 0;
}
# Check Postal Code
if ( not $pcode1 ) {
print qq{| Missing Postal Code | };
print qq{\n};
print qq{$lastname, $firstname ($studnum) |
\n};
$first = 0;
} else { # Test the code
my $testpc = $pcode1;
if ( !( $testpc =~ m/^\s*([a-z]\s*\d){3}\s*$/i ) ) { # failure!
print qq{| Invalid Postal Code - $testpc | };
print qq{\n};
print qq{$lastname, $firstname ($studnum) |
\n};
$first = 0;
}
}
# Check Province (and fix, if possible)
my $fail = 0;
if ( not $prov1 ) {
print qq{| Missing Province Code | };
print qq{\n};
print qq{$lastname, $firstname ($studnum) |
\n};
$first = 0;
} 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 = '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
if ( $first ) {
print qq{| No Errors Found |
\n};
}
print qq{