--- loncom/homework/grades.pm	2005/04/07 06:56:21	1.257
+++ loncom/homework/grades.pm	2005/04/07 07:03:23	1.258
@@ -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 @@ sub version_portfiles {
                 }
                 $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);