[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Jun 24 14:23:16 EDT 2010
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv4066/lib/MOBY/Client

Modified Files:
	OntologyServer.pm 
Log Message:
fix: dont ping to get biomoby default UNLESS one is NOT defined! 
moby-live/Perl/MOBY-Server/lib/MOBY/Client OntologyServer.pm,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/OntologyServer.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/OntologyServer.pm	2008/09/02 13:11:40	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Client/OntologyServer.pm	2010/06/24 18:23:16	1.3
@@ -127,8 +127,12 @@
 			$self->{$attrname} = $self->_default_for( $attrname );
 		}
 	}
-	my ($ontologyserver) = _getOntologyServer();  # get default from moby central
+	# get ontology server if not defined in ENV
+	do {
+        my ($ontologyserver) = _getOntologyServer();  # get default from moby central
         $self->host($ontologyserver) if $ontologyserver;
+    } unless $ENV{MOBY_ONTOLOGYSERVER};
+    # use the ENV version if it exists
 	$self->host($ENV{MOBY_ONTOLOGYSERVER}) if ($ENV{MOBY_ONTOLOGYSERVER});  # override with user preference if set in their environment
 	return undef unless $self->host;
 	return $self;