[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Apr 20 15:10:38 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv14546/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
allow deregistration of LSIDs from Object ontology

moby-live/Perl/MOBY OntologyServer.pm,1.36,1.37
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2004/04/20 19:02:19	1.36
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2004/04/20 19:10:38	1.37
@@ -73,7 +73,7 @@
 use Carp;
 use vars qw($AUTOLOAD);
 use DBI;
-use DBD::mysql;
+#use DBD::mysql;
 
 my $debug = 1;
 
@@ -308,9 +308,9 @@
     return (0, "WRONG ONTOLOGY",'') unless ($self->ontology eq 'object');
 
     my $term = $args{term};
-    if ($term =~ /^urn:lsid/ && !($term =~ /^urn:lsid:biomoby.org:objectclass/)){
-        return (0, "can't delete from external ontology", $term);
-    }
+#    if ($term =~ /^urn:lsid/ && !($term =~ /^urn:lsid:biomoby.org:objectclass/)){
+#        return (0, "can't delete from external ontology", $term);
+#    }
 
     my $LSID;
     unless ($term =~ /urn\:lsid/){$LSID = $self->getObjectURI($term)} else {$LSID=$term}