X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/88262ee31b042c75a06cd43a5308baaf28d17fa5..0674bc84625f8968ae558027c48af5815ce5f4be:/scripts/rose_auto_create_model.pl diff --git a/scripts/rose_auto_create_model.pl b/scripts/rose_auto_create_model.pl index 1850f4599..e935facbd 100755 --- a/scripts/rose_auto_create_model.pl +++ b/scripts/rose_auto_create_model.pl @@ -222,10 +222,10 @@ sub usage { sub make_tables { my @tables; if ($config{all}) { - my $db = SL::DB::create(undef, 'LXOFFICE'); + my $db = SL::DB::create(undef, 'KIVITENDO'); @tables = - map { $package_names{LXOFFICE}->{$_} ? "$_=" . $package_names{LXOFFICE}->{$_} : $_ } - grep { my $table = $_; !any { $_ eq $table } @{ $blacklist{LXOFFICE} } } + map { $package_names{KIVITENDO}->{$_} ? "$_=" . $package_names{KIVITENDO}->{$_} : $_ } + grep { my $table = $_; !any { $_ eq $table } @{ $blacklist{KIVITENDO} } } $db->list_tables; } elsif (@ARGV) { @tables = @ARGV; @@ -251,7 +251,7 @@ my @tables = make_tables(); for my $table (@tables) { # add default model name unless model name is given or no defaults exists - $table .= '=' . $package_names{LXOFFICE}->{lc $table} if $table !~ /=/ && $package_names{LXOFFICE}->{lc $table}; + $table .= '=' . $package_names{KIVITENDO}->{lc $table} if $table !~ /=/ && $package_names{KIVITENDO}->{lc $table}; process_table($table); }