use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoT);
use Loader qw(log_update);

sub renumber_tarifaccts() {
	my $res = DoT("select id from tarifacct");
	if(ref $res) {
		my $arr;
		my %id;
		my $nid = 0;

		print "  Lese IDs ein...\r";
		while($arr = shift @$res) {
			$id{$arr->[0]} = 0;
			$nid++;
		}
		print "  $nid IDs, weise neue Nummern zu.\r";
		$nid = 10;
		foreach $arr(sort { $a <=> $b } keys %id) {
			$nid++ while defined $id{$nid};
			$id{$arr} = $nid;
			$nid += 5;
		}
		$nid -= 5;
		print "  10 bis $nid: setze neue Nummern.\r";

		log_update("tarifacct","id",$id{$arr},undef,"id",undef,$arr);
		foreach $arr(keys %id) {
			Do("update tarifacct set id=".$id{$arr}." where id=$arr");
		}
		print "Erledigt.                           \n";
	} else {
		print "Fehler: $res\n";
	}
	next;
}
1;
