--- loncom/publisher/lonpublisher.pm	2000/11/30 11:22:58	1.5
+++ loncom/publisher/lonpublisher.pm	2000/11/30 16:22:13	1.6
@@ -14,6 +14,7 @@ use Apache::File;
 use Apache::Constants qw(:common :http :methods);
 use HTML::TokeParser;
 use Apache::lonxml;
+use Apache::lonhomework;
 
 my %addid;
 my %nokey;
@@ -144,7 +145,12 @@ sub publish {
       }
 # -------------------------------------------------- Parse content for metadata
 
-	my $allmeta=Apache::lonxml::xmlparse('meta',$content);
+	my $allmeta='';
+        if ($source=~/\.problem$/) {
+	    $allmeta=Apache::lonhomework::subhandler('meta',$content);
+        } else {
+            $allmeta=Apache::lonxml::xmlparse('meta',$content);
+	}
 
 # DEBUG:
 
@@ -169,7 +175,7 @@ sub publish {
 
 # DEBUG:
 
-	       $scrout=join('<br>',sort keys %keywords);
+	       $scrout.=join('<br>',sort keys %keywords);
 
         }