Hello All,
# check if result key GetUmsPlayerData found
if (
exists($result->{'response'}->{'Player'}->{'GetUmsPlayerData'}->{'player_data'})
)
{
#
$result->{'response'}->{'Player'}->{'GetUmsPlayerData'}->{'player_data'}
= $self->_player_data_by_key_to_name_($result->{'response'}->{'Player'});
}
Funny after adding this condition (see no action is done - comments)
and printing using Data::Dumper i found this:
Sep 11 13:18:17 dev-host-03.playtechtv.tv: [pid:26150] [debug]
[mixtv::payment::PlaytechUMS_base::_PARSE_RESPONSE_] response returned
with error (0). system-error-code was set to 100.
Sep 11 13:18:17 dev-host-03.playtechtv.tv: [pid:26150] [debug]
[mixtv::payment::PlaytechUMS_base::_simple_trace_] =========>
params=$VAR1 = { 'req_ref' => '7864384', 'req_name' => 'LOGIN', 'data'
=> { 'Player' => { 'errorText' => '', 'errorCode' => '0',
'GetUmsPlayerData' => {}, 'Login' => { 'sessionToken' =>
'1DC46A42BAFD44A4714F6C33FBBA84CE', 'sessionValidationData' => undef,
'errorText' => '', 'errorCode' => '0', 'playerCode' => '2752191',
'phone' => undef, 'username' => 'MBTEST10' } } }, 'type' => 'RESPONSE'
};
Notice GetUmsPlayerData was added to my Hash ?? is this a memory
problem with exists ? checking same thing using defined i found same
problem :-(
-Chanan
--
===================
---- Chanan Berler ----
===================
_______________________________________________
Perl mailing list
[email protected]
http://mail.perl.org.il/mailman/listinfo/perl
