[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	MOBY-Client05.cgi 
Log Message:
Client Fixed

moby-live/Perl/scripts MOBY-Client05.cgi,1.14,1.15
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 18:42:08	1.14
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 18:51:02	1.15
@@ -248,8 +248,7 @@
                 }
                 $OBJ .= "<b>$article (".escapeHTML($_->getTagName).")</b> : ";
                 foreach my $content($_->getChildNodes){
-                    _LOG("FOUND CONTENT $content\n");
-                    $data .= $content->toString if (($content->getNodeTypeName == TEXT_NODE) || ($_->getNodeType == CDATA_SECTION_NODE));
+                    $data .= $content->toString if (($content->getNodeTypeName eq "TEXT_NODE") || ($_->getNodeTypeName eq "CDATA_SECTION_NODE"));
                 }
             }
 #                $OBJ .= "".escapeHTML($Payload->item($_)->toString)."<br>";