[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Jun 14 09:44:52 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv22143

Modified Files:
	Central.pm 
Log Message:
fixed bug that allowed secondary inputs to be registered without articlenames.
moby-live/Perl/MOBY Central.pm,1.283,1.284
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.283
retrieving revision 1.284
diff -u -r1.283 -r1.284
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/06/01 13:01:15	1.283
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/06/14 13:44:52	1.284
@@ -1608,6 +1608,9 @@
 		my $article   = $parameter->getAttributeNode("articleName");
 		$article = $article->getValue() if $article;
 		
+		return (-1,"Secondary inputs must be registered with articlenames.")
+			unless $article;
+		
 		# make sure that the articlename is corrects
 		return (-1,"Secondary input had an invalid articlename. Articlenames may not contain spaces or other special characters.") 
 			 if $article =~ /([\+\=\':\s\"\&\<\>\[\]\^\`\{\|\}\~\(\)\\\/\$\#\@\,\|\?\.!\*\;])/;