[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm
raeburn
raeburn@source.lon-capa.org
Sat, 27 Nov 2010 16:55:58 -0000
raeburn Sat Nov 27 16:55:58 2010 EDT
Modified files:
/loncom/lonnet/perl lonnet.pm
Log:
- chop() is no longer needed in userfileupload().
- lonacc.pm rev 1.135 provides a general solution to replace the
workaround used in lonnet.pm r1.257 onwards.
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1093 loncom/lonnet/perl/lonnet.pm:1.1094
--- loncom/lonnet/perl/lonnet.pm:1.1093 Wed Nov 10 14:44:19 2010
+++ loncom/lonnet/perl/lonnet.pm Sat Nov 27 16:55:57 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network
# TCP networking package
#
-# $Id: lonnet.pm,v 1.1093 2010/11/10 14:44:19 raeburn Exp $
+# $Id: lonnet.pm,v 1.1094 2010/11/27 16:55:57 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2381,7 +2381,6 @@
$fname=&clean_filename($fname);
# See if there is anything left
unless ($fname) { return 'error: no uploaded file'; }
- chop($env{'form.'.$formname});
# Files uploaded to help request form, or uploaded to "create course" page are handled differently
if ((($formname eq 'screenshot') && ($subdir eq 'helprequests')) ||
(($formname eq 'coursecreatorxml') && ($subdir eq 'batchupload')) ||