[MOBY-guts] biomoby commit
Mark Wilkinson
mwilkinson at pub.open-bio.org
Sat Jul 12 18:51:02 UTC 2003
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>";
More information about the MOBY-guts
mailing list