version 1.37, 2003/09/27 13:20:46
|
version 1.38, 2003/10/04 20:49:40
|
Line 219 sub handler {
|
Line 219 sub handler {
|
|
|
# --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); |
my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); |
my $creationdate=localtime( |
my $creationdate=&Apache::lonlocal::locallocaltime( |
&Apache::loncommon::unsqltime($content{'creationdate'})); |
&Apache::loncommon::unsqltime($content{'creationdate'})); |
my $lastrevisiondate=localtime( |
my $lastrevisiondate=&Apache::lonlocal::locallocaltime( |
&Apache::loncommon::unsqltime($content{'lastrevisiondate'})); |
&Apache::loncommon::unsqltime($content{'lastrevisiondate'})); |
my $language=&Apache::loncommon::languagedescription($content{'language'}); |
my $language=&Apache::loncommon::languagedescription($content{'language'}); |
my $mime=&Apache::loncommon::filedescription($content{'mime'}); |
my $mime=&Apache::loncommon::filedescription($content{'mime'}); |
Line 234 my $owner=$content{'owner'};
|
Line 234 my $owner=$content{'owner'};
|
$owner=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse; |
$owner=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse; |
my $versiondisplay=''; |
my $versiondisplay=''; |
if ($thisversion) { |
if ($thisversion) { |
$versiondisplay='Version: '.$thisversion. |
$versiondisplay=&mt('Version').': '.$thisversion. |
' (most recent version: '.$currentversion.')'; |
' ('.&mt('most recent version').': '.$currentversion.')'; |
} else { |
} else { |
$versiondisplay='Version: '.$currentversion; |
$versiondisplay='Version: '.$currentversion; |
} |
} |