use strict;
BEGIN {
- unshift @INC, "modules/override"; # Use our own versions of various modules (e.g. YAML).
- push @INC, "modules/fallback"; # Only use our own versions of modules if there's no system version.
+ use FindBin;
+
+ 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.
}
use CGI qw( -no_xhtml);
use SL::DB::Helper::ALL;
use SL::DB::Helper::Mappings;
+chdir($FindBin::Bin . '/..');
+
my %blacklist = SL::DB::Helper::Mappings->get_blacklist;
my %package_names = SL::DB::Helper::Mappings->get_package_names;
periodic_invoices_configs => { oe_id => 'order', email_recipient_contact_id => 'email_recipient_contact' },
reconciliation_links => { acc_trans_id => 'acc_trans' },
+
+ assembly => { parts_id => 'part', id => 'assembly_part' },
+ assortment_items => { parts_id => 'part' },
+
+ dunning => { trans_id => 'invoice', fee_interest_ar_id => 'fee_interest_invoice' },
},
);
$auth_dbh->disconnect;
dbh_do($dbh_template, "DROP DATABASE \"" . $db_cfg->{db} . "\"", message => "Database could not be dropped");
-
- $::auth->reset;
}
notice("Creating database");
apply_upgrades(auth => 1, dbh => $dbh);
+ $::auth->reset;
+
notice("Creating client, user, group and employee");
dbh_do($dbh, qq|DELETE FROM auth.clients|);
signature => '',
hide_cvar_search_options => '',
numberformat => '1.000,00',
- vclimit => 0,
favorites => '',
copies => '',
menustyle => 'v3',