raeburn Mon Jan 5 05:54:34 2009 EDT
Modified files:
/loncom/homework essayresponse.pm
Log:
- Deletion of the item from the %env hash is what is needed, not lonnet::delenv().
Index: loncom/homework/essayresponse.pm
diff -u loncom/homework/essayresponse.pm:1.97 loncom/homework/essayresponse.pm:1.98
--- loncom/homework/essayresponse.pm:1.97 Thu Jan 1 16:45:32 2009
+++ loncom/homework/essayresponse.pm Mon Jan 5 05:54:34 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# essay (ungraded) style responses
#
-# $Id: essayresponse.pm,v 1.97 2009/01/01 16:45:32 raeburn Exp $
+# $Id: essayresponse.pm,v 1.98 2009/01/05 05:54:34 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -378,7 +378,7 @@
$Apache::lonhomework::results{"resource.$part.$id.uploadedurl"}=
&Apache::lonnet::userfileupload('HWFILE'.$jspart.'_'.$id,undef,
$subdir);
- &Apache::lonnet::delenv($env{'form.HWFILE'.$jspart.'_'.$id});
+ delete($env{'form.HWFILE'.$jspart.'_'.$id});
}
} elsif ($which eq 'portfiles' &&
$Apache::lonhomework::history{"resource.$part.$id.$which"}) {
@@ -390,9 +390,9 @@
sub delete_form_items {
my ($jspart,$id) = @_;
- &Apache::lonnet::delenv($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'});
- &Apache::lonnet::delenv($env{'form.HWFILE'.$jspart.'_'.$id.'.mimetype'});
- &Apache::lonnet::delenv($env{'form.HWFILE'.$jspart.'_'.$id});
+ delete($env{'form.HWFILE'.$jspart.'_'.$id.'.filename'});
+ delete($env{'form.HWFILE'.$jspart.'_'.$id.'.mimetype'});
+ delete($env{'form.HWFILE'.$jspart.'_'.$id});
}