--- loncom/publisher/lonpublisher.pm 2003/04/02 02:17:10 1.121 +++ loncom/publisher/lonpublisher.pm 2003/07/23 19:17:27 1.126 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.121 2003/04/02 02:17:10 www Exp $ +# $Id: lonpublisher.pm,v 1.126 2003/07/23 19:17:27 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -190,7 +190,7 @@ sub metaeval { } if ($metadatafields{$unikey}) { my $newentry=$parser->get_text('/'.$entry); - unless (($metadatafields{$unikey}=~/$newentry/) || + unless (($metadatafields{$unikey}=~/\Q$newentry\E/) || ($newentry eq '')) { $metadatafields{$unikey}.=', '.$newentry; } @@ -304,7 +304,9 @@ string which presents the form field (fo ######################################### sub textfield { my ($title,$name,$value)=@_; - return "\n
$title:
$uctitle:". + "
$uctitle:". - "