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

[banghart]

banghart		Fri Sep 10 13:59:13 2004 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  	Remove deleted directories from Recent dropdown.
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.40 loncom/interface/portfolio.pm:1.41
--- loncom/interface/portfolio.pm:1.40	Thu Sep  9 13:53:59 2004
+++ loncom/interface/portfolio.pm	Fri Sep 10 13:59:13 2004
@@ -211,6 +211,10 @@
 	$r->print('<font color="red"> An error occured (dir) ('.$result.
 		  ') while trying to delete '.$directory_name.'</font><br />');
     } else {
+        # now remove from recent
+#        $r->print('<br /> removing '.$directory_name.'<br /');
+        my @rem_dirs = ($directory_name.'/');
+        &Apache::lonhtmlcommon::remove_recent('portfolio',\@rem_dirs);
         my @dirs = split m!/!, $directory_name;
         
 #        $directory_name =~ m/^(\/*\/)(\/*.)$/;