[LON-CAPA-cvs] cvs: loncom /publisher loncfile.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 10 Mar 2003 18:34:14 -0000


albertel		Mon Mar 10 13:34:14 2003 EDT

  Modified files:              
    /loncom/publisher	loncfile.pm 
  Log:
  - fixes BUG#195, renames that involve moves across directories wern't adding the default extension back on
  
  
Index: loncom/publisher/loncfile.pm
diff -u loncom/publisher/loncfile.pm:1.28 loncom/publisher/loncfile.pm:1.29
--- loncom/publisher/loncfile.pm:1.28	Fri Mar  7 20:41:53 2003
+++ loncom/publisher/loncfile.pm	Mon Mar 10 13:34:14 2003
@@ -9,7 +9,7 @@
 #  and displays a page showing the results of the action.
 #
 #
-# $Id: loncfile.pm,v 1.28 2003/03/08 01:41:53 www Exp $
+# $Id: loncfile.pm,v 1.29 2003/03/10 18:34:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -494,7 +494,7 @@
     if(-e $conspace) {
 	if($ENV{'form.newfilename'}) {
 	    my $newfilename = $ENV{'form.newfilename'};
-	    if ($newfilename =~ m|^[^\.]+$|) {
+	    if ($newfilename =~ m|/[^\.]+$|) {
 		#no extension add on orignal extension
 		if ($filename =~ m|/[^\.]*\.([^\.]+)$|) {
 		    $newfilename.='.'.$1;