--- loncom/publisher/lonpublisher.pm 2002/04/14 16:25:39 1.77 +++ loncom/publisher/lonpublisher.pm 2002/04/17 16:21:46 1.78 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.77 2002/04/14 16:25:39 matthew Exp $ +# $Id: lonpublisher.pm,v 1.78 2002/04/17 16:21:46 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -714,9 +714,11 @@ sub phasetwo { $metadatafields{'dependencies'}=$ENV{'form.dependencies'}; my $allkeywords=$ENV{'form.addkey'}; - my @Keywords = @{$ENV{'form.keywords'}}; - foreach (@Keywords) { - $allkeywords.=','.$_; + if (exists($ENV{'form.keywords'})) { + my @Keywords = @{$ENV{'form.keywords'}}; + foreach (@Keywords) { + $allkeywords.=','.$_; + } } $allkeywords=~s/\W+/\,/; $allkeywords=~s/^\,//;