some optimization to reduce db selections

This commit is contained in:
ragu 2022-11-22 18:10:06 +01:00
parent f39ac77590
commit 8cfb680fec
9 changed files with 48 additions and 55 deletions

View file

@ -502,7 +502,7 @@ sub save_account(){
$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){
if($R::request eq "managemandate" && $ctadr->{int03} == 1 && !$iban_reject){
my $vde_on_fail = $ctadr->{int12} || 3;#keep last or set 3