|
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; |
| } |
} |
![[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