--- loncom/interface/portfolio.pm 2004/07/28 19:00:19 1.18
+++ loncom/interface/portfolio.pm 2004/07/28 22:30:31 1.19
@@ -218,9 +218,10 @@ sub handler {
# as well as information about the home server directory structure, specifically
# the path to the users userfiles directory.
#
+ $r->print('/userfiles/portfolio'.$currentPath.'
');
my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},
$ENV{'user.name'}).
- '/userfiles/portfolio'.$currentPath;
+ '/userfiles/portfolio';
@dirList = &Apache::lonnet::dirlist($currentPath, $ENV{'user.domain'}, $ENV{'user.name'}, $portfolio_root);
if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired
@@ -250,16 +251,37 @@ sub handler {
# Display begins here
#
##############################
+ my @tree = split (/\//,$currentPath);
+ $r->print(''.makeAnchor('portfolio','/').'/');
+ if (@tree > 1){
+ my $newCurrentPath = '';
+ for (my $i = 1; $i< @tree; $i++){
+ $newCurrentPath .= $tree[$i].'/';
+ $r->print(makeAnchor($tree[$i],'/'.$newCurrentPath).'/');
+ }
+ }
+ $r->print('');
$r->print('
Actions | Name | Title | Status | Last Modified | |
---|---|---|---|---|---|
'); + $r->print(' | Go to ... | '); + $r->print(''.makeAnchor($fileName.'/',$currentPath.$fileName.'/').' | '); + $r->print('|||
'); + $r->print(' | Edit | '); + $r->print(''.$fileName.' | '); + $r->print('Title Here | '); + $r->print('Status Here | '); + $r->print('Modified Here | '); + $r->print('