|
version 1.182, 2006/10/06 19:12:22
|
version 1.183, 2006/10/16 21:39:37
|
|
Line 469 sub prettyprint {
|
Line 469 sub prettyprint {
|
| ($type eq 'sequsage_list') || |
($type eq 'sequsage_list') || |
| ($type eq 'dependencies')) { |
($type eq 'dependencies')) { |
| return '<font size="-1"><ul>'.join("\n",map { |
return '<font size="-1"><ul>'.join("\n",map { |
| my $url = &Apache::lonnet::clutter($_); |
my $url = &Apache::lonnet::clutter_with_no_wrapper($_); |
| my $title = &Apache::lonnet::gettitle($url); |
my $title = &Apache::lonnet::gettitle($url); |
| if ($title eq '') { |
if ($title eq '') { |
| $title = 'Untitled'; |
$title = 'Untitled'; |
|
Line 829 sub present_uneditable_metadata {
|
Line 829 sub present_uneditable_metadata {
|
| # displayed url |
# displayed url |
| my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); |
my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); |
| $uri=~s/\.meta$//; |
$uri=~s/\.meta$//; |
| my $disuri=&Apache::lonnet::clutter($uri); |
my $disuri=&Apache::lonnet::clutter_with_no_wrapper($uri); |
| $disuri=~s/^\/adm\/wrapper//; |
|
| # version |
# version |
| my $versiondisplay=''; |
my $versiondisplay=''; |
| if (!$uploaded) { |
if (!$uploaded) { |
![[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