[Catalyst-commits] r7618 - Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2008-04-17 12:07:36 +0100 (Thu, 17 Apr 2008)
New Revision: 7618

Modified:
   Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
Log:
[C-C-SOAP] forces "elements_qualified" on the schema writer.

Modified: Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm
===================================================================
--- Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-04-17 08:50:38 UTC (rev 7617)
+++ Catalyst-Controller-SOAP/1.0/trunk/lib/Catalyst/Controller/SOAP.pm	2008-04-17 11:07:36 UTC (rev 7618)
@@ -191,7 +191,9 @@
 
             my $output_parts = $self->wsdlobj->find(message => $portop->{output}{message})
               ->{part};
-            $_->{compiled} = $self->wsdlobj->schemas->compile(WRITER => $_->{element}, %$writer_opts)
+            $_->{compiled} = $self->wsdlobj->schemas->compile(WRITER => $_->{element},
+                                                              elements_qualified => 'ALL',
+                                                              %$writer_opts)
               for @{$output_parts};
 
             $self->encoders({}) unless $self->encoders();