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

Service-Config table fix

Browse source
This commit is contained in:
ragu 2022-09-29 17:27:02 +02:00
parent 5c98c8b8a5
commit 03d4fac62b
4 changed files with 31 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

10
copri4/main/src/Mod/Shareework.pm
View file

@ -489,7 +489,15 @@ sub save_account(){
#Testbuchhung mit 1 € preauthorization and 0 € capture
$ctadr = $dbt->fetch_record($dbh,$authref);
print FILE "+++ $R::request && $ctadr->{int03} == 1 && $ctadr->{ct_name} eq $ctadr->{c_id} \n" if($debug);
if($R::request eq "managemandate" && $ctadr->{int03} == 1 && $ctadr->{ct_name} eq $ctadr->{c_id}){
#if($R::request eq "managemandate" && $ctadr->{int03} == 1 && $ctadr->{ct_name} eq $ctadr->{c_id}){
#fraud workaround
my $iban = $ctadr->{txt22} || "";
$iban =~ s/\s//g;
my $iban_reject = 0;
$iban_reject = 1 if($iban =~ /DE33700202700000091600/i);
if($R::request eq "managemandate" && $ctadr->{int03} == 1 && $ctadr->{ct_name} eq $ctadr->{c_id} && !$iban_reject){
my $vde_on_fail = $ctadr->{int12} || 3;#keep last or set 3
my $payone_mival = $payone->managemandate_main(\%varenv,$ctadr,"",$owner);