--- loncom/publisher/lonpublisher.pm	2001/08/11 19:06:54	1.36
+++ loncom/publisher/lonpublisher.pm	2001/08/13 12:53:06	1.37
@@ -11,7 +11,7 @@
 # 04/16/2001 Scott Harrison
 # 05/03,05/05,05/07 Gerd Kortemeyer
 # 05/28/2001 Scott Harrison
-# 06/23,08/07,08/11 Gerd Kortemeyer
+# 06/23,08/07,08/11,8/13 Gerd Kortemeyer
 
 package Apache::lonpublisher;
 
@@ -282,12 +282,15 @@ sub publish {
               }
           }
 # ------------------------------------------------------------ Construct Allows
+     unless ($style eq 'rat') {
 	my $allowstr="\n";
         map {
            $allowstr.='<allow src="'.$_.'" />'."\n";
         } keys %allow;
         $outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;
-        
+    }
+# ------------------------------------------------------------- Write modified
+
         {
           my $org;
           unless ($org=Apache::File->new('>'.$source)) {
@@ -306,7 +309,7 @@ sub publish {
       } else {
 	  print $logfile "Does not need ID and/or index fixup\n";
       }
-
+    }
 # --------------------------------------------- Initial step done, now metadata
 
 # ---------------------------------------- Storage for metadata keys and fields
@@ -364,11 +367,11 @@ sub publish {
     }
 
 # -------------------------------------------------- Parse content for metadata
-
+    if ($style eq 'ssi') {
         $allmeta=Apache::lonxml::xmlparse('meta',$content);
 
         &metaeval($allmeta);
-
+    }
 # ---------------- Find and document discrepancies in the parameters and stores
 
         my $chparms='';
@@ -401,7 +404,7 @@ sub publish {
 	    $scrout.='<p><b>Obsolete parameters or stored values:</b> '.
                      $chparms;
         }
-    }
+
 # ------------------------------------------------------- Now have all metadata
 
         $scrout.=