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

[albertel]

albertel		Wed Dec 15 14:09:35 2004 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  - docopen didn't give us what we really wanted. BUG#3698
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.235 loncom/homework/grades.pm:1.236
--- loncom/homework/grades.pm:1.235	Thu Dec  9 18:53:10 2004
+++ loncom/homework/grades.pm	Wed Dec 15 14:09:35 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.235 2004/12/09 23:53:10 albertel Exp $
+# $Id: grades.pm,v 1.236 2004/12/15 19:09:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -973,6 +973,7 @@
     my $iconpath = $request->dir_config('lonIconsURL');
     &commonJSfunctions($request);
     my $docopen=&Apache::lonhtmlcommon::javascript_docopen();
+    $docopen=~s/^document\.//;
     $request->print(<<SUBJAVASCRIPT);
 <script type="text/javascript" language="javascript">
 
@@ -1689,6 +1690,7 @@
 				&Apache::lonnet::allowuploaded('/adm/grades',$file);
 				$lastsubonly.='<br /><a href="'.$file.'" target="lonGRDs"><img src="'.&Apache::loncommon::icon($file).'" border=0"> '.$file.'</a>';
 			    }
+			    $lastsubonly.='<br />';
 			}
 			$lastsubonly.='<b>Submitted Answer: </b>'.
 			    &cleanRecord($subval,$responsetype,$symb,$partid,