[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface portfolio.pm
From: raeburn <lon-capa-cvs-allow () mail ! lon-capa ! org>
Date: 2008-04-17 14:46:18
Message-ID: cvsraeburn1208443578 () cvsserver
[Download RAW message or body]
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);
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic