From 9a036e363acb6e6bff870ffcaeeb955c9e5f6ee9 Mon Sep 17 00:00:00 2001
From: ragu <ragu@gnu-systems.net>
Date: Sat, 16 Jul 2022 19:04:58 +0200
Subject: [PATCH] set_usertarif on existing user by Fcode

---
 copri4/main/src/Mod/Prelib.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/copri4/main/src/Mod/Prelib.pm b/copri4/main/src/Mod/Prelib.pm
index 2110ad7..7b4e2a5 100755
--- a/copri4/main/src/Mod/Prelib.pm
+++ b/copri4/main/src/Mod/Prelib.pm
@@ -601,7 +601,8 @@ sub set_usertarif {
      $bonus_collect = $dbt->fetch_record($dbh_operator,$pref_cc) if(ref($bonus_collect->{1}) ne "HASH");
      #print FILE "Prelib bonus_collect:\n" . Dumper($bonus_collect) . "\n";
      foreach my $id (keys (%$bonus_collect)){
-       print FILE "-1-> txt15: $adr_bonus->{txt15}\n" if($debug);
+       print FILE "-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);
+	$tarif_hash{$bonus_collect->{$id}->{int22}} = 1;
        $i++;
        foreach my $sourcetarif (@{$adr_bonus->{txt30_array}}){
          print FILE "-1.2-> activeTarif:$sourcetarif | Bonus-source:$bonus_collect->{$id}->{int21} | Bonus-target:$bonus_collect->{$id}->{int22}\n" if($debug);