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

www lon-capa-cvs@mail.lon-capa.org
Tue, 22 Nov 2005 19:31:43 -0000


www		Tue Nov 22 14:31:43 2005 EDT

  Modified files:              
    /loncom/homework	grades.pm 
  Log:
  Bug #2149: easy access to PARM while grading (extend deadlines, more tries)
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.296 loncom/homework/grades.pm:1.297
--- loncom/homework/grades.pm:1.296	Tue Nov 22 14:10:16 2005
+++ loncom/homework/grades.pm	Tue Nov 22 14:31:43 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.296 2005/11/22 19:10:16 www Exp $
+# $Id: grades.pm,v 1.297 2005/11/22 19:31:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1851,6 +1851,14 @@
 	    if ($env{'form.handgrade'} eq 'yes');
 	$request->print($result);
     }
+    if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
+	$request->print('<br />'.
+	    &Apache::loncommon::track_student_link(&mt('View recent activity'),$uname,$udom,'check'));
+    }
+    if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
+	$request->print('<br />'.
+	    &Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$uname,$udom,$symb,'check'));
+    }
 
     my %seen = ();
     my @partlist;
@@ -1879,16 +1887,7 @@
 
     # print end of form
     if ($counter == $total) {
-	my $endform='';
-	if (&Apache::lonnet::allowed('vgr',$env{'request.course.id'})) {
-	    $endform.='<br />'.
-		&Apache::loncommon::track_student_link(&mt('View recent activity'),$uname,$udom,'check');
-	}
-	if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
-	    $endform.='<br />'.
-		&Apache::loncommon::pprmlink(&mt('Set/Change parameters'),$uname,$udom,$symb,'check');
-	}
-        $endform.='<table border="0"><tr><td>'."\n";
+	my $endform='<table border="0"><tr><td>'."\n";
 	$endform.='<input type="button" value="Save & Next" '.
 	    'onClick="javascript:checksubmit(this.form,\'Save & Next\','.
 	    $total.','.scalar(@partlist).');" TARGET=_self> &nbsp;'."\n";