[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jun 15 10:55:17 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv14816/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
be sure to extract the database name from the config file in the case of a non-standard installation of the registry

moby-live/Perl/MOBY OntologyServer.pm,1.43,1.44
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -r1.43 -r1.44
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2004/06/15 01:00:26	1.43
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2004/06/15 14:55:17	1.44
@@ -152,7 +152,7 @@
 	my $password = $self->password?$self->password:$ENV{MOBY_CENTRAL_DBPASS}; chomp $password if $password; $password =~ s/\s//g if $password;
     my $port = $self->port?$self->port:$ENV{MOBY_CENTRAL_DBPORT}; chomp $port;
     
-    my ($dsn) = "DBI:mysql:".($self->database).":".($host).":".($port);
+    my ($dsn) = "DBI:mysql:".($conf->{$self->database}->{dbname}).":".($host).":".($port);
 
     my $dbh;
 #	$debug && &_LOG("connecting to db with params ",$self->database, $self->username, $self->password,"\n");