[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 22 19:20:26 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv2481/MOBY

Modified Files:
	Central.pm 
Log Message:
secondaries that had 0 as their min, max, or default vaules were not registering properly because of a test for value rather than defined.  Smae problem on the server side

moby-live/Perl/MOBY Central.pm,1.177,1.178
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.177
retrieving revision 1.178
diff -u -r1.177 -r1.178
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 23:15:54	1.177
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 23:20:26	1.178
@@ -22,7 +22,7 @@
 use MOBY::secondary_input;
 use MOBY::central_db_connection;
 use MOBY::Config;
-#use MOBY::Client::Central;
+use MOBY::Client::Central;
 
 #use MOBY::RDF::ServiceInstanceRDF;
 #use RDF::Core;
@@ -3511,7 +3511,7 @@
 		$output .= "\t<secondaryArticles>\n";
 		$result = $adaptor->query_secondary_input({service_instance_id => $_});
 		foreach my $row (@$result)
-		{  my($default_value, $maximum_value, $minimum_value, $enum_value, $datatype, $article_name) = "";
+		{  my($default_value, $maximum_value, $minimum_value, $enum_value, $datatype, $article_name) = ("","","","","","");
 		    $default_value = $row->{default_value};
 		    $maximum_value = $row->{maximum_value};
 		    $minimum_value = $row->{minimum_value};