[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue Jan 30 09:37:19 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv1763

Modified Files:
	CommonSubs.pm 
Log Message:
getExceptions wasnt working properly if the attributes were prefixed moby.
moby-live/Perl/MOBY CommonSubs.pm,1.91,1.92
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -r1.91 -r1.92
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2006/06/07 20:35:22	1.91
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/01/30 14:37:19	1.92
@@ -803,9 +803,9 @@
   foreach my $n ( 1 .. ( $responses->size() ) ) {
     my $except={};
     my $resp = $responses->get_node( $n );
-    $except->{refElement}=$resp->getAttribute("refElement");
-    $except->{refQueryID}=$resp->getAttribute("refQueryID");
-    $except->{severity}=$resp->getAttribute("severity");
+    $except->{refElement}=$resp->getAttribute("refElement") | $resp->getAttribute("moby:refElement");
+    $except->{refQueryID}=$resp->getAttribute("refQueryID") | $resp->getAttribute("moby:refQueryID");
+    $except->{severity}=$resp->getAttribute("severity") | $resp->getAttribute("moby:severity");
     foreach my $child ($resp->childNodes) {
       if ($child->toString=~/exceptionCode>(.+)<\//) {$except->{exceptionCode}=$1};
       if($child->toString=~/exceptionMessage>(.+)<\//) {$except->{exceptionMessage}=$1};