You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@tomee.apache.org by db...@apache.org on 2011/07/25 21:11:59 UTC
svn commit: r1150849 -
/openejb/trunk/openejb3/examples/webapps/moviefun/app/delete-movie.pl
Author: dblevins
Date: Mon Jul 25 19:11:58 2011
New Revision: 1150849
URL: http://svn.apache.org/viewvc?rev=1150849&view=rev
Log:
fixed delete script. just needed the right param types
Modified:
openejb/trunk/openejb3/examples/webapps/moviefun/app/delete-movie.pl
Modified: openejb/trunk/openejb3/examples/webapps/moviefun/app/delete-movie.pl
URL: http://svn.apache.org/viewvc/openejb/trunk/openejb3/examples/webapps/moviefun/app/delete-movie.pl?rev=1150849&r1=1150848&r2=1150849&view=diff
==============================================================================
--- openejb/trunk/openejb3/examples/webapps/moviefun/app/delete-movie.pl (original)
+++ openejb/trunk/openejb3/examples/webapps/moviefun/app/delete-movie.pl Mon Jul 25 19:11:58 2011
@@ -20,7 +20,7 @@
use SOAP::Lite;
my $ID = $ARGV[0];
-
+print $ID;
my $namespace = 'http://superbiz.org/wsdl';
my $service = SOAP::Lite-> uri($namespace)
@@ -30,7 +30,7 @@ my $service = SOAP::Lite-> uri($namespac
my $method = SOAP::Data->name("ns1:deleteMovieId")
->attr({'xmlns:ns1' => $namespace});
-my @params = (SOAP::Data->name('arg0'=> $ID));
+my @params = (SOAP::Data->name('arg0'=> $ID)->type('long'));
my $response = $service->call($method=>@params);