roko.li/sharee.bike
5
0
Fork 0
mirror of https://gitlab.com/t6353/sharee.bike.git synced 2025-02-22 11:46:27 +01:00
Code Issues Projects Releases Packages Wiki Activity

payone capture state

Browse source
This commit is contained in:
Rainer Gümpelein 2022-03-15 21:08:05 +01:00
parent b7de896e71
commit f1285c1c36
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
copri4/main/src/Mod/Prelogic.pm
View file

@ -801,7 +801,7 @@ sub preinit(){
int01 => $sum_paid, int01 => $sum_paid,
state => "$state", 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); $dbt->update_record($dbh,$update_ctt,$ctt);
if($state =~ /payone/){ if($state =~ /payone/){
@ -839,9 +839,16 @@ sub preinit(){
my $payoneret = $payone->captureSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id}); my $payoneret = $payone->captureSEPA_main(\%varenv,$ctadr,$ctt,$users_dms->{u_id});
} }
#CC capture #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}); 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{ }else{
return "failure::Payone Geldeinzug nicht ausgeführt. Hat der Einzug bereits stattgefunden?"; return "failure::Payone Geldeinzug nicht ausgeführt. Hat der Einzug bereits stattgefunden?";
} }