[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[albertel]

albertel		Wed Jul  7 17:23:32 2004 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - BUG#3177, forgot to move some of the fix over
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.176 loncom/publisher/lonpublisher.pm:1.177
--- loncom/publisher/lonpublisher.pm:1.176	Wed Jul  7 16:43:20 2004
+++ loncom/publisher/lonpublisher.pm	Wed Jul  7 17:23:31 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.176 2004/07/07 20:43:20 albertel Exp $
+# $Id: lonpublisher.pm,v 1.177 2004/07/07 21:23:31 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -583,7 +583,7 @@
 	} elsif ($token->[0] eq 'E')  {
 	    $result.=$token->[2];
 	}
-	if ($result =~ /(.*)\Q$tag\E(.*)/s) {
+	if ($result =~ /\Q$tag\E/s) {
 	    ($result,my $redo)=$result =~ /(.*)\Q$tag\E(.*)/is;
 	    #&Apache::lonnet::logthis('Got a winner with leftovers ::'.$2);
 	    #&Apache::lonnet::logthis('Result is :'.$1);