[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Apr 20 19:24:25 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv15701/MOBY

Modified Files:
	Central.pm OntologyServer.pm 
Log Message:
backing out incorrect changes I just committed

moby-live/Perl/MOBY Central.pm,1.126,1.127 OntologyServer.pm,1.39,1.40
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.126
retrieving revision 1.127
diff -u -r1.126 -r1.127
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2004/04/20 23:19:29	1.126
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2004/04/20 23:24:25	1.127
@@ -236,7 +236,6 @@
 	}
 	return &_error("Malformed authURI - must not have an http:// prefix","") if $auth =~ '[/:]';
 	return &_error("Malformed authURI - must take the form NNN.NNN.NNN","") unless $auth =~ /\./;
-print STDERR "\n\nemail was $email\n\n";
 	return &_error("Malformed email - must be a valid email address of the form name\@organization.foo","") unless $email =~ /\S\@\S+\.\S+/;
 
 	# validate that the final ontology will be valid by testing against existing relationships and such
@@ -2330,10 +2329,10 @@
 	return undef unless $term;   # and bail out if we didn't succeed
 
 	$ontology ||="service";   # if we have now succeeded and haven't already taken the ontology then it must be the service ontology
-	&_LOG("Ontology was $ontology; Term was: $term\n");
+	&_LOG("Ontology was $ontology; Term was $term\n");
 	my $OS = MOBY::OntologyServer->new(ontology => $ontology);
 	my %rels = %{$OS->Relationships(term => $term, expand => $expand_relationship)};  # %rels = $rels{relationship} = [lsid, lsid,lsid]
-        &_LOG("\nrels ",(keys %rels),"\n");
+
 	my $response="<Relationships>\n";
 	my $OSrel = MOBY::OntologyServer->new(ontology => 'relationship');
 	foreach (keys %reltypes){  # for each of our desired types
@@ -2341,7 +2340,6 @@
 		delete $reltypes{$_};   # remove the non-LSID version from the hash
 		$reltypes{$rellsid} = 1; # set the LSID as valid
 	}
-        &_LOG("\nvalid rels ",(keys %reltypes),"\n");
 	# now for each of the relationship types that we were returned
 	foreach (keys %rels){
 		my $rellsid = $OSrel->getRelationshipURI($ontology, $_);
@@ -2358,7 +2356,6 @@
 		$response .= "</Relationship>\n";
 	}
 	$response .="</Relationships>\n";
-	&_LOG("returning $response\n");
 	return $response;
 }
 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2004/04/20 23:19:29	1.39
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2004/04/20 23:24:25	1.40
@@ -593,7 +593,7 @@
     }
         
     if ($term =~ /^urn:lsid:biomoby.org:namespacetype/){
-        $sth = $self->dbh->prepare("select namespace_id, namespace_type, namespace_lsid,description, authority, contact_email from namespace where namespace_lsid= ?");
+        $sth = $self->dbh->prepare("select namespace_id, namespace_type, namespace_lsid,description, authority, contact_email from namespace where namespace_lsid = ?");
     } else {
         $sth = $self->dbh->prepare("select namespace_id, namespace_type, namespace_lsid,description, authority, contact_email from namespace where namespace_type = ?");
     }