--- loncom/publisher/lonpublisher.pm 2001/12/05 20:37:06 1.58
+++ loncom/publisher/lonpublisher.pm 2001/12/05 21:12:04 1.59
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.58 2001/12/05 20:37:06 www Exp $
+# $Id: lonpublisher.pm,v 1.59 2001/12/05 21:12:04 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -353,20 +353,29 @@ sub publish {
$scrout.='
Dependencies
';
my $allowstr="\n";
map {
- $allowstr.=''."\n";
+ my $thisdep=$_;
+ $allowstr.=''."\n";
$scrout.='
';
- unless ($_=~/\*/) {
- $scrout.='';
+ unless ($thisdep=~/\*/) {
+ $scrout.='';
}
- $scrout.=''.$_.'';
- unless ($_=~/\*/) {
+ $scrout.=''.$thisdep.'';
+ unless ($thisdep=~/\*/) {
$scrout.='';
- if (&Apache::lonnet::getfile(
- $Apache::lonnet::perlvar{'lonDocRoot'}.'/'.
- $_.'.meta') eq '-1') {
+ if (
+ &Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.'/'.
+ $thisdep.'.meta') eq '-1') {
$scrout.=
' - Currently not available';
- }
+ } else {
+ my %temphash=(&Apache::lonnet::declutter($target).'___'.
+ &Apache::lonnet::declutter($thisdep).'___usage'
+ => time);
+ $thisdep=~/^\/res\/(\w+)\/(\w+)\//;
+ if ((defined($1)) && (defined($2))) {
+ &Apache::lonnet::put('resevaldata',\%temphash,$1,$2);
+ }
+ }
}
} keys %allow;
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;