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

[banghart]

banghart		Tue Dec 14 14:17:54 2004 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  	Inform user when new directory name is changed by cleaning.
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.66 loncom/interface/portfolio.pm:1.67
--- loncom/interface/portfolio.pm:1.66	Tue Dec 14 14:10:07 2004
+++ loncom/interface/portfolio.pm	Tue Dec 14 14:17:54 2004
@@ -496,6 +496,9 @@
 	    	      ') while trying to create a new directory '.&display_file().'</font><br />');
         }
     }
+    if ($newdir ne $ENV{'form.newdir'}) {
+        $r->print("The new directory name was changed from:<br /><strong>".$ENV{'form.newdir'}."</strong> to <strong>$newdir </strong>");  
+    }
     $r->print(&done());
 }