[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul 14 15:35:05 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1668/Perl/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
still porting my LocalServices to use the new CommonSubs module subroutines

moby-live/Perl/MOBY CommonSubs.pm,1.6,1.7
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/07/14 17:41:33	1.6
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/07/14 19:35:05	1.7
@@ -123,6 +123,7 @@
 	my @accessions;	
 	foreach my $in(@input_nodes){
 		#$in = "<Simple><Object namespace='' id=''/></Simple>"
+        next unless $in->getNodeName =~ /simple/i;  # only allow simples
 		my @simples = $in->getChildNodes;
 		foreach (@simples){ # $_ = <Object namespace='' id=''/>
 			next unless $_->getNodeType == ELEMENT_NODE;