X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/aa63ebae1c0a758ec438c594acb328b1f0e5e001..a2730e8a6ec97b2ad0c4184b38f6d846235d5f3b:/scripts/rose_auto_create_model.pl diff --git a/scripts/rose_auto_create_model.pl b/scripts/rose_auto_create_model.pl index dc3d0176c..5a0f7c23c 100755 --- a/scripts/rose_auto_create_model.pl +++ b/scripts/rose_auto_create_model.pl @@ -7,7 +7,6 @@ BEGIN { unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML). push (@INC, $FindBin::Bin . '/..'); # '.' will be removed from @INC soon. - push (@INC, $FindBin::Bin . '/../modules/fallback'); # Only use our own versions of modules if there's no system version. } use CGI qw( -no_xhtml); @@ -430,8 +429,6 @@ sub drop_and_create_test_database { $auth_dbh->disconnect; dbh_do($dbh_template, "DROP DATABASE \"" . $db_cfg->{db} . "\"", message => "Database could not be dropped"); - - $::auth->reset; } notice("Creating database"); @@ -466,6 +463,8 @@ sub drop_and_create_test_database { apply_upgrades(auth => 1, dbh => $dbh); + $::auth->reset; + notice("Creating client, user, group and employee"); dbh_do($dbh, qq|DELETE FROM auth.clients|);