[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Dec  9 17:47:16 EST 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv28881/Perl/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
dumb.  I was picking up the results of the XML parse as a scalar instead of a list

moby-live/Perl/scripts/Services LocalServices.pm,1.38,1.39
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -r1.38 -r1.39
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/09 22:24:03	1.38
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/12/09 22:47:16	1.39
@@ -46,7 +46,7 @@
         } else {
 			my $ns = getSimpleArticleNamespaceURI($input);
 			(($MOBY_RESPONSE .= simpleResponse("", "Invalid_Namespace", $ID)) && (next)) unless validateThisNamespace($ns, @validNS);  # only do this if you are truly validating namespaces
-			my $accession = defined(getSimpleArticleIDs($ns, [$input]))?getSimpleArticleIDs($ns,[$input]):undef;
+			my ($accession) = defined(getSimpleArticleIDs($ns, [$input]))?getSimpleArticleIDs($ns,[$input]):undef;
 			unless (defined($accession)){
 				$MOBY_RESPONSE .= simpleResponse("", "Invalid_Accession", $ID);
 				next;
@@ -112,7 +112,7 @@
         } else {
 			my $ns = getSimpleArticleNamespaceURI($input);
 			(($MOBY_RESPONSE .= $MOBY_RESPONSE .= collectionResponse([], "Invalid_Namespace", $ID)) && (next)) unless validateThisNamespace($ns, @validNS);  # only do this if you are truly validating namespaces
-			my $acc, defined(getSimpleArticleIDs($ns, [$input]))?getSimpleArticleIDs($ns,[$input]):undef;
+			my ($acc) = defined(getSimpleArticleIDs($ns, [$input]))?getSimpleArticleIDs($ns,[$input]):undef;
 			unless (defined($acc)){
 				$MOBY_RESPONSE .= collectionResponse([], "Invalid_Accession", $ID);
 				next;
@@ -167,7 +167,7 @@
         } else {
 			my $ns = getSimpleArticleNamespaceURI($input);
 			(($MOBY_RESPONSE .= collectionResponse([], "Invalid_Namespace", $ID)) && (next)) unless validateThisNamespace($ns, @validNS);  # only do this if you are truly validating namespaces
-			my $kw = defined(getSimpleArticleIDs($ns, [$input]))?getSimpleArticleIDs($ns,[$input]):undef;
+			my ($kw) = defined(getSimpleArticleIDs($ns, [$input]))?getSimpleArticleIDs($ns,[$input]):undef;
             ($MOBY_RESPONSE .= collectionResponse([], "No_Keyword", $ID) && (next)) unless defined $kw;
 			($kw) = (($kw =~ /^\s*(.*)\s*$/) && ($1));
 			my @terms = @{$GO_API->get_terms({search=>"$kw"})};