--- loncom/publisher/lonpublisher.pm 2001/12/05 20:37:06 1.58
+++ loncom/publisher/lonpublisher.pm 2001/12/07 22:34:56 1.63
@@ -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.63 2001/12/07 22:34:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -39,6 +39,8 @@
# 06/23,08/07,08/11,8/13,8/17,8/18,8/24,9/26,10/16 Gerd Kortemeyer
# 12/04,12/05 Guy Albertelli
# 12/05 Gerd Kortemeyer
+# 12/05 Guy Albertelli
+# 12/06 Gerd Kortemeyer
package Apache::lonpublisher;
@@ -349,28 +351,39 @@ sub publish {
}
}
# ------------------------------------------------------------ Construct Allows
- unless ($style eq 'rat') {
+
$scrout.='
Dependencies
';
- my $allowstr="\n";
+ my $allowstr='';
map {
- $allowstr.=''."\n";
+ my $thisdep=$_;
+ unless ($style eq 'rat') {
+ $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;
- }
+
# ------------------------------------------------------------- Write modified
{
@@ -497,6 +510,7 @@ sub publish {
$scrout.=
'';
+ '';
}
# -------------------------------------------------------- Publication Step Two
@@ -622,6 +636,7 @@ sub phasetwo {
$metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'};
$metadatafields{'owner'}=$ENV{'form.owner'};
$metadatafields{'copyright'}=$ENV{'form.copyright'};
+ $metadatafields{'dependencies'}=$ENV{'form.dependencies'};
my $allkeywords=$ENV{'form.addkey'};
map {