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

[raeburn]

raeburn		Thu Apr 17 10:46:18 2008 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - In portfolio.pm, consolidate all calls to &lonnet::dirlist() in the &get_dir_list() subroutine.
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.191 loncom/interface/portfolio.pm:1.192
--- loncom/interface/portfolio.pm:1.191	Wed Apr 16 19:11:06 2008
+++ loncom/interface/portfolio.pm	Thu Apr 17 10:46:18 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.191 2008/04/16 23:11:06 raeburn Exp $
+# $Id: portfolio.pm,v 1.192 2008/04/17 14:46:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2336,7 +2336,7 @@
             &Apache::lonhtmlcommon::clear_breadcrumbs();
             $r->print(&coursegrp_portfolio_header($udom,$uname,$grp_desc));
         }
-        my @dir_list=&get_dir_list($portfolio_root,undef,$group);
+        my @dir_list=&get_dir_list($portfolio_root,$current_path,$group);
 	if ($dir_list[0] eq 'no_such_dir'){
 	    # two main reasons for this:
             #    1) never been here, so directory structure not created
@@ -2352,9 +2352,7 @@
 		$current_path = '/'; # force it back to the root        
 	    }
 	    # now grab the directory list again, for the first time
-	    @dir_list=
-                &Apache::lonnet::dirlist($portfolio_root.$current_path,
-                                         $udom,$uname,$getpropath);
+            @dir_list=&get_dir_list($portfolio_root,$current_path,$group);
         }
 	# need to know if directory is empty so it can be removed if desired
 	my $is_empty=(@dir_list == 2);