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

set usertarif fix and title station name

Browse source
This commit is contained in:
ragu 2022-12-21 15:03:45 +01:00
parent 8a2cb60cee
commit 6b576460b2
6 changed files with 52 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

4
copri4/main/src/Mod/APIpayone.pm
View file

@ -146,11 +146,11 @@ sub handler {
if($update_ctt->{int16} && $update_ctt->{int16} > 0){
$update_adr->{int12} = $vde_on_fail;
$update_ctt->{int14} = 1;
$update_ctt->{txt23} = "$now_dt $txaction\nSaldo > 0 Meldung\n" . $ctt->{txt23} if($ctt->{txt23} !~ /0 Meldung,/);#only once;
$update_ctt->{txt28} = "$now_dt $txaction\nSaldo > 0 Meldung\n" . $ctt->{txt28} if($ctt->{txt28} !~ /0 Meldung,/);#only once;
}else{
$update_adr->{int12} = "null";
$update_ctt->{int14} = "null";
$update_ctt->{txt23} = "$now_dt $txaction\n" . $ctt->{txt23};
$update_ctt->{txt28} = "$now_dt $txaction\n" . $ctt->{txt28};
}
$dbt->update_record($dbh,$update_ctt,$ctt);

4
copri4/main/src/Mod/Prelib.pm
View file

@ -836,9 +836,11 @@ sub set_usertarif {
foreach my $id (keys (%$bonus_collect)){
$i++;
print FILE "$i)-1-> loop bonus_collect and find $bonus_collect->{$id}->{ct_name} = $adr_bonus->{txt15}\n|==>Take and insert Tarif $bonus_collect->{$id}->{int22}\n" if($debug);
print FILE "$i)-2-> delete if($bonus_collect->{$id}->{int21} && $bonus_collect->{$id}->{int21} != $bonus_collect->{$id}->{int22})\n" if($debug);
$tarif_hash{$bonus_collect->{$id}->{int22}} = 1;
if($tarif_hash{$bonus_collect->{$id}->{int21}} && $tarif_hash{$bonus_collect->{$id}->{int21}} != $tarif_hash{$bonus_collect->{$id}->{int22}}){
if($bonus_collect->{$id}->{int21} && $bonus_collect->{$id}->{int21} != $bonus_collect->{$id}->{int22}){
delete $tarif_hash{$bonus_collect->{$id}->{int21}};
print FILE "$i)-3-> delete done $bonus_collect->{$id}->{int21}\n" if($debug);
}
}

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

@ -646,7 +646,7 @@ sub preinit(){
my $return_text = "payone capture fails, errorcode ($ctadr->{int03} && TXID:$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";
#return "failure::$return_text";
}
#}else{