--- loncom/publisher/lonpublisher.pm	2002/04/14 16:25:39	1.77
+++ loncom/publisher/lonpublisher.pm	2002/04/17 18:32:35	1.79
@@ -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.79 2002/04/17 18:32:35 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'}) && (ref($ENV{'form.keywords'}))) {
+         my @Keywords = @{$ENV{'form.keywords'}};
+         foreach (@Keywords) {
+             $allkeywords.=','.$_;
+         }
      }
      $allkeywords=~s/\W+/\,/;
      $allkeywords=~s/^\,//;