[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Aug 27 15:40:50 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Cache
In directory dev.open-bio.org:/tmp/cvs-serv5968/MOSES-MOBY/lib/MOSES/MOBY/Cache

Modified Files:
	Central.pm 
Log Message:
made relationship regex check case insensitive and less stringent.
moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Cache Central.pm,1.7,1.8
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Cache/Central.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Cache/Central.pm	2008/06/04 16:14:31	1.7
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Cache/Central.pm	2009/08/27 19:40:50	1.8
@@ -708,13 +708,13 @@
     while ( $count > 0 ) {
 	my $node         = $nodes->get_node( $count-- );
 	my $relationship = $node->getAttribute('relationshipType');
-	if ( $relationship =~ /.*:isa$/ ) {
+	if ( $relationship =~ /^.*isa$/i ) {
 	    my $parent = $node->getChildrenByTagName('objectType');
 	    my $isa    = $parent->get_node(1)->textContent
 		if ( $parent and $parent->get_node(1) and $parent->get_node(1) );
 	    $datatype->parent($isa);
 	}
-	elsif ( $relationship =~ /.*:hasa$/ ) {
+	elsif ( $relationship =~ /^.*hasa$/i ) {
 	    my $pNode = $node->getChildrenByTagName('objectType');
 	    for ( my $i = 1 ; $i <= $pNode->size() ; $i++ ) {
 		my $article = $pNode->get_node($i)->getAttribute('articleName')
@@ -735,7 +735,7 @@
 		     );
 	    }
 	}
-	elsif ( $relationship =~ /.*:has$/ ) {
+	elsif ( $relationship =~ /^.*has$/i ) {
 	    my $pNode = $node->getChildrenByTagName('objectType');
 	    for ( my $i = 1 ; $i <= $pNode->size() ; $i++ ) {
 		my $article = $pNode->get_node($i)->getAttribute('articleName')