#43 wsdl2perl (bindingOperation.tt) non-custom data type problem

0.60
closed-wont-fix
nobody
WSDL (18)
2
2008-01-30
2004-03-15
No

Template: wsdl2perl / tmpl / include /
bindingOperation.tt
Version: 1.5

Summary:
Looks like there is a missing data type definition in the
ELSE clause for non custom data type definition.

Here is the current code snippet:

[%- IF parts; %]
my $args = [% FOREACH part = parts -%]
[%- IF loop.index > 0 %], [% END -%]
SOAP::Data->name("[% part.findvalue('@name') %]" =>
$inputParams{'[% part.findvalue('@name') %]'})
[%- IF (part.findvalue('@type').splitqname.0 !
= 'xsd') %]
->type($client->serializer->find_prefix('[%
oper.findvalue('input/soap:body/@namespace') %]').':[%
part.findvalue('@type').splitqname.1 %]')
[%- END -%]
[%- END %];

Here is the suggested fix:

[%- IF parts; %]
my $args = [% FOREACH part = parts -%]
[%- IF loop.index > 0 %], [% END -%]
SOAP::Data->name("[% part.findvalue('@name') %]" =>
$inputParams{'[% part.findvalue('@name') %]'})
[%- IF (part.findvalue('@type').splitqname.0 !
= 'xsd') %]
->type($client->serializer->find_prefix('[%
oper.findvalue('input/soap:body/@namespace') %]').':[%
part.findvalue('@type').splitqname.1 %]')
[%- ELSE -%]
->type(':[% part.findvalue('@type').splitqname.1
%]')
[%- END -%]
[%- END %];

Discussion

  • Martin Kutter

    Martin Kutter - 2007-10-03

    Logged In: YES
    user_id=884175
    Originator: NO

    wsdl2perl has never been released - don't know whether development will continue.

     
  • Martin Kutter

    Martin Kutter - 2007-10-03
    • priority: 5 --> 2
    • assigned_to: byrnereese --> nobody
     
  • Martin Kutter

    Martin Kutter - 2008-01-30

    Logged In: YES
    user_id=884175
    Originator: NO

    SOAP::Lite's wsdl2perl is outside the scope of current SOAP::Lite development.

     
  • Martin Kutter

    Martin Kutter - 2008-01-30
    • status: open --> closed-wont-fix
     

Log in to post a comment.