[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Fri Jul 22 23:11:50 UTC 2005


mwilkinson
Fri Jul 22 19:11:50 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv2342/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.175,1.176
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.175
retrieving revision 1.176
diff -u -r1.175 -r1.176
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 21:56:35	1.175
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/22 23:11:49	1.176
@@ -3519,11 +3519,11 @@
 		    my $datatype = $row->{datatype};
 		    my $article_name = $row->{article_name};
 
-			$article_name  ||= "";
-			$datatype      ||= "";
-			$default_value ||= "";
-			$maximum_value ||= "";
-			$minimum_value ||= "";
+			defined($article_name)  ||= "";
+			defined($datatype)      ||= "";
+			defined($default_value) ||= "";
+			defined($maximum_value) ||= "";
+			defined($minimum_value) ||= "";
 			$output .= "\t\t\t<Parameter articleName='$article_name'>\n";
 			$output .= "\t\t\t\t<datatype>$datatype</datatype>\n";
 			$output .= "\t\t\t\t<default>$default_value</default>\n";




More information about the MOBY-guts mailing list