|
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') || |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmeta.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface