[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[matthew]

matthew		Wed Apr 17 14:32:35 2002 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  Fix another bug.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.78 loncom/publisher/lonpublisher.pm:1.79
--- loncom/publisher/lonpublisher.pm:1.78	Wed Apr 17 12:21:46 2002
+++ loncom/publisher/lonpublisher.pm	Wed Apr 17 14:32:35 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.78 2002/04/17 16:21:46 matthew Exp $
+# $Id: lonpublisher.pm,v 1.79 2002/04/17 18:32:35 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -714,7 +714,7 @@
      $metadatafields{'dependencies'}=$ENV{'form.dependencies'};
 
      my $allkeywords=$ENV{'form.addkey'};
-     if (exists($ENV{'form.keywords'})) {
+     if (exists($ENV{'form.keywords'}) && (ref($ENV{'form.keywords'}))) {
          my @Keywords = @{$ENV{'form.keywords'}};
          foreach (@Keywords) {
              $allkeywords.=','.$_;