I'm trying to create a soap call that sends multiple entries for the section items from a set of data. I've done soap calls before via Perl but never had to do it for more than one item at a time.

The number of items varies so not sure how to make this flexible. XX will be popluated by data returned from sql queries.

@params    =  (SOAP::Data->name("ordercreate"  =>
                \SOAP::Data->value 
                        (SOAP::Data->name(order =>"123456"),
                         SOAP::Data->name("items" =>
                            \SOAP::Data->value
                                (SOAP::Data->name(itemid => "1"),
                                 SOAP::Data->name("details" =>
                                    \SOAP::Data->value
                                        (SOAP::Data->name(var1 => "ite
+m1_value1"),
                                         SOAP::Data->name(var2 => "ite
+m1_value2")
                                        ),
                                        ),
                                SOAP::Data->name(order_var1 => "var"),
                                SOAP::Data->name(order_var1 => "var"),
                                SOAP::Data->name(order_var1 => "var")
                                ),
                          )
                    ),
             )
        );


    $method    = SOAP::Data->name('ext:TaskCreateLBG')
        ->attr({'xmlns:ext' => $uri},{xmlns => $uri}),
    ;

    $soap = SOAP::Lite
        -> uri($uri)
        -> on_action( sub { 'TaskCreateLBG' } )
        -> proxy($proxy,timeout=>$timeout)    
        ;

    $result = $soap->call($method => @params);
[download]

Effectively for 2 items it would read but as I don't know how many items there'll be this needs to be dynamic from my sql return. Any help much appreciated

@params    =  (SOAP::Data->name("ordercreate"  =>
                \SOAP::Data->value 
                        (SOAP::Data->name(order =>"123456"),
                         SOAP::Data->name("item1" =>
                            \SOAP::Data->value
                                (SOAP::Data->name(itemid => "1"),
                                 SOAP::Data->name("details" =>
                                    \SOAP::Data->value
                                        (SOAP::Data->name(var1 => "ite
+m1_value1"),
                                         SOAP::Data->name(var2 => "ite
+m1_value2")
                                        ),
                                        ),
                        SOAP::Data->name("item2" =>
                            \SOAP::Data->value
                                (SOAP::Data->name(itemid => "2"),
                                 SOAP::Data->name("details" =>
                                    \SOAP::Data->value
                                        (SOAP::Data->name(var1 => "ite
+m2_value1"),
                                         SOAP::Data->name(var2 => "ite
+m2_value2")
                                        ),
                                        ),
                                SOAP::Data->name(order_var1 => "var"),
                                SOAP::Data->name(order_var1 => "var"),
                                SOAP::Data->name(order_var1 => "var")
                                ),
                          )
                    ),
             )
        );
[download]