[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Feb 13 21:09:32 EST 2008
Update of /home/repository/moby/moby-live/Docs/MOBY-S_API/Perl
In directory dev.open-bio.org:/tmp/cvs-serv19094

Modified Files:
	ExecuteSyncService.html 
Log Message:
fixed docs according to AlexG
moby-live/Docs/MOBY-S_API/Perl ExecuteSyncService.html,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Docs/MOBY-S_API/Perl/ExecuteSyncService.html,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Docs/MOBY-S_API/Perl/ExecuteSyncService.html	2007/05/25 13:25:14	1.5
+++ /home/repository/moby/moby-live/Docs/MOBY-S_API/Perl/ExecuteSyncService.html	2008/02/14 02:09:32	1.6
@@ -83,7 +83,7 @@
 use MOBY::Client::Service;  # this is what we use to interact with a service
 
 my $m = MOBY::Client::Central->new;
-my ($serv_instances, $reg) = $findService->(
+my ($serv_instances, $reg) = $m->findService(
     authURI => "mydomain.mycompany.org",
     serviceName => "getGoTerm");
 
@@ -101,7 +101,7 @@
    # here we'll just set it explicitly...
 my $articleName = "my_input_parameter";
 
-my $wsdl = $M->retrieveService($SI);
+my $wsdl = $m->retrieveService($SI);
    # we now have the WSDL description of the Service
    # we use this to create a MOBY::Client::Service object
 
@@ -110,11 +110,11 @@
    # that Moby Service, so all we have to do it provide the correct data
 
 my $articleName = 
-my $inputdata1 = ">Object namespace='GO' id='0050789'>";
-my $inputdata2 = ">Object namespace='GO' id='0050789'>";
+my $inputdata1 = "<Object namespace='GO' id='0050789'>";
+my $inputdata2 = "<Object namespace='GO' id='0050789'>";
 
 @single_invocation = ([$articleName, $inputdata1]);
- at multiple_invocation = ([$articleName, $inputdata1], [$articleName, $inputdata2])
+ at multiple_invocation = ([$articleName, $inputdata1], [$articleName, $inputdata2]);
 
 my $result1 = $SERV->execute(XMLinputlist => \@single_invocation);
 my $result2 = $SERV->execute(XMLinputlist => \@multiple_invocation);