[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Mon Sep 22 11:42:27 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv13501/Perl/MOBY-Server/lib/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
tried to remove dependency on the 'moby' prefix when resolving attributes. need to do this for elements too.
moby-live/Perl/MOBY-Server/lib/MOBY CommonSubs.pm,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm	2008/09/02 13:14:18	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/CommonSubs.pm	2008/09/22 15:42:27	1.6
@@ -1171,7 +1171,7 @@
       . "\n called from line $line";
     return '';
   }
-  return ( $xref->getAttributeNode($attr) || $xref->getAttributeNode( "moby:$attr" ) );
+  return ( $xref->getAttributeNode($attr) || $xref->getAttributeNode( $xref->lookupNamespacePrefix('http://www.biomoby.org/moby') . ":$attr" ) );
 }
 
 sub _moby_getAttribute {
@@ -1191,7 +1191,7 @@
     . "\n called from line $line";
     return '';
   }
-  return (   $xref->getAttribute($attr) || $xref->getAttribute("moby:$attr") );
+  return (   $xref->getAttribute($attr) || $xref->getAttribute( $xref->lookupNamespacePrefix('http://www.biomoby.org/moby') . ":$attr") );
 }
 
 sub _makeXrefType {