[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jun 19 17:10:52 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv16599/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.100,1.101
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -r1.100 -r1.101
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/06/19 21:02:13	1.100
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2007/06/19 21:10:52	1.101
@@ -949,7 +949,7 @@
 
 sub getCrossReferences {
   my ( $XML ) = @_;
-  if ($XML =~ /MOBY::Client/){$XML = $XML->XML}
+  if ($XML =~ /MOBY::Client/){$XML = $XML->XML_DOM}
   $XML = _string_to_DOM($XML);
   my @xrefs;
   my @XREFS;