[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /homework essayresponse.pm
From: raeburn <raeburn () source ! lon-capa ! org>
Date: 2010-08-28 22:25:07
Message-ID: cvsraeburn1283034307 () cvsserver
[Download RAW message or body]
raeburn Sat Aug 28 22:25:07 2010 EDT
Modified files:
/loncom/homework essayresponse.pm
Log:
- rename uploaded file with cleaned filename.
Index: loncom/homework/essayresponse.pm
diff -u loncom/homework/essayresponse.pm:1.110 loncom/homework/essayresponse.pm:1.111
--- loncom/homework/essayresponse.pm:1.110 Mon Aug 23 03:21:26 2010
+++ loncom/homework/essayresponse.pm Sat Aug 28 22:25:07 2010
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# essay (ungraded) style responses
#
-# $Id: essayresponse.pm,v 1.110 2010/08/23 03:21:26 raeburn Exp $
+# $Id: essayresponse.pm,v 1.111 2010/08/28 22:25:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -485,8 +485,7 @@
push(@pathitems,$restitle);
$path .= join('/',@pathitems);
my $formelement = 'HWFILE'.$jspart.'_'.$id;
- my $fname = $env{'form.'.$formelement.'.filename'};
- &Apache::lonnet::clean_filename($fname);
+ my $fname = &Apache::lonnet::clean_filename($env{'form.'.$formelement.'.filename'});
my $url = '/uploaded/'.$udom.'/'.$uname.'/'.$prefix.$path.'/'.$fname;
my @stat = &Apache::lonnet::stat_file($url);
if (@stat && $stat[0] ne 'no_such_dir') {
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic