[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
find service now returns the URL... duh...
moby-live/Perl/MOBY Central.pm,1.48,1.49
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -r1.48 -r1.49
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 22:57:24	1.48
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 22:59:54	1.49
@@ -3181,7 +3181,7 @@
 	my $output="";
 	my $sth = $dbh->prepare(q{
 		select
-		category, servicename, service_type_uri, authority_id, description, authoritative
+		category, url, servicename, service_type_uri, authority_id, description, authoritative
 		from service_instance where
 		service_instance_id = ?});
 	my $sth_simple_in = $dbh->prepare("select object_type_uri, namespace_type_uris, article_name from simple_input where service_instance_id=? and collection_input_id IS NULL");
@@ -3199,7 +3199,7 @@
 	
 	foreach (@ids){
 		$sth->execute($_);
-		my ($category, $servicename, $service_type_uri, $authority_id, $desc, $authoritative) = $sth->fetchrow_array;
+		my ($category, $url, $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);
@@ -3209,6 +3209,7 @@
 		$output .= "\t<authoritative>$authoritative</authoritative>\n";
 		$output .= "\t<Category>$category</Category>\n";
 		$output .= "\t<Description>\n$desc\n\t</Description>\n";
+		$output .= "\t<URL>$url</URL>\n";		
 		$output .="\t<Input>\n";
 		$sth_simple_in->execute($_);
 		while (my ($objURI, $nsURI, $article) = $sth_simple_in->fetchrow_array()){