\n};
print qq{\n};
exit;
} # end of findRequirements
#-------------
sub getCredits {
#-------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my ($provnum, $dbh) = @_; # passed provincial number, dbh
# Load their completed courses
my $sth = $dbh->prepare("select courseid from sasked_completedcourses where provnum = $provnum and creditsearned = '1'");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
my %completed;
while ( my $courseid = $sth->fetchrow ) {
$completed{$courseid} = $saskedgrade{$courseid};
}
return \%completed;
} # end of getCredits
#----------------
sub checkCredit10 { # check grade 10 completion list; return any errors (missing requirements)
#----------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my ($provnum, $dbh) = @_; # passed provincial number, dbh
# Load their completed courses
my $sth = $dbh->prepare("select courseid from sasked_completedcourses where provnum = $provnum and creditsearned = '1'");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
my %completed;
while ( my $courseid = $sth->fetchrow ) {
$completed{$courseid} = 1;
}
my @incomplete; # return text based codes
my %ignore = qw(4017 4018 4214 4424 4423 4307 4306 4309); # courses required to skip in finding electives.
# Go through the completion requirements;
# 1. ELA A10 (4017)
if ( not $completed{4017} ) {
push @incomplete, 'ELA A10';
}
# 2. ELA B10 (4018)
if ( not $completed{4018} ) {
push @incomplete, 'ELA B10';
}
# 3. Science 10 (4214)
if ( not $completed{4214} ) {
push @incomplete, 'Science 10';
}
# 4. A Math (4424 (Foundations), or 4423 (Workplace))
if ( not $completed{4424} and not $completed{4423} ) { # haven't done either math
push @incomplete, '10 Math';
}
# 5. A Social Science SS10 (4307) ,Hist10 (4306) , Native Stud 10 (4309)
if ( not $completed{4307} and not $completed{4306} and not $completed{4309} ) { # haven't done any social
push @incomplete, '10 Social';
}
# 6. 3 more electives at 10 level or higher.
# Loop over completed courses
my @electives;
foreach my $courseid ( keys %completed ) {
my $grade = $saskedgrade{$courseid};
if ( $ignore{$courseid} ) { next; } # these don't count, done above.
if ( $grade < 10 ) { next; } # lower grade level
push @electives, $courseid;
}
if ( @electives < 3 ) { # error
push @incomplete, '10 Electives';
}
return @incomplete;
} # end of checkCredit10
#----------------
sub checkCredit11 { # check grade 11 completion list; return any errors (missing requirements)
#----------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my ($provnum,$dbh) = @_;
# Load their completed courses
my $sth = $dbh->prepare("select courseid from sasked_completedcourses where provnum = $provnum and creditsearned = '1'");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
my %completed;
# print qq{Credit 11:$provnum \n};
while ( my $courseid = $sth->fetchrow ) {
# print "$saskedname{$courseid} ($courseid)/ ";
$completed{$courseid} = 1;
}
my @incomplete; # return text based codes
my %ignore; # codes to ignore (since credit already given)
# Go through the completion requirements;
# 1. ELA 20 (6017)
if ( not $completed{6017} ) {
push @incomplete, 'ELA 20';
} else {
$ignore{6017};
}
# 2. Sciences ( Enviro 6246, Physical 6247, Health 6245, Computer 6702 ) (#physics 20 (6213) and chem 20 (6212) no longer allowed
my $incompleteflag = 1; # assume incomplete unless we find a completed course;
foreach my $cid ( qw(6245 6246 6247 6702 6212 6213)) {
if ( $completed{$cid} ) {
$incompleteflag = 0;
$ignore{$cid} = 1; # add this course to the ignore list, since we get a credit for this, can't be elective.
}
}
if ( $incompleteflag ) {
push @incomplete, '11 Science';
}
# 3. A Math ( 6423 Workplace, 6425 Foundations, 6426 Pre-Calculus )
my $incompleteflag = 1; # assume incomplete unless we find a completed course;
foreach my $cid (qw(6423 6425 6426)) {
if ( $completed{$cid} ) {
$incompleteflag = 0;
$ignore{$cid} = 1; # add this course to the ignore list, since we get a credit for this, can't be elective.
}
}
if ( $incompleteflag ) {
push @incomplete, '11 Math';
}
# 4. A Social Science (big list)
my $incompleteflag = 1; # assume incomplete unless we find a completed course;
foreach my $cid ( qw(6306 6309 6307 2140 2150 6340 8306 8321 8307 8339 3140 3150 8340 )) {
if ( $completed{$cid} ) {
$incompleteflag = 0;
$ignore{$cid} = 1; # add this course to the ignore list, since we get a credit for this, can't be elective.
}
}
if ( $incompleteflag ) {
push @incomplete, '11 Social';
}
# 5. 3 more electives at 11 level or higher.
# Loop over completed courses
my @electives;
foreach my $courseid ( keys %completed ) {
my $grade = $saskedgrade{$courseid};
# print "Course:$courseid Grade:$grade \n";
if ( $ignore{$courseid} ) { next; } # these don't count, done above.
if ( $grade < 11 ) { next; } # lower grade level
push @electives, $courseid;
}
if ( @electives < 3 ) { # error
push @incomplete, '11 Electives';
}
return @incomplete;
} # end of checkCredit11
#----------------
sub checkCredit12 { # check grade 12 completion list; return any errors (missing requirements)
#----------------
# foreach my $key ( sort keys %arr ) { print qq{K:$key V:$arr{$key} \n}; }
my ($provnum,$dbh) = @_;
# Load their completed courses
my $sth = $dbh->prepare("select courseid from sasked_completedcourses where provnum = $provnum and creditsearned = '1'");
$sth->execute;
if ($DBI::errstr) { print $DBI::errstr; die $DBI::errstr;}
my %completed;
# print qq{Credit 11:$provnum \n};
while ( my $courseid = $sth->fetchrow ) {
# print "$saskedname{$courseid} ($courseid)/ ";
$completed{$courseid} = 1;
}
my @incomplete; # return text based codes
my %ignore; # codes to ignore (since credit already given)
# Go through the completion requirements;
# 1. ELA A30
if ( not $completed{8017} ) {
push @incomplete, 'ELA A30';
} else {
$ignore{8017};
}
# 2. ELA B30
if ( not $completed{8018} ) {
push @incomplete, 'ELA B30';
} else {
$ignore{8018};
}
=head
# 3. Sciences ( Enviro 6246, Physical 6247, Health 6245, Computer 6702 ) (#physics 20 (6213) and chem 20 (6212) no longer allowed
my $incompleteflag = 1; # assume incomplete unless we find a completed course;
foreach my $cid qw(6245 6246 6247 6702 6212 6213) {
if ( $completed{$cid} ) {
$incompleteflag = 0;
$ignore{$cid} = 1; # add this course to the ignore list, since we get a credit for this, can't be elective.
}
}
if ( $incompleteflag ) {
push @incomplete, '11 Science';
}
# 3. A Math ( 6423 Workplace, 6425 Foundations, 6426 Pre-Calculus )
my $incompleteflag = 1; # assume incomplete unless we find a completed course;
foreach my $cid qw(6423 6425 6426) {
if ( $completed{$cid} ) {
$incompleteflag = 0;
$ignore{$cid} = 1; # add this course to the ignore list, since we get a credit for this, can't be elective.
}
}
if ( $incompleteflag ) {
push @incomplete, '11 Math';
}
=cut
# 4. A Social Science
my ($cdnflag, $g10flag, $g1112flag); # flags to show if done both gr 10 credit and 11/12 credit for these other SS courses.
foreach my $cid ( qw(8306 8321 8307)) {
if ( $completed{$cid} ) {
$cdnflag = 1;
$ignore{$cid} = 1; # add this course to the ignore list, since we get a credit for this, can't be elective.
}
}
# Now check the rest
foreach my $cid ( qw(4306 4307 4309 6306 6307 6309 2140 2150 6340 8339 3140 3150 8340 )) {
if ( $completed{$cid} ) {
if ( $saskedgrade{$cid} == 10 ) { $g10flag = 1; }
if ( $saskedgrade{$cid} == 11 or $saskedgrade{$cid} == 12 ) { $g1112flag = 1; }
$ignore{$cid} = 1;
}
}
if ( not $cdnflag or not $g10flag or not $g1112flag ) {
push @incomplete, '12 Social';
}
# 5. Electives: 6 more electives at 11 level or higher.
# Loop over completed courses
my @electives;
foreach my $courseid ( keys %completed ) {
my $grade = $saskedgrade{$courseid};
if ( $ignore{$courseid} ) { next; } # these don't count, done above.
if ( $grade < 11 ) { next; } # lower grade level
push @electives, $courseid;
}
if ( @electives < 6 ) { # error
push @incomplete, '12 Electives';
}
return @incomplete;
} # end of checkCredit12
#----------------
sub showStartPage {
#----------------
my $checked;
if ( $arr{checked} ) {
$checked = qq{checked="checked"};
}
print qq{