--- loncom/interface/lonmeta.pm 2009/01/27 15:59:30 1.225
+++ loncom/interface/lonmeta.pm 2009/03/17 20:07:45 1.226
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.225 2009/01/27 15:59:30 schafran Exp $
+# $Id: lonmeta.pm,v 1.226 2009/03/17 20:07:45 schulted Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -432,7 +432,7 @@ sub prettyprint {
}
# Title
if ($type eq 'title') {
- return ''.$value.'';
+ return $value;
}
# Dates
if (($type eq 'creationdate') ||
@@ -482,7 +482,7 @@ sub prettyprint {
($type eq 'comefrom_list') ||
($type eq 'sequsage_list') ||
($type eq 'dependencies')) {
- return ''.join("\n",map {
+ return ''.join("\n",map {
my $url = &Apache::lonnet::clutter_with_no_wrapper($_);
my $title = &Apache::lonnet::gettitle($url);
if ($title eq '') {
@@ -500,9 +500,9 @@ sub prettyprint {
}
}
$_ = '- '.$title.' '.
- &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat).
+ &Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'0',$noformat).
'
'
- } split(/\s*\,\s*/,$value)).'
';
+ } split(/\s*\,\s*/,$value)).'';
}
# Evaluations
if (($type eq 'clear') ||
@@ -519,7 +519,7 @@ sub prettyprint {
# List of courses
if ($type=~/\_list/) {
my @Courses = split(/\s*\,\s*/,$value);
- my $Str='';
+ my $Str='';
my %descriptions;
foreach my $course (@Courses) {
my %courseinfo =
@@ -538,7 +538,7 @@ sub prettyprint {
$Str .= $descriptions{$course};
}
- return $Str.'
';
+ return $Str.'';
}
# No pretty print found
return $value;