[LON-CAPA-cvs] cvs: loncom /interface portfolio.pm

[banghart]

banghart		Thu Nov 25 19:17:38 2004 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  	Use cleaned filename so commas are removed so comma can delimit filenames.
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.58 loncom/interface/portfolio.pm:1.59
--- loncom/interface/portfolio.pm:1.58	Thu Nov 25 18:56:19 2004
+++ loncom/interface/portfolio.pm	Thu Nov 25 19:17:37 2004
@@ -339,7 +339,7 @@
     my $result=
 	&Apache::lonnet::renameuserfile($ENV{'user.name'},$ENV{'user.domain'},
             'portfolio'.$ENV{'form.currentpath'}.$ENV{'form.selectfile'},
-            'portfolio'.$ENV{'form.currentpath'}.$ENV{'form.filenewname'});
+            'portfolio'.$ENV{'form.currentpath'}.$filenewname);
     if ($result ne 'ok') {
 	$r->print('<font color="red"> An errror occured ('.$result.
 		  ') while trying to rename '.&display_file().' to '.