--- loncom/publisher/lonpublisher.pm 2001/12/05 22:00:14 1.61 +++ 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.61 2001/12/05 22:00:14 albertel 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.='

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,7 +510,6 @@ sub publish { $scrout.= '
'. - '

'. &hiddenfield('phase','two'). &hiddenfield('filename',$ENV{'form.filename'}). &hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)). @@ -598,7 +601,7 @@ sub publish { $metadatafields{'copyright'},%cprtag); return $scrout. - '

'; + '

'; } # -------------------------------------------------------- Publication Step Two