|
version 1.42, 2003/12/26 16:27:20
|
version 1.43, 2003/12/26 21:17:37
|
|
Line 40 use Apache::loncommon();
|
Line 40 use Apache::loncommon();
|
| use Apache::lonmsg; |
use Apache::lonmsg; |
| use Apache::lonpublisher; |
use Apache::lonpublisher; |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| |
use Apache::lonmysql; |
| |
|
| # ----------------------------------------- Fetch and evaluate dynamic metadata |
# ----------------------------------------- Fetch and evaluate dynamic metadata |
| |
|
|
Line 235 sub handler {
|
Line 236 sub handler {
|
| # --------------------------------------------------------------- Render Output |
# --------------------------------------------------------------- Render Output |
| my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); |
my ($thisversion)=($uri=~/\.(\d+)\.(\w+)\.meta$/); |
| my $creationdate=&Apache::lonlocal::locallocaltime( |
my $creationdate=&Apache::lonlocal::locallocaltime( |
| &Apache::loncommon::unsqltime($content{'creationdate'})); |
&Apache::lonmysql::unsqltime($content{'creationdate'})); |
| my $lastrevisiondate=&Apache::lonlocal::locallocaltime( |
my $lastrevisiondate=&Apache::lonlocal::locallocaltime( |
| &Apache::loncommon::unsqltime($content{'lastrevisiondate'})); |
&Apache::lonmysql::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'}); |
| my $disuri=&Apache::lonnet::declutter($uri); |
my $disuri=&Apache::lonnet::declutter($uri); |
![[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