--- loncom/publisher/lonpublisher.pm 2002/06/24 14:25:38 1.83 +++ loncom/publisher/lonpublisher.pm 2002/07/17 18:23:45 1.84 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.83 2002/06/24 14:25:38 www Exp $ +# $Id: lonpublisher.pm,v 1.84 2002/07/17 18:23:45 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -478,7 +478,10 @@ sub publish { my %oldparmstores=(); - $scrout.='

Metadata Information

'; + + $scrout.='

Metadata Information ' . + Apache::loncommon::help_open_topic("Metadata_Description") + . '

'; # ------------------------------------------------ First, check out environment unless (-e $source.'.meta') { @@ -585,6 +588,7 @@ sub publish { # --------------------------------------------------- Scan content for keywords + my $keywords_help = Apache::loncommon::help_open_topic("Publishing_Keywords"); my $keywordout=<<"END"; -

Keywords: +

Keywords: $keywords_help
@@ -679,6 +683,7 @@ END $scrout.=&textfield('Publisher/Owner','owner', $metadatafields{'owner'}); # --------------------------------------------------- Correct copyright for rat + if ($style eq 'rat') { if ($metadatafields{'copyright'} eq 'public') { delete $metadatafields{'copyright'}; @@ -694,6 +699,9 @@ END \&Apache::loncommon::copyrightdescription, (&Apache::loncommon::copyrightids)); } + + my $copyright_help = Apache::loncommon::help_open_topic("Publishing_Copyright"); + $scrout =~ s/DISTRIBUTION:/'DISTRIBUTION: ' . $copyright_help/ge; return $scrout. '

'; }