[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 18:57:24 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv4872/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
should be able to discover by servicename
moby-live/Perl/MOBY Central.pm,1.47,1.48
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 22:54:34	1.47
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 22:57:24	1.48
@@ -1183,19 +1183,19 @@
 	        }
 		}
         my $defs =  $node->getElementsByTagName('default');
-        if ($types->item(0)){
+        if ($defs->item(0)){
 			foreach ($defs->item(0)->getChildNodes){ # should only ever be one!
 				($_->getNodeType == TEXT_NODE) && ($def = $_->toString);
 			}
 		}
         my $maxs =  $node->getElementsByTagName('max');
-        if ($types->item(0)){
+        if ($maxs->item(0)){
 			foreach ($maxs->item(0)->getChildNodes){ # should only ever be one!
 				($_->getNodeType == TEXT_NODE) && ($max = $_->toString);
 			}
 		}
         my $mins =  $node->getElementsByTagName('min');
-        if ($types->item(0)){
+        if ($mins->item(0)){
 			foreach ($mins->item(0)->getChildNodes){ # should only ever be one!
 				($_->getNodeType == TEXT_NODE) && ($min = $_->toString);
 			}