\n};
print qq{| Student Name | Course | Prerequisite | Satisfying Course(s) | };
print qq{School Year | Transcript
New Tab |
|---|
\n};
# Get Problem courses; passing mark, no credit
my $count = 1;
$sth = $dbh->prepare("select * from sasked_completedcourses where finalmark >= 50 and creditsearned = 0
order by schoolyear desc");
$sth->execute;
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
while ( my $ref = $sth->fetchrow_hashref ) {
my %r = %$ref; # transcript record
# Get coursecode. Find prerequisite, if any.
my $coursecode = $r{courseid};
my $shortname = $revmap{$coursecode}; # code to shortname.
my $prereq = $prereq{$shortname}; # shortname to prerequsites.
if ( not $shortname or not $prereq ) { # not in revmap/crsmap
push @otherfails, $r{id}; # store id of record to display later (no prerequisites)
} else { # normal situation
my $prereq = $prereq{$shortname};
# print qq{Course:$prereq needed for $shortname\n};
if ( $prereq =~ m/or/ ) { # alternate course options
my @prenames = split(/\s*or\s*/, $prereq);
# Check to see if she/he has one of these courses; if so then display results to be fixed.
my $passflag = 0;
foreach my $crsname ( @prenames ) {
my $crscode = $crsmap{ $crsname };
# print qq{REQ:$crsname ($crscode) for $shortname\n};
# Check if this course IS present and passed.
$sth2->execute($r{provnum}, $crscode);
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my $cref = $sth2->fetchrow_hashref;
if ( $cref ) {
my %c = %$cref;
if ( $c{creditsearned} > 0 ) {
$passflag = $c{id};
# print qq{Passflag:$passflag $crsname
\n};
last;
}
}
} # end of prereq course loop
if ( $passflag > 0 ) { # they have at least one prereq course
# Student name,grade, program
$sth3->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my ($ln,$fn,$gr, $program) = $sth3->fetchrow;
if ( $program eq '09' ) { # adult secondary, no prereq
# print qq{Skipping $fn $ln ($gr) - Adult Secondary
\n};
next;
}
my $name = qq{$fn $ln ($gr)};
if ( not $ln ) { # look in transfer
$sth6->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my ($ln,$fn) = $sth6->fetchrow;
$name = qq{$fn $ln};
if ( not $ln ) { $name = $r{provnum}; }
}
# Withdrawn?
my $wd;
$sth4->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
if ( $wdcount = $sth4->fetchrow ) {
$wd = qq{WD};
}
my $id = $passflag; # course that satisfies prereq
$sth5->execute($id);
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my $cref = $sth5->fetchrow_hashref;
my %c = %$cref;
print qq{| $count. $name | $shortname ($r{schoolyear}) | $prereq | \n};
print qq{$c{coursetitle} ($c{finalmark}) | $c{schoolyear} | \n};
print qq{};
print qq{\n};
print qq{ |
\n};
$count++;
}
} elsif ( $prereq =~ m/and/ ) { # and condition
my @prenames = split(/\s*and\s*/, $prereq);
# Check to see if she/he has all of these courses
my $failflag = 0;
my @passcrs; # passed courses to fulfill prereq
foreach my $crsname ( @prenames ) {
my $crscode = $crsmap{ $crsname };
$sth2->execute($r{provnum}, $crscode);
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my $cref = $sth2->fetchrow_hashref;
my %t = $cref; # test course
if ( $t{creditsearned} ) {
push @passcrs, $crsref;
} else {
$failflag = 1;
}
}
if ( $failflag == 0 ) { # student has prereq
# Student name,grade
$sth3->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my ($ln,$fn,$gr) = $sth3->fetchrow;
my $name = qq{$fn $ln ($gr)};
if ( not $ln ) { # look in transfer
$sth6->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my ($ln,$fn) = $sth6->fetchrow;
$name = qq{$fn $ln};
if ( not $ln ) { $name = $r{provnum}; }
}
# WD?
my $wd;
$sth4->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
if ( $wdcount = $sth4->fetchrow ) {
$wd = qq{WD};
}
# We can use @passcrs to display passed courses, later.
print qq{| $count. $name | };
print qq{$shortname ($r{schoolyear}) | $prereq | \n};
print qq{};
foreach my $ref ( @passcrs ) {
print "REF:$ref
\n";
my %p = %$ref;
print qq{$p{coursetitle} ($p{finalmark})/ $p{schoolyear}
\n};
}
print qq{ | \n};
print qq{\n};
print qq{ |
\n};
$count++;
}
} else { # only a single course prereq
my $crscode = $crsmap{ $prereq };
# Check to see if we have any prerequisite done
$sth2->execute($r{provnum}, $crscode);
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
while ( my $cref = $sth2->fetchrow_hashref ) {
my %c = %$cref;
if ( $c{creditsearned} > 0) { # we have the prereq and it's passed.
# Student name,grade
$sth3->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my ($ln,$fn,$gr) = $sth3->fetchrow;
my $name = qq{$fn $ln ($gr)};
if ( not $ln ) { # look in transfer
$sth6->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
my ($ln,$fn) = $sth6->fetchrow;
$name = qq{$fn $ln};
if ( not $ln ) { $name = $r{provnum}; }
}
# Withdrawn?
my $wd;
$sth4->execute($r{provnum});
if ($DBI::errstr){ print $DBI::errstr; die "$DBI::errstr\n"; }
if ( $wdcount = $sth4->fetchrow ) {
$wd = qq{WD};
}
print qq{| $count. $name | $shortname ($r{schoolyear}) | };
print qq{$prereq | \n};
print qq{$c{coursetitle} ($c{finalmark}) | $c{schoolyear} | \n};
print qq{};
print qq{\n};
print qq{ |
\n};
$count++;
last;
}
} # end of prereq course loop
} # end of else; single prereq
} # end of normal operation
} # loop over all problem records (0 credit; passing mark)
print qq{
\n};
# Now display the 'other fails' - no prereq.
print qq{