[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jan 30 17:50:52 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv3543/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
not a bitwise comparison
moby-live/Perl/MOBY CommonSubs.pm,1.92,1.93
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -r1.92 -r1.93
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/01/30 14:37:19	1.92
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/01/30 22:50:52	1.93
@@ -803,9 +803,9 @@
   foreach my $n ( 1 .. ( $responses->size() ) ) {
     my $except={};
     my $resp = $responses->get_node( $n );
-    $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");
+    $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};