[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 29 13:49:18 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/lsid/authority
In directory pub.open-bio.org:/tmp/cvs-serv19691/MOBY/lsid/authority

Modified Files:
	metadata.pl 
Log Message:
LSID's are no longer case sensitive in the new LS::* stack from IBM

moby-live/Perl/MOBY/lsid/authority metadata.pl,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/metadata.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/metadata.pl	2004/01/15 20:59:38	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/metadata.pl	2004/07/29 17:49:18	1.5
@@ -28,13 +28,13 @@
 use MOBY::lsid::authority::ServiceInstanceResolver qw(:all);
 
 my %known_types = (  # switch on/off various LSID-namespace resolvers.
-    'namespacetype' => 1,
-    'objectclass' => 1,
-    'servicetype' => 1,
-    'servicerelation' => 1,
-    'objectrelation' => 1,
-    'serviceinstance' => 1,
-    'rdfpredicate' => 1,
+    'NamespaceType' => 1,
+    'ObjectClass' => 1,
+    'ServiceType' => 1,
+    'ServiceRelation' => 1,
+    'ObjectRelation' => 1,
+    'ServiceInstance' => 1,
+    'MOBYSPredicate' => 1,
                   );
 
 MetaData();
@@ -68,13 +68,13 @@
 		_die("UNKNOWN_LSID");
 	}
     
-    return resolve_namespacetype($namespacedb,$lsid) if $1 eq "namespacetype";
-    return resolve_classtype($objectdb,$lsid) if $1 eq "objectclass";
-    return resolve_servicetype($servicedb,$lsid) if $1 eq "servicetype";
-    return resolve_relationshiptype($relationshipdb,$lsid) if $1 eq "objectrelation";
-    return resolve_relationshiptype($relationshipdb,$lsid) if $1 eq "servicerelation";
-    return resolve_mobyPredicate($lsid) if $1 eq "rdfpredicate";
-    return resolve_ServiceInstance($lsid) if $1 eq "serviceinstance";
+    return resolve_namespacetype($namespacedb,$lsid) if $1 =~ /namespacetype/i;
+    return resolve_classtype($objectdb,$lsid) if $1 =~ /objectclass/i;
+    return resolve_servicetype($servicedb,$lsid) if $1 =~ /servicetype/i;
+    return resolve_relationshiptype($relationshipdb,$lsid) if $1 =~ /objectrelation/i;
+    return resolve_relationshiptype($relationshipdb,$lsid) if $1 =~ /servicerelation/i;
+    return resolve_mobyPredicate($lsid) if $1 =~ /rdfpredicate/i;
+    return resolve_ServiceInstance($lsid) if $1 =~ /serviceinstance/i;
     
 }