--- loncom/publisher/lonpublisher.pm	2002/08/09 19:49:30	1.92
+++ loncom/publisher/lonpublisher.pm	2002/08/12 14:48:32	1.93
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.92 2002/08/09 19:49:30 albertel Exp $
+# $Id: lonpublisher.pm,v 1.93 2002/08/12 14:48:32 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1076,17 +1076,20 @@ sub phasetwo {
      $metadatafields{'abstract'}=$ENV{'form.abstract'};
      $metadatafields{'mime'}=$ENV{'form.mime'};
      $metadatafields{'language'}=$ENV{'form.language'};
-     $metadatafields{'creationdate'}=$ENV{'form.creationdate'};
-     $metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'};
+     $metadatafields{'creationdate'}=
+         &sqltime($ENV{'form.creationdate'});
+     $metadatafields{'lastrevisiondate'}=
+         &sqltime($ENV{'form.lastrevisiondate'});
      $metadatafields{'owner'}=$ENV{'form.owner'};
      $metadatafields{'copyright'}=$ENV{'form.copyright'};
      $metadatafields{'dependencies'}=$ENV{'form.dependencies'};
 
      my $allkeywords=$ENV{'form.addkey'};
-     if (exists($ENV{'form.keywords'}) && (ref($ENV{'form.keywords'}))) {
-         my @Keywords = @{$ENV{'form.keywords'}};
-         foreach (@Keywords) {
-             $allkeywords.=','.$_;
+     if (exists($ENV{'form.keywords'})) {
+         if (ref($ENV{'form.keywords'})) {
+             $allkeywords .= ','.join(',',@{$ENV{'form.keywords'}});
+         } else {
+             $allkeywords .= ','.$ENV{'form.keywords'};
          }
      }
      $allkeywords=~s/\W+/\,/;