[LON-CAPA-cvs] cvs: loncom /interface/statistics lonstudentassessment.pm
matthew
lon-capa-cvs@mail.lon-capa.org
Tue, 17 Jun 2003 17:47:54 -0000
matthew Tue Jun 17 13:47:54 2003 EDT
Modified files:
/loncom/interface/statistics lonstudentassessment.pm
Log:
Added <br /> after 'clear caches' button.
Fixed bad columns on scores display.
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.59 loncom/interface/statistics/lonstudentassessment.pm:1.60
--- loncom/interface/statistics/lonstudentassessment.pm:1.59 Mon Jun 16 11:54:58 2003
+++ loncom/interface/statistics/lonstudentassessment.pm Tue Jun 17 13:47:54 2003
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstudentassessment.pm,v 1.59 2003/06/16 15:54:58 matthew Exp $
+# $Id: lonstudentassessment.pm,v 1.60 2003/06/17 17:47:54 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -335,7 +335,7 @@
'value="Select One Student" />';
$Str .= ' 'x5;
$Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />';
- $Str .= ' 'x5;
+ $Str .= ' 'x5.'<br />';
return $Str;
}
@@ -1516,6 +1516,11 @@
}
}
#
+ if (! defined($partscore)) {
+ $partscore = $symbol;
+ }
+ push (@ScoreData,$partscore);
+ #
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) {
$symbol = '<a href="/adm/grades'.
'?symb='.&Apache::lonnet::escape($resource->{'symb'}).
@@ -1523,12 +1528,8 @@
'&domain='.$student->{'domain'}.
'&command=submission">'.$symbol.'</a>';
}
- if (! defined($partscore)) {
- $partscore = $symbol;
- }
- push (@ScoreData,$partscore);
+ $Str .= $symbol;
}
- $Str .= $symbol;
}
return ($Str,$performance_length,$score,$max,\@ScoreData);
}