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

albertel lon-capa-cvs@mail.lon-capa.org
Thu, 07 Apr 2005 07:03:23 -0000


albertel		Thu Apr  7 03:03:23 2005 EDT

  Modified files:              
    /loncom/homework	grades.pm 
    /loncom/interface	lonprintout.pm 
  Log:
  - missed a couple of ENV -> env
  
  
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.257 loncom/homework/grades.pm:1.258
--- loncom/homework/grades.pm:1.257	Thu Apr  7 02:56:21 2005
+++ loncom/homework/grades.pm	Thu Apr  7 03:03:23 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.257 2005/04/07 06:56:21 albertel Exp $
+# $Id: grades.pm,v 1.258 2005/04/07 07:03:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2212,8 +2212,8 @@
                 }
                 $version++;
                 my $home_server = &Apache::lonnet::homeserver($stuname,$domain,undef);
-                $ENV{'form.copy'} = &Apache::lonnet::getfile("/uploaded/$domain/$stuname/$directory$answer_file");
-                # $ENV{'form.copy.filename'}='';
+                $env{'form.copy'} = &Apache::lonnet::getfile("/uploaded/$domain/$stuname/$directory$answer_file");
+                # $env{'form.copy.filename'}='';
                 my $copy_result = &Apache::lonnet::finishuserfileupload($stuname,$domain,$home_server,'copy',
                                     '/portfolio'.$directory.$answer_file_parts[0].'.'.$version.'.'.$answer_file_parts[-1]);
                 &Apache::lonnet::logthis('copy result is '.$copy_result);
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.373 loncom/interface/lonprintout.pm:1.374
--- loncom/interface/lonprintout.pm:1.373	Thu Apr  7 02:56:23 2005
+++ loncom/interface/lonprintout.pm	Thu Apr  7 03:03:23 2005
@@ -1,7 +1,7 @@
 #  The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.373 2005/04/07 06:56:23 albertel Exp $
+# $Id: lonprintout.pm,v 1.374 2005/04/07 07:03:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2142,7 +2142,7 @@
 
             #  If advanced roles, then allow to show all foils.
 
-            if ($ENV{'request.role.adv'}) {
+            if ($env{'request.role.adv'}) {
 		addMessage("<tr><td align = 'right'>  </td><td>");
 		$paramHash = Apache::lonhelper::getParamHash();
 		$paramHash->{'multichoice'} = "true";