[MOBY-guts] biomoby commit

[Mark Wilkinson]

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