--- loncom/homework/grades.pm 2010/08/13 01:23:59 1.596.2.1
+++ loncom/homework/grades.pm 2010/03/11 16:29:42 1.597
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.596.2.1 2010/08/13 01:23:59 raeburn Exp $
+# $Id: grades.pm,v 1.597 2010/03/11 16:29:42 wenzelju Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -382,7 +382,7 @@ sub cleanRecord {
return '
'.
''.&mt('Answer').' | '.$toprow.'
'.
''.$grayFont.&mt('Option ID').' | '.
- $bottomrow.'
';
+ $grayFont.$bottomrow.''.'';
} elsif ($response eq 'match') {
my %answer=&Apache::lonnet::str2hash($answer);
my %grading=&Apache::lonnet::str2hash($record->{$version."resource.$partid.$respid.submissiongrading"});
@@ -425,7 +425,7 @@ sub cleanRecord {
return ''.
''.&mt('Answer').' | '.$toprow.'
'.
''.$grayFont.&mt('Option ID').' | '.
- $grayFont.$bottomrow.'
'.'
';
+ $bottomrow.''.'';
} elsif ($response eq 'essay') {
if (! exists ($env{'form.'.$symb})) {
my (%keyhash) = &Apache::lonnet::dump('nohist_handgrade',
@@ -487,8 +487,7 @@ sub cleanRecord {
#-- A couple of common js functions
sub commonJSfunctions {
my $request = shift;
- $request->print(<
+ $request->print(&Apache::lonhtmlcommon::scripttag(< 1) {
@@ -516,7 +515,6 @@ sub commonJSfunctions {
return selectOne.value;
}
}
-
COMMONJSFUNCTIONS
}
@@ -671,13 +669,13 @@ sub student_gradeStatus {
sub jscriptNform {
my ($symb) = @_;
my $stu_status = join(':',&Apache::loncommon::get_env_multiple('form.Status'));
- my $jscript=''."\n";
+ "\n");
$jscript.= ''
ENDUPFORM
$result.=''."\n".
'
'."\n";