version 1.151, 2006/03/02 20:16:10
|
version 1.152, 2006/03/02 20:57:15
|
Line 793 sub present_uneditable_metadata {
|
Line 793 sub present_uneditable_metadata {
|
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($uri); |
|
$disuri=~s/^\/adm\/wrapper//; |
# version |
# version |
my $currentversion=&Apache::lonnet::getversion($disuri); |
my $currentversion=&Apache::lonnet::getversion($disuri); |
my $versiondisplay=''; |
my $versiondisplay=''; |