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) { |