[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Jul 12 02:53:07 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv16084/Perl/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
handling plaintext in the client viewer - making it <pre>. untested

moby-live/Perl/scripts MOBY-Client05.cgi,1.11,1.12
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 03:18:29	1.11
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 06:53:07	1.12
@@ -230,7 +230,7 @@
         foreach ($Object->getChildNodes()){
             my $data;
             if ($_->getNodeType == TEXT_NODE || $_->getNodeType == CDATA_SECTION_NODE){
-                $data = $_->toString;
+                $data = "<pre>".($_->toString)."</pre>";
             } elsif ($_->getNodeType == ELEMENT_NODE){
                 next if  ($_->getTagName =~ /CrossReference/);
                 my $article = $_->getAttributeNode('articleName');
@@ -242,7 +242,7 @@
                 $OBJ .= "<b>$article (".escapeHTML($_->getTagName).")</b> : ";
             }
 #                $OBJ .= "".escapeHTML($Payload->item($_)->toString)."<br>";
-            $OBJ .= "".escapeHTML($data)."<br>";
+            $OBJ .= "$data<br>";
         }
     
         $response .= "<td BGCOLOR = '#CCCCFF' valign='top' align='left'><SMALL>$XrefString$OBJ</SMALL></td></tr>\n"; #  HTML escaped XML of the object