[LON-CAPA-cvs] cvs: loncom /homework grades.pm

raeburn raeburn at source.lon-capa.org
Mon Oct 10 20:00:38 EDT 2011


raeburn		Tue Oct 11 00:00:38 2011 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - Unbalanced <span> tag from surplus $grayFont. 
  - Eliminate unnecessary concatenation.
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.659 loncom/homework/grades.pm:1.660
--- loncom/homework/grades.pm:1.659	Mon Oct 10 16:35:59 2011
+++ loncom/homework/grades.pm	Tue Oct 11 00:00:37 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.659 2011/10/10 16:35:59 raeburn Exp $
+# $Id: grades.pm,v 1.660 2011/10/11 00:00:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -341,7 +341,7 @@
 	return '<blockquote><table border="1">'.
 	    '<tr valign="top"><td>'.&mt('Answer').'</td>'.$toprow.'</tr>'.
 	    '<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'.
-	    $grayFont.$bottomrow.'</tr>'.'</table></blockquote>';
+	    $bottomrow.'</tr></table></blockquote>';
     } elsif ($response eq 'match') {
 	my %answer=&Apache::lonnet::str2hash($answer);
 	my %grading=&Apache::lonnet::str2hash($record->{$version."resource.$partid.$respid.submissiongrading"});
@@ -363,7 +363,7 @@
 	    '<tr valign="top"><td>'.$grayFont.&mt('Item ID').'</span></td>'.
 	    $middlerow.'</tr>'.
 	    '<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'.
-	    $bottomrow.'</tr>'.'</table></blockquote>';
+	    $bottomrow.'</tr></table></blockquote>';
     } elsif ($response eq 'radiobutton') {
 	my %answer=&Apache::lonnet::str2hash($answer);
 	my ($toprow,$bottomrow);
@@ -384,7 +384,7 @@
 	return '<blockquote><table border="1">'.
 	    '<tr valign="top"><td>'.&mt('Answer').'</td>'.$toprow.'</tr>'.
 	    '<tr valign="top"><td>'.$grayFont.&mt('Option ID').'</span></td>'.
-	    $bottomrow.'</tr>'.'</table></blockquote>';
+	    $bottomrow.'</tr></table></blockquote>';
     } elsif ($response eq 'essay') {
 	if (! exists ($env{'form.'.$symb})) {
 	    my (%keyhash) = &Apache::lonnet::dump('nohist_handgrade',




More information about the LON-CAPA-cvs mailing list