--- loncom/interface/lonmeta.pm 2005/12/19 21:49:12 1.146
+++ loncom/interface/lonmeta.pm 2005/12/19 21:56:07 1.147
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.146 2005/12/19 21:49:12 albertel Exp $
+# $Id: lonmeta.pm,v 1.147 2005/12/19 21:56:07 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -295,11 +295,13 @@ sub portfolio_linked_path {
my $result = &Apache::portfolio::make_anchor('portfolio','/');
my $fullpath = '/';
my (undef,@tree) = split('/',$path);
+ my $filename = pop(@tree);
foreach my $dir (@tree) {
$fullpath .= $dir.'/';
$result .= '/';
$result .= &Apache::portfolio::make_anchor($dir,$fullpath);
}
+ $result .= "/$filename";
return $result;
}
@@ -1069,8 +1071,9 @@ sub present_editable_metadata {
$disuri=~s/^\/\~/\/priv\//;
$disuri=~s/\.meta$//;
my $meta_uri = $disuri;
+ my $path;
if ($disuri =~ m|/portfolio/|) {
- ($disuri, $meta_uri) = &portfolio_display_uri($disuri,1);
+ ($disuri, $meta_uri, $path) = &portfolio_display_uri($disuri,1);
}
my $target=$uri;
$target=~s/^\/\~/\/res\/$env{'request.role.domain'}\//;
@@ -1256,7 +1259,12 @@ ENDEDIT
$r->print($output.'
');
-
+
+ $r->print('
+