--- loncom/publisher/lonpublisher.pm 2001/12/05 21:12:04 1.59
+++ 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.59 2001/12/05 21:12:04 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,12 +351,14 @@ sub publish {
}
}
# ------------------------------------------------------------ Construct Allows
- unless ($style eq 'rat') {
+
$scrout.='
Dependencies
';
- my $allowstr="\n";
+ my $allowstr='';
map {
my $thisdep=$_;
- $allowstr.=''."\n";
+ unless ($style eq 'rat') {
+ $allowstr.="\n".'';
+ }
$scrout.='
';
unless ($thisdep=~/\*/) {
$scrout.='';
@@ -379,7 +383,7 @@ sub publish {
}
} keys %allow;
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;
- }
+
# ------------------------------------------------------------- Write modified
{
@@ -506,6 +510,7 @@ sub publish {
$scrout.=
'';
+ '';
}
# -------------------------------------------------------- Publication Step Two
@@ -631,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 {