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

[albertel]

albertel		Thu Aug 21 13:01:07 2003 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - publishing was screwing up scripts and displays, especially when doing things like multiline strings. use get_all_text_unbalanced now to quickly seek to the end of the script/display tags.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.129 loncom/publisher/lonpublisher.pm:1.130
--- loncom/publisher/lonpublisher.pm:1.129	Thu Aug 14 09:48:34 2003
+++ loncom/publisher/lonpublisher.pm	Thu Aug 21 13:01:07 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.129 2003/08/14 13:48:34 www Exp $
+# $Id: lonpublisher.pm,v 1.130 2003/08/21 17:01:07 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -718,8 +718,9 @@
 		}
 		if (!$endtag) { if ($token->[4]=~m:/>$:) { $endtag=' /'; }; }
 		$outstring.='<'.$tag.$newparmstring.$endtag.'>';
-		if ($lctag eq 'm') {
-		    $outstring.=&get_all_text_unbalanced('/m',\@parser);
+		if ($lctag eq 'm' || $lctag eq 'script' 
+                    || $lctag eq 'display') {
+		    $outstring.=&get_all_text_unbalanced('/'.$lctag,\@parser);
 		}
 	    } elsif ($token->[0] eq 'E') {
 		if ($token->[2]) {