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