diff --git a/copri4/main/src/Mod/Prelogic.pm b/copri4/main/src/Mod/Prelogic.pm index 8cf2ebe..9235389 100755 --- a/copri4/main/src/Mod/Prelogic.pm +++ b/copri4/main/src/Mod/Prelogic.pm @@ -801,7 +801,7 @@ sub preinit(){ int01 => $sum_paid, state => "$state", }; - $ctt->{int14} = 2 if($state =~ /payone/);#set OPOS + $update_ctt->{int14} = 2 if($state =~ /payone/);#set OPOS $dbt->update_record($dbh,$update_ctt,$ctt); if($state =~ /payone/){ @@ -839,9 +839,16 @@ sub preinit(){ my $payoneret = $payone->captureSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id}); } #CC capture - if($ctt->{int03} == 2 && $ctt->{txt16} && $R::state =~ /Kreditkarte/){#CC + elsif($ctt->{int03} == 2 && $ctt->{txt16} && $R::state =~ /Kreditkarte/){#CC my $payoneret = $payone->captureCC_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id}); } + else{ + my $return_text = "payone capture fails, errorcode ($ctt->{int03} && $ctt->{txt16} && $R::state)."; + $update_ctt->{txt23} = "$now_dt $return_text\n" . $ctt->{txt23}; + $dbt->update_record($dbh,$update_ctt,$ctt); + return "failure::$return_text"; + + } }else{ return "failure::Payone Geldeinzug nicht ausgeführt. Hat der Einzug bereits stattgefunden?"; }