--- loncom/publisher/lonpublisher.pm 2003/03/14 15:29:46 1.116
+++ loncom/publisher/lonpublisher.pm 2003/03/17 16:58:09 1.119
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.116 2003/03/14 15:29:46 albertel Exp $
+# $Id: lonpublisher.pm,v 1.119 2003/03/17 16:58:09 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -436,7 +436,7 @@ sub get_subscribed_hosts {
my $srcf=$2;
opendir(DIR,$1);
while ($filename=readdir(DIR)) {
- if ($filename=~/$srcf\.(\w+)$/) {
+ if ($filename=~/\Q$srcf\E\.(\w+)$/) {
my $subhost=$1;
if (($subhost ne 'meta' && $subhost ne 'subscription') &&
($subhost ne $Apache::lonnet::perlvar{'lonHostID'})) {
@@ -814,7 +814,7 @@ sub publish {
print $logfile
"\n\n================= Publish ".localtime()." Phase One ================\n";
- if (($style eq 'ssi') || ($style eq 'rat')) {
+ if (($style eq 'ssi') || ($style eq 'rat') || ($style eq 'prv')) {
# ------------------------------------------------------- This needs processing
# ----------------------------------------------------------------- Backup Copy
@@ -946,7 +946,7 @@ sub publish {
}
# -------------------------------------------------- Parse content for metadata
- if ($style eq 'ssi') {
+ if (($style eq 'ssi') || ($style eq 'prv')) {
my $oldenv=$ENV{'request.uri'};
$ENV{'request.uri'}=$target;
@@ -1046,7 +1046,7 @@ function uncheckAll(field) {
-END
+END
$keywordout.='