[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 15:41:52 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv3606/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
fixed problem with HASA not getting articleName
moby-live/Perl/MOBY Central.pm,1.39,1.40
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 19:38:37	1.39
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 19:41:52	1.40
@@ -294,14 +294,15 @@
 		my at HASAS= @{$HASA};
 		foreach my $hasa(@HASAS){
 			my ($keyvalue, $values) = @{$hasa};
-			my ($articleName,$has_term) = @{$values};
-			my ($success, $message) = $OntologyServer->addObjectHASA(
-				node => $keyvalue,
-				HASA => $has_term,
-				authority => $auth,
-				contact_email => $email,
-				articleName => $articleName);
-			$success==0 && push @hasafailures, $has_term;
+			while (my ($articleName,$has_term) = %{$values}){
+				my ($success, $message) = $OntologyServer->addObjectHASA(
+					node => $keyvalue,
+					HASA => $has_term,
+					authority => $auth,
+					contact_email => $email,
+					articleName => $articleName);
+				$success==0 && push @hasafailures, $has_term;
+			}
 		}
 	}
 	if (scalar(@isafailures) || scalar(@hasafailures)){