[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jun 19 16:45:31 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv16441/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
missing namespace declaration on queryID; couldn't retrieve query ID in some cases
moby-live/Perl/MOBY CommonSubs.pm,1.98,1.99
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -r1.98 -r1.99
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/05/25 13:57:23	1.98
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/06/19 20:45:31	1.99
@@ -432,6 +432,7 @@
   my $moby = _string_to_DOM($XML);
   return '' unless ( $moby->nodeName =~ /^(moby:|)mobyData$/ );
   my $qid =  _moby_getAttribute($moby, 'queryID' );
+  $qid ||= _moby_getAttribute($moby, 'moby:queryID' );
   return defined( $qid ) ? $qid : '';
 }
 
@@ -1618,6 +1619,7 @@
   my $moby = _string_to_DOM($XML);
   return '' unless ( $moby->nodeName =~ /^(moby:|)queryInput|mobyData$/ );
   my $qid =  _moby_getAttribute($moby, 'queryID' );
+  $qid ||= _moby_getAttribute($moby, 'moby:queryID' );
   return defined( $qid ) ? $qid : '';
 }