version 1.81, 2004/06/17 15:05:59
|
version 1.82, 2004/06/17 18:22:13
|
Line 283 sub fieldnames {
|
Line 283 sub fieldnames {
|
# Pretty printing of metadata field |
# Pretty printing of metadata field |
|
|
sub prettyprint { |
sub prettyprint { |
my ($type,$value)=@_; |
my ($type,$value,$target,$prefix,$form,$noformat)=@_; |
|
# $target,$prefix,$form are optional and for filecrumbs only |
if (! defined($value)) { |
if (! defined($value)) { |
return ' '; |
return ' '; |
} |
} |
Line 337 sub prettyprint {
|
Line 338 sub prettyprint {
|
($type eq 'obsoletereplacement') || |
($type eq 'obsoletereplacement') || |
($type eq 'goto_list') || |
($type eq 'goto_list') || |
($type eq 'comefrom_list') || |
($type eq 'comefrom_list') || |
($type eq 'sequsage_list')) { |
($type eq 'sequsage_list') || |
return join('<br />',map { |
($type eq 'linkto_list')) { |
|
return '<ul><font size="-1">'.join("\n",map { |
my $url = &Apache::lonnet::clutter($_); |
my $url = &Apache::lonnet::clutter($_); |
my $title = &Apache::lonnet::gettitle($url); |
my $title = &Apache::lonnet::gettitle($url); |
if ($title eq '') { |
if ($title eq '') { |
Line 355 sub prettyprint {
|
Line 357 sub prettyprint {
|
$title .= ' Syllabus'; |
$title .= ' Syllabus'; |
} |
} |
} |
} |
$_ = '<b>'.$title.'</b> '. |
$_ = '<li>'.$title.' '. |
'<a href="'.$url.'" target="preview">'. |
&Apache::lonhtmlcommon::crumbs($url,$target,$prefix,$form,'-1',$noformat). |
'<font size="-1">'.$url.'</font>'. |
'</li>' |
'</a>' |
} split(/\s*\,\s*/,$value)).'</ul></font>'; |
} split(/\s*\,\s*/,$value)); |
|
} |
} |
# Evaluations |
# Evaluations |
if (($type eq 'clear') || |
if (($type eq 'clear') || |