--- loncom/publisher/lonpublisher.pm	2001/12/05 21:12:04	1.59
+++ loncom/publisher/lonpublisher.pm	2001/12/06 18:56:14	1.62
@@ -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.62 2001/12/06 18:56:14 www 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.='<h3>Dependencies</h3>';
-	my $allowstr="\n";
+        my $allowstr='';
         map {
 	   my $thisdep=$_;
-           $allowstr.='<allow src="'.$thisdep.'" />'."\n";
+           unless ($style eq 'rat') { 
+              $allowstr.="\n".'<allow src="'.$thisdep.'" />';
+	   }
            $scrout.='<br>';
            unless ($thisdep=~/\*/) {
 	       $scrout.='<a href="'.$thisdep.'">';
@@ -379,7 +383,7 @@ sub publish {
            }
         } keys %allow;
         $outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;
-    }
+
 # ------------------------------------------------------------- Write modified
 
         {
@@ -631,6 +635,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 {