[LON-CAPA-cvs] cvs: loncom /homework grades.pm /interface loncommon.pm
albertel
lon-capa-cvs-allow@mail.lon-capa.org
Fri, 26 Oct 2007 20:18:44 -0000
albertel Fri Oct 26 16:18:44 2007 EDT
Modified files:
/loncom/interface loncommon.pm
/loncom/homework grades.pm
Log:
- Some more of BUG#5360 move the checked info to be near the actual submissions
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.597 loncom/interface/loncommon.pm:1.598
--- loncom/interface/loncommon.pm:1.597 Thu Oct 25 20:40:54 2007
+++ loncom/interface/loncommon.pm Fri Oct 26 16:18:00 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.597 2007/10/26 00:40:54 albertel Exp $
+# $Id: loncommon.pm,v 1.598 2007/10/26 20:18:00 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -5044,6 +5044,12 @@
width: 99%;
background: #FFFFFF;
}
+span.LC_grade_check_note {
+ font: normal medium $sans;
+ display: inline;
+ position: absolute;
+ right: 1em;
+}
END
}
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.468 loncom/homework/grades.pm:1.469
--- loncom/homework/grades.pm:1.468 Thu Oct 25 20:41:31 2007
+++ loncom/homework/grades.pm Fri Oct 26 16:18:43 2007
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.468 2007/10/26 00:41:31 albertel Exp $
+# $Id: grades.pm,v 1.469 2007/10/26 20:18:43 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1852,12 +1852,6 @@
$request->print('<h3> <span class="LC_info">Submission Record</span></h3>'."\n".
'<h4> <b>Resource: </b>'.$env{'form.probTitle'}.'</h4>'."\n");
- if ($env{'form.handgrade'} eq 'no') {
- my $checkMark='<br /><br /> <b>Note:</b> Part(s) graded correct by the computer is marked with a '.
- $checkIcon.' symbol.'."\n";
- $request->print($checkMark);
- }
-
# option to display problem, only once else it cause problems
# with the form later since the problem has a form.
if ($env{'form.vProb'} eq 'yes' or $env{'form.vAns'} eq 'yes') {
@@ -1989,6 +1983,13 @@
$result.= &mt('Submissions');
$result.='<input type="hidden" name="name'.$counter.
'" value="'.$env{'form.fullname'}.'" />'."\n";
+ if ($env{'form.handgrade'} eq 'no') {
+ $result.='<span class="LC_grade_check_note">'.
+ &mt('Part(s) graded correct by the computer is marked with a [_1] symbol.',$checkIcon)."</span>\n";
+
+ }
+
+
# If any part of the problem is an essay-response (handgraded), then check for collaborators
my $fullname;