[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Aug 22 14:30:50 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv30599/Perl/MOBY-Server/lib/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
whenever a datatype didnt exist in the ontology and you try to remove it, an error like:
    Object type $term cannot be resolved to an LSID
was being returned. removed qw{} and replaced it with "" so that $term is resolved to the actual term.
moby-live/Perl/MOBY-Server/lib/MOBY OntologyServer.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/OntologyServer.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/OntologyServer.pm	2008/02/21 00:21:27	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/OntologyServer.pm	2008/08/22 18:30:50	1.2
@@ -443,7 +443,7 @@
 #    }
 	my $LSID;
 	unless ( $term =~ /urn\:lsid/ ) { $LSID = $self->getObjectURI($term) } else { $LSID = $term }
-	return ( 0, q{Object type $term cannot be resolved to an LSID}, "" )
+	return ( 0, "Object type $term cannot be resolved to an LSID", "" )
 	  unless $LSID;
 	
 	my $result = $adaptor->query_object(type => $LSID);