[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 11 23:18:29 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv15706/Perl/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
untested changes to print the text nodes

moby-live/Perl/scripts MOBY-Client05.cgi,1.10,1.11
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 03:15:58	1.10
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/12 03:18:29	1.11
@@ -230,7 +230,7 @@
         foreach ($Object->getChildNodes()){
             my $data;
             if ($_->getNodeType == TEXT_NODE || $_->getNodeType == CDATA_SECTION_NODE){
-                $data = $_->getValue;
+                $data = $_->toString;
             } elsif ($_->getNodeType == ELEMENT_NODE){
                 next if  ($_->getTagName =~ /CrossReference/);
                 my $article = $_->getAttributeNode('articleName');