--- loncom/interface/portfolio.pm	2004/09/09 17:53:59	1.40
+++ loncom/interface/portfolio.pm	2004/09/10 18:05:15	1.42
@@ -211,6 +211,9 @@ sub delete_dir_confirmed {
 	$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 /');
+        &Apache::lonhtmlcommon::remove_recent('portfolio',[$directory_name.'/']);
         my @dirs = split m!/!, $directory_name;
         
 #        $directory_name =~ m/^(\/*\/)(\/*.)$/;