--- 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.=''."\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.='
Obsolete parameters or stored values: '.
$chparms;
}
- }
+
# ------------------------------------------------------- Now have all metadata
$scrout.=