[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri May  9 09:52:56 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv7611/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
oops.  typo
moby-live/Perl/MOBY Central.pm,1.53,1.54
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 13:42:24	1.53
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 13:52:55	1.54
@@ -2644,7 +2644,7 @@
 	my $OS = MOBY::OntologyServer->new(ontology => 'relationship');
 	my %types = %{$OS->getRelationshipTypes()};
 	my $types = "<relationshipTypes>\n";
-	while (my ($serv, $authdesc) = each %types){
+	while (my ($name, $authdesc) = each %types){
 		my $auth = $authdesc->[0];
 		my $desc = $authdesc->[1];
 		$types .= "<relationshipType relationship='$name' authority='$auth'>\n<Description><![CDATA[$desc]]></Description>\n</relationshipType>\n";