[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jun 19 17:02:13 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv16547/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
being a little more forgiving as to what is sent into the getCrossReferences routine.  you can either send XML or you can send the MOBY::Client::Simple object.
moby-live/Perl/MOBY CommonSubs.pm,1.99,1.100
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -r1.99 -r1.100
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/06/19 20:45:31	1.99
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/06/19 21:02:13	1.100
@@ -949,6 +949,7 @@
 
 sub getCrossReferences {
   my ( $XML ) = @_;
+  if ($XML =~ /MOBY::Client/){$XML = $XML->XML}
   $XML = _string_to_DOM($XML);
   my @xrefs;
   my @XREFS;