| … | |
… | |
| 1503 | } |
1503 | } |
| 1504 | |
1504 | |
| 1505 | # |
1505 | # |
| 1506 | # The adaptive parameters |
1506 | # The adaptive parameters |
| 1507 | # |
1507 | # |
| 1508 | if ($formulas->{showParameters}) { |
1508 | if ($formulas->{showParameters} && scalar(@params) > 0) { |
| 1509 | $output .= '<HR><TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD>Adaptive Parameters:<BR>'; |
1509 | $output .= '<HR><TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD>Adaptive Parameters:<BR>'; |
| 1510 | $output .= join("<BR>",map {" $params[$_]: ".$self->{parameters}[$_]} (0..$#params)); |
1510 | $output .= join("<BR>",map {" $params[$_]: ".$self->{parameters}[$_]} (0..$#params)); |
| 1511 | $output .= '</TD></TR></TABLE>'; |
1511 | $output .= '</TD></TR></TABLE>'; |
| 1512 | } |
1512 | } |
| 1513 | |
1513 | |
| … | |
… | |
| 1524 | |
1524 | |
| 1525 | $student->createPointValues($self->{test_points},0,1,1) unless $student->{test_values}; |
1525 | $student->createPointValues($self->{test_points},0,1,1) unless $student->{test_values}; |
| 1526 | |
1526 | |
| 1527 | my $cv = $self->{test_values}; |
1527 | my $cv = $self->{test_values}; |
| 1528 | my $sv = $student->{test_values}; |
1528 | my $sv = $student->{test_values}; |
| 1529 | my $av = $self->{test_adapt} || $lv; |
1529 | my $av = $self->{test_adapt} || $cv; |
| 1530 | |
1530 | |
| 1531 | if ($formulas->{showTestPoints}) { |
1531 | if ($formulas->{showTestPoints}) { |
| 1532 | my @p = ("$names:", (map {$P[$i[$_]]} (0..$#P))); |
1532 | my @p = ("$names:", (map {$P[$i[$_]]} (0..$#P))); |
| 1533 | push(@rows,'<TR><TD ALIGN="RIGHT">'.join($colsep,@p).'</TD></TR>'); |
1533 | push(@rows,'<TR><TD ALIGN="RIGHT">'.join($colsep,@p).'</TD></TR>'); |
| 1534 | push(@rows,'<TR><TD ALIGN="RIGHT">'.join($colsep,("<HR>")x scalar(@p)).'</TD></TR>'); |
1534 | push(@rows,'<TR><TD ALIGN="RIGHT">'.join($colsep,("<HR>")x scalar(@p)).'</TD></TR>'); |