--- loncom/interface/portfolio.pm	2004/09/09 17:53:59	1.40
+++ loncom/interface/portfolio.pm	2004/09/10 17:59:13	1.41
@@ -211,6 +211,10 @@ 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 /');
+        my @rem_dirs = ($directory_name.'/');
+        &Apache::lonhtmlcommon::remove_recent('portfolio',\@rem_dirs);
         my @dirs = split m!/!, $directory_name;
         
 #        $directory_name =~ m/^(\/*\/)(\/*.)$/;