[MOBY-guts] biomoby commit
Mark Wilkinson
mwilkinson at dev.open-bio.org
Fri May 25 13:57:23 UTC 2007
mwilkinson
Fri May 25 09:57:23 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv24300/MOBY
Modified Files:
CommonSubs.pm
Log Message:
documentation errors
moby-live/Perl/MOBY CommonSubs.pm,1.97,1.98
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.97
retrieving revision 1.98
diff -u -r1.97 -r1.98
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm 2007/05/25 13:22:56 1.97
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm 2007/05/25 13:57:23 1.98
@@ -41,11 +41,13 @@
$this_invocation = $responses->{$queryID}; # this is the <mobyData> block with this queryID
my $this_output = "";
- if (my $data = $this_invocation->{'responseArticleName'}){
+ if (my $data = $this_invocation->{'responseArticleName'}){ # whatever your articleName is...
# $data is a MOBY::Client::Simple|Collection|ParameterArticle
my ($namespace) = @{$data->namespaces};
my $id = $data->id;
- my $XML_LibXML = $input->XML_DOM; # get access to the DOM
+ my $XML_LibXML = $data->XML_DOM; # get access to the DOM
+ # assuming that you have an element of type "String"
+ # with articleName "Description"
my $desc = getNodeContentWithArticle($XML_LibXML, "String", "Description");
###################
# DO SOMETHING TO RESPOSE DATA HERE
More information about the MOBY-guts
mailing list