--- loncom/publisher/lonpublisher.pm	2003/03/14 16:02:49	1.117
+++ 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.117 2003/03/14 16:02:49 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;
@@ -1315,7 +1315,7 @@ sub phasetwo {
                 unlink($srcd.'/'.$filename);
                 unlink($srcd.'/'.$filename.'.meta');
             } else {
-                if ($filename=~/$srcf\.(\d+)\.$srct$/) {
+                if ($filename=~/\Q$srcf\E\.(\d+)\.\Q$srct\E$/) {
                     $maxversion=($1>$maxversion)?$1:$maxversion;
                 }
             }