[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jan 15 16:18:50 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/lsid/authority
In directory pub.open-bio.org:/tmp/cvs-serv27686/authority

Modified Files:
	ClassResolver.pm NamespaceResolver.pm RelationshipResolver.pm 
	ServiceResolver.pm 
Log Message:
bah.  The subroutine is exported.

moby-live/Perl/MOBY/lsid/authority ClassResolver.pm,1.4,1.5 NamespaceResolver.pm,1.4,1.5 RelationshipResolver.pm,1.4,1.5 ServiceResolver.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ClassResolver.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ClassResolver.pm	2004/01/15 20:59:38	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ClassResolver.pm	2004/01/15 21:18:50	1.5
@@ -28,7 +28,7 @@
 	my $rev= $lsid->revision;
 	
 	my $mdata;
-    my $dbh = MOBY::lsid::authority::dbConnect($class_db_params);
+    my $dbh = dbConnect($class_db_params);
     # e.g. urn:lsid:biomoby.org:objectclass:text-base64
     my $sth = $dbh->prepare("select object_type, description, authority, contact_email from object where object_lsid = ?");
     $sth->execute($lsid);

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/NamespaceResolver.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/NamespaceResolver.pm	2004/01/15 20:59:38	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/NamespaceResolver.pm	2004/01/15 21:18:50	1.5
@@ -29,7 +29,7 @@
 	my $rev= $lsid->revision;
 	
 	my $mdata;
-    my $dbh = MOBY::lsid::authority::dbConnect($namespace_db_params);
+    my $dbh = dbConnect($namespace_db_params);
 
     my $sth = $dbh->prepare("select namespace_type, description, authority, contact_email from namespace where namespace_lsid = ?");
     $sth->execute($lsid);

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RelationshipResolver.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RelationshipResolver.pm	2004/01/15 20:59:38	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RelationshipResolver.pm	2004/01/15 21:18:50	1.5
@@ -28,7 +28,7 @@
 	my $rev= $lsid->revision;
 	
 	my $mdata;
-    my $dbh = MOBY::lsid::authority::dbConnect($class_db_params);
+    my $dbh = dbConnect($class_db_params);
     # e.g. urn:lsid:biomoby.org:objectrelation:isa
     my $sth = $dbh->prepare("select relationship_type, description, authority, contact_email, ontology from relationship where relationship_lsid = ?");
     $sth->execute($lsid);

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ServiceResolver.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ServiceResolver.pm	2004/01/15 20:59:38	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ServiceResolver.pm	2004/01/15 21:18:50	1.5
@@ -28,7 +28,7 @@
 	my $rev= $lsid->revision;
 	
 	my $mdata;
-    my $dbh = MOBY::lsid::authority::dbConnect($class_db_params);
+    my $dbh = dbConnect($class_db_params);
     # e.g. urn:lsid:biomoby.org:servicetype:retrieval
     my $sth = $dbh->prepare("select service_type, description, authority, contact_email from service where service_lsid = ?");
     $sth->execute($lsid);