[Catalyst-commits] r7673 - Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model

[ruoso at dev.catalyst.perl.org]

Author: ruoso
Date: 2008-05-05 18:37:35 +0100 (Mon, 05 May 2008)
New Revision: 7673

Modified:
   Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm
Log:
[C-M-SOAP] Pre-registers the SOAPENV namespace for fault qname resolution

Modified: Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm
===================================================================
--- Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm	2008-05-03 21:32:56 UTC (rev 7672)
+++ Catalyst-Model-SOAP/1.0/trunk/lib/Catalyst/Model/SOAP.pm	2008-05-05 17:37:35 UTC (rev 7673)
@@ -111,7 +111,12 @@
             for (@{$input_parts}) {
                 my $type = $_->{type} ? $_->{type} : $_->{element};
                 $_->{compiled_writer} = $wsdl_obj->schemas->compile
-                  (WRITER => $type, elements_qualified => 'ALL');
+                  (WRITER => $type, elements_qualified => 'ALL',
+                   output_namespaces =>
+                   {NS_SOAP_ENV =>
+                    { uri => NS_SOAP_ENV,
+                      prefix => 'SOAPENV',
+                      used => 1 }});
             };
 
             my $output_parts = $wsdl_obj->find(message => $portop->{output}{message})
@@ -119,7 +124,12 @@
             for (@{$output_parts}) {
                 my $type = $_->{type} ? $_->{type} : $_->{element};
                 $_->{compiled_reader} = $wsdl_obj->schemas->compile
-                  (READER => $type);
+                  (READER => $type,
+                   output_namespaces =>
+                   {NS_SOAP_ENV =>
+                    { uri => NS_SOAP_ENV,
+                      prefix => 'SOAPENV',
+                      used => 1 }});
             }
 
             $rpcin = sub {