Changeset 270 for lang/perl/WebService-Coneco

Timestamp:

09/24/07 14:28:30 (6 years ago)

Author:

xcezx

Message:

lang/perl/WebService-Coneco: Fix to assure that Header in response data is HASH

Files:

• lang/perl/WebService-Coneco/trunk/lib/WebService/Coneco.pm (modified) (1 diff)

lang/perl/WebService-Coneco/trunk/lib/WebService/Coneco.pm

@@ -85 +85 @@
 
     my $parser = XML::Simple->new();
-    my $header = $parser->XMLin( $res->content )->{Header};
-    if ( $header->{Status} ne 'Success' ) {
+    my $data = $parser->XMLin( $res->content, %$parser_options );
+
+    $data->{Header} = $parser->XMLin( $res->content )->{Header};
+    if ( $data->{Header}->{Status} ne 'Success' ) {
         $self->{errstr} =
-          qq/Response error: $header->{Status}: $header->{Detail}/;
+          qq/Response error: $data->{Header}->{Status}: $data->{Header}->{Detail}/;
         return;
     }
-
-    my $data = $parser->XMLin( $res->content, %$parser_options );
 
     $self->{res} = $data;