\n};
print qq{| Description | Start Date | Students |
|---|
\n};
$first = 0;
}
if ( $arr{showdetail} ) {
print qq{};
print qq{$pr{groupdesc} - Start Date:$pr{startdate} ID:$pr{id}
\n};
}
my $studcount; # local to this program.
# Student Count
# $sth4->execute( $pr{id} );
# if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
# my $studcount = $sth4->fetchrow;
# $totalstudents += $studcount;
# print qq{| $pr{groupdesc} ($pr{id}) | $pr{startdate} | $studcount |
\n};
my $prstartdate = $pr{startdate};
# Student Loop
$sth1->execute( $pr{id} );
if ( $DBI::errstr ) { print $DBI::errstr; die $DBI::errstr; }
# Loop through all students
while ( my $ref = $sth1->fetchrow_hashref ) {
my %r = %$ref;
# print qq{Student:}, %r, qq{
\n};
if ( $r{dropped} ) {
# Get Student Name
$sth6->execute( $r{studnum} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth6->fetchrow;
push @errors, qq{}.
qq{Dropped:$firstname $lastname ($r{studnum})
\n};
if ( $arr{showdetails} ) {
print qq{};
print qq{Dropped: $firstname $lastname ($r{studnum})
\n};
}
next; # student
}
my $sth2 = $dbh->prepare("select * from read_test where studnum = ? and
to_days( tdate ) <= to_days('$prstartdate') order by tdate desc ");
$sth2->execute( $r{studnum} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $pretest_ref = $sth2->fetchrow_hashref;
if ( not $pretest_ref ) { # move the date to look at first test WITHIN date range
my $sth5 = $dbh->prepare("select * from read_test where studnum = ? and
to_days( tdate ) > to_days('$prstartdate') and
to_days( tdate ) <= to_days('$pr{enddate}')
order by tdate "); # first one within this date range.
$sth5->execute( $sr{studnum} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
$pretest_ref = $sth5->fetchrow_hashref;
}
if ( not $pretest_ref->{id} ) {
# Get Student Name
$sth6->execute( $r{studnum} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth6->fetchrow;
push @errors, qq{}.
qq{No Pretest: $firstname $lastname ($r{studnum})
\n};
if ( $arr{showdetails} ) {
print qq{};
print qq{No Pretest: $firstname $lastname ($r{studnum})
\n};
}
next; # student
}
my %pretest = %$pretest_ref;
# foreach my $key ( sort keys %pretest ) { print qq{K:$key V:$pretest{$key}
\n}; }
# Get the pretest Scores
$sth3->execute( $pretest{id} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ( $prescoretotal, $prescorecount ) = $sth3->fetchrow;
my $prepossibletotal = $prescorecount * 4;
my $equivgrade = scoreToGrade( $prescoretotal, $pretest{readlevel} );
# Find the Posttest.
$sth2 = $dbh->prepare("select * from read_test where studnum = ? and
to_days( tdate ) >= to_days( '$pr{enddate}' ) ");
$sth2->execute( $r{studnum} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my $posttest_ref = $sth2->fetchrow_hashref;
if ( not $posttest_ref ) { # move the date to look at first test WITHIN date range
my $sth5 = $dbh->prepare("select * from read_test where studnum = ? and
to_days( tdate ) <= to_days( '$pr{enddate}' ) and
to_days( tdate ) >= to_days( '$pr{startdate}' )
order by tdate desc");
$sth5->execute( $r{studnum} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
$posttest_ref = $sth5->fetchrow_hashref;
if ( $posttest_ref->{id} == $pretest_ref->{id} ) { # same test; bad!
$posttest_ref = undef;
}
}
if ( not $posttest_ref->{id} ) {
# Get Student Name
$sth6->execute( $r{studnum} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ($lastname, $firstname) = $sth6->fetchrow;
my $err = qq{}.
qq{No Post Test: $firstname $lastname ($r{studnum})
\n};
push @errors, $err;
next; # student
}
my %posttest = %$posttest_ref;
# print qq{PostTEST:
", %posttest, "
\n};
# Get the posttest Scores
$sth3->execute( $posttest{id} );
if ($DBI::errstr){ print $DBI::errstr; die $DBI::errstr; }
my ( $postscoretotal, $postscorecount ) = $sth3->fetchrow;
my $postpossibletotal = $postscorecount * 4;
my $postequivgrade = scoreToGrade( $postscoretotal, $posttest{readlevel} );
if ( not $postequivgrade or not $equivgrade ) {
print qq{Missing Data - $r{studnum}
};
next;
}
my $delta = $postequivgrade - $equivgrade;
my $grade = $posttest{tgrade};
# print qq{Student:$r{studnum} Initial:$equivgrade Final:$postequivgrade Delta:$delta };
# print qq{Grade:$posttest{tgrade}
\n}; #Hours:$programhours
\n};
my $programhours = $pr{programhours};
# print qq{Hours:Program: $programhours };
if ( $r{programhours} ) {
$programhours = $r{programhours};
}
# print qq{- Actual:$programhours
\n};
if ( not $grade) {
print qq{Missing Grade for student:$studnum for postLLI test
\n};
next; # student
}
$datacount{$grade} += 1;
$datagain{$grade} += $delta;
$datahours{$grade} += $programhours;
if ( not $datamin{$grade} ) { $datamin{$grade} = $delta; }
if ( $delta < $datamin{$grade} ) {
$datamin{$grade} = $delta;
}
if ( $delta > $datamax{$grade} ) {
$datamax{$grade} = $delta;
}
$studcount++; # we only increment if we get to bottom of the loop.
# Local School Data
$localcount{$grade} += 1;
$localgain{$grade} += $delta;
$localhours{$grade} += $programhours;
if ( not exists $localmin{$grade} ) { $localmin{$grade} = $delta; }
if ( $delta < $localmin{$grade} ) {
$localmin{$grade} = $delta;
}
if ( $delta > $localmax{$grade} ) {
$localmax{$grade} = $delta;
}
} # end of students loop
# Total Students at this school in the programs.
$totalstudents += $studcount;
print qq{| $pr{groupdesc} (ID$pr{id}) | $pr{startdate} | };
print qq{$studcount |
\n};
} # end of programs loop
if ( $first ) {
print qq{No Programs for this school found.
\n};
next; # school
} else {
$grandtotalstudents += $totalstudents;
print qq{| Student Count | $totalstudents |
\n};
print qq{
\n};
if ( @errors ) { # print them out.
foreach my $error ( @errors ) {
print $error, "\n";
}
}
}
# foreach my $gr ( sort keys %datacount ) {
# print qq{Grade:$gr Count:$datacount{$gr} Gain:$datagain{$gr} Hours:$datahours{$gr}