--- loncom/interface/portfolio.pm	2006/05/18 01:08:52	1.99
+++ loncom/interface/portfolio.pm	2006/05/30 12:46:09	1.101
@@ -31,6 +31,8 @@ use Apache::lonfeedback;
 use Apache::lonlocal;
 use Apache::lonnet;
 use Apache::longroup;
+use lib '/home/httpd/lib/perl';
+use LONCAPA;
 
 # receives a file name and path stub from username/userfiles/portfolio/
 # returns an anchor tag consisting encoding filename and currentpath
@@ -732,7 +734,8 @@ sub handler {
             #    1) never been here, so directory structure not created
 	    #    2) back-button navigation after deleting a directory
 	    if ($current_path eq '/'){
-	        &Apache::lonnet::mkdiruserfile($uname,$udom,'portfolio');
+	        &Apache::lonnet::mkdiruserfile($uname,$udom,
+					       &get_port_path($group));
 	    } else {
                 # some directory that snuck in get rid of the directory
                 # from the recent pulldown, just in case