[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 22 19:05:04 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv2259/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
oops... got a little exuberant there

moby-live/Perl/MOBY/Client Central.pm,1.100,1.101
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -r1.100 -r1.101
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/22 22:57:28	1.100
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/07/22 23:05:04	1.101
@@ -933,11 +933,11 @@
 				);
 			}
 			my %data     = %{$desc};
-			my $default  = defined($data{default}) || "";
-			my $max      = defined($data{max}) || "";
-			my $min      = defined($data{min}) || "";
-			my $datatype = defined($data{datatype}) || "";
-			my $enums    = defined($data{enum}) || [];
+			my $default  = defined($data{default})?$data{default}:"";
+			my $max      = defined($data{max})?$data{max}:"";
+			my $min      = defined($data{min})?$data{min}:"";
+			my $datatype = $data{datatype} || "";
+			my $enums    = $data{enum} || [];
 			unless ($datatype) {
 				return $self->errorRegXML("a secondaryArticle must contain at least a datatype value in secondary article $param"
 				);