From 9c454191438763ec271c715cb2d2b81cc9e647ea Mon Sep 17 00:00:00 2001 From: Michael Wagner Date: Tue, 8 Mar 2022 20:31:17 +0100 Subject: [PATCH] epic-ts --- Test/perl/test_action.pl | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/Test/perl/test_action.pl b/Test/perl/test_action.pl index 4e78f919f..904bb23bc 100755 --- a/Test/perl/test_action.pl +++ b/Test/perl/test_action.pl @@ -1,15 +1,28 @@ #!/usr/bin/perl use strict; -use SL::Controller::Mebil; +#use SL::Controller::Mebil; use SL::DB; +use SL::Form; use SL::LXDebug; $::lxdebug = new LXDebug; +#$::form = new Form; -my $db = new SL::DB; +#my $dbh = $::form->get_standard_dbh; -my $dbi = $db->dbi_connect("dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo"); +SL::DB->register_db( + driver => 'Pg', + database => 'dev_db', + host => 'localhost', + username => 'kivitendo', + password => 'kivitemdo', +); + +#my $db = SL::DB::client; + +#my $dbh = SL::DB::dbi_connect("dbi:driver=Pg;dbname=firma;host=localhost;port=5432", "kivitendo", "kivitendo"); +my $db = SL::DB->new; my $m = new SL::Controller::Mebil; $m->action_calcmap; -- 2.20.1