--- loncom/publisher/lonpublisher.pm	2002/04/17 16:21:46	1.78
+++ loncom/publisher/lonpublisher.pm	2002/05/07 18:07:46	1.80
@@ -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.80 2002/05/07 18:07:46 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -714,7 +714,7 @@ sub phasetwo {
      $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.=','.$_;
@@ -990,17 +990,8 @@ sub handler {
 
 # Get query string for limited number of parameters
 
-    foreach (split(/&/,$ENV{'QUERY_STRING'})) {
-       my ($name, $value) = split(/=/,$_);
-       $value =~ tr/+/ /;
-       $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
-       if ($name eq 'filename') {
-           unless ($ENV{'form.'.$name}) {
-              $ENV{'form.'.$name}=$value;
-	   }
-       }
-    }
-
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+                                            ['filename']);
 
 # -------------------------------------------------------------- Check filename