[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Mar  7 23:44:12 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv30386

Modified Files:
	CommonSubs.pm 
Log Message:
fixed error reported by Pieter.  Thanks.

moby-live/Perl/MOBY CommonSubs.pm,1.59,1.60
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -r1.59 -r1.60
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2005/02/08 16:49:15	1.59
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2005/03/08 04:44:12	1.60
@@ -1280,7 +1280,7 @@
 					my $valuenode = $valuenodes->get_node( $_ );
 					foreach my $amount ( $valuenode->childNodes ) {
 						next unless $amount->nodeType == TEXT_NODE;
-						$resp .= $amount->toString;
+						$resp .= $amount->nodeValue;
 					}
 				}
 				push @contents, $resp;
@@ -1288,7 +1288,7 @@
 				my $resp;
 				foreach ( $child->childNodes ) {
 					next unless $_->nodeType == TEXT_NODE;
-					$resp .= $_->toString;
+					$resp .= $_->nodeValue;
 				}
 				push @contents, $resp;
 			}