[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 23 15:38:07 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv23062/MOBY

Modified Files:
	Central.pm 
Log Message:
can't get out of checking the inheritence in order ISA, HAS, HASA, otherwise it will fail in some cases. Order of addition of relationships is now ISA HASA HAS

moby-live/Perl/MOBY Central.pm,1.203,1.204
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.203
retrieving revision 1.204
diff -u -r1.203 -r1.204
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/17 19:30:18	1.203
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/23 19:38:07	1.204
@@ -22,7 +22,7 @@
 use MOBY::secondary_input;
 use MOBY::central_db_connection;
 use MOBY::Config;
-#use MOBY::Client::Central;
+use MOBY::CommonSubs;
 
 #use MOBY::RDF::ServiceInstanceRDF;
 #use RDF::Core;
@@ -365,8 +365,9 @@
 	($success == 0) && return &_error( $message, $URI );
 	my @failures;
 	my $messages = "";
-	if ( keys %{$relationships} ) {
-		while ( my ( $reltype, $obj ) = each %{$relationships} ) {
+	if ( keys %{$relationships} ) {  # need to pull them out with ISA's first
+		foreach my $reltype(qw{ISA HASA HAS}){
+			my ( $obj ) = $relationships->{$reltype};
 			foreach ( @{$obj} ) {
 				my ( $objectType, $articleName ) = @{$_};
 				my ( $success,    $message )     =