[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
fixed problem with HASA not getting articleName
moby-live/Perl/MOBY Central.pm,1.42,1.43
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 19:49:12	1.42
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 19:58:13	1.43
@@ -294,7 +294,7 @@
 		my at HASAS= @{$HASA};
 		foreach my $hasa(@HASAS){
 			my ($keyvalue, $values) = @{$hasa};
-			while (my ($articleName,$has_term) = each %{$values}){
+			while (my ($has_term,$articleName) = each %{$values}){
 				my ($success, $message) = $OntologyServer->addObjectHASA(
 					node => $keyvalue,
 					HASA => $has_term,