[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Thu May 8 15:47:08 UTC 2003


mwilkinson
Thu May  8 11:47:08 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1361/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
service block should be absent if no services are found, rather than beign full of empty elements
moby-live/Perl/MOBY Central.pm,1.25,1.26
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 15:19:50	1.25
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 15:47:08	1.26
@@ -3126,6 +3126,7 @@
 		$sth->execute($_);
 		my ($category, $servicename, $service_type_uri, $authority_id, $desc, $authoritative) = $sth->fetchrow_array;
 		#print "\n\nAFTER EXECUTE $category, $servicename, $service_type_uri, $authority_id, $desc, $authoritative\n\n";
+		next unless ($servicename && $authority_id);
 		my $service_type = $OSserv->getServiceCommonName($service_type_uri);
 		my ($authURI) = $dbh->selectrow_array(q{select authority_uri from authority where authority_id=?},undef,$authority_id);
 		$output .= "\t<Service authURI='$authURI' serviceName='$servicename'>\n";




More information about the MOBY-guts mailing list