--- loncom/interface/lonaboutme.pm 2006/08/04 20:41:32 1.49
+++ loncom/interface/lonaboutme.pm 2006/08/07 19:51:54 1.50
@@ -1,7 +1,7 @@
# The LearningOnline Network
# "About Me" Personal Information
#
-# $Id: lonaboutme.pm,v 1.49 2006/08/04 20:41:32 albertel Exp $
+# $Id: lonaboutme.pm,v 1.50 2006/08/07 19:51:54 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -485,7 +485,6 @@ sub parse_directory {
my %dirlist = map {
((split('&',$_,2))[0],1)
} &Apache::lonnet::dirlist($path,$cdom,$cnum,$portfolio_root);
- &Apache::lonnet::logthis("$path -- $portfolio_root");
foreach my $item (sort(keys(%{$currhash}))) {
$output .= &portfolio_row_start();
$output .= '
';
@@ -496,21 +495,35 @@ sub parse_directory {
$output .= &parse_directory($r,$depth,$currhash->{$item},
$path.'/'.$item);
} else {
- my $showname;
- if ($currhash->{$item} =~ m|/([^/]+)$|) {
- $showname = $1;
- } else {
- $showname = $currhash->{$item};
- }
- $showname=&HTML::Entities::encode($showname,'<>&"');
+
+
+ my $file_name;
+ if ($currhash->{$item} =~ m|/([^/]+)$|) {
+ $file_name = $1;
+ } else {
+ $file_name = $currhash->{$item};
+ }
+ my $have_meta = exists($dirlist{$file_name.'.meta'});
my $url = '/uploaded/'.$cdom.'/'.$cnum.'/portfolio/'.
$currhash->{$item};
+
+ my $showname;
+ if ($have_meta) {
+ $showname = &Apache::lonnet::metadata($url,'title');
+ }
+ if ($showname eq '') {
+ $showname = $file_name;
+ } else {
+ $showname = $file_name.' ('.$showname.')';
+ }
+
+ $showname=&HTML::Entities::encode($showname,'<>&"');
$output .= ''.
''.
' '.$showname.'';
$output.=' | ';
&Apache::lonnet::logthis("sh $showname");
- if (exists($dirlist{$showname.'.meta'})) {
+ if ($have_meta) {
$output.= '';
|