[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul  1 12:01:02 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv18541/scripts

Modified Files:
	MOBY-Client05.cgi 
Log Message:
added checking for validity of arguments passed to Simple and Collection articles

moby-live/Perl/scripts MOBY-Client05.cgi,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/01 15:00:48	1.3
+++ /home/repository/moby/moby-live/Perl/scripts/MOBY-Client05.cgi	2003/07/01 16:01:02	1.4
@@ -387,7 +387,7 @@
             my @XrefsXML;
             my $Xref_list = $CRIB->item(0)->getChildNodes();
             foreach (0..$Xref_list->getLength-1){
-                    next unless $Xref_list->item($_) == ELEMENT_NODE;
+                    next unless $Xref_list->item($_)->getNodeType == ELEMENT_NODE;
                     push @XrefsXML, $Xref_list->item($_)->toString;
             }
             push @Types, [$object_name, \@XrefsXML];