--- loncom/interface/portfolio.pm	2004/09/08 20:34:28	1.39
+++ 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/^(\/*\/)(\/*.)$/;
@@ -356,6 +360,11 @@ sub handler {
 	     &Apache::lonnet::mkdiruserfile($ENV{'user.name'},
 	     $ENV{'user.domain'},'portfolio');
 	}
+	if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){
+   	    $r->print('<font color="red"> No file was selected to upload.'.
+   	            'To upload a file, click <strong>Browse...</strong>'.
+   	            ', select a file, then click <strong>Upload</strong>,</font>');
+	}
     if ($ENV{'form.uploaddoc.filename'}) {
 	&upload($r);
     } elsif ($ENV{'form.action'} eq 'delete' && $ENV{'form.confirmed'}) {