projects
/
kivitendo-erp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2577cac
)
epic-ts
author
Michael Wagner
<michael@wagnertech.de>
Tue, 8 Mar 2022 19:31:17 +0000
(20:31 +0100)
committer
Michael Wagner
<michael@wagnertech.de>
Tue, 8 Mar 2022 19:31:17 +0000
(20:31 +0100)
Test/perl/test_action.pl
patch
|
blob
|
history
diff --git
a/Test/perl/test_action.pl
b/Test/perl/test_action.pl
index
4e78f91
..
904bb23
100755
(executable)
--- a/
Test/perl/test_action.pl
+++ b/
Test/perl/test_action.pl
@@
-1,15
+1,28
@@
#!/usr/bin/perl
use strict;
#!/usr/bin/perl
use strict;
-use SL::Controller::Mebil;
+
#
use SL::Controller::Mebil;
use SL::DB;
use SL::DB;
+use SL::Form;
use SL::LXDebug;
$::lxdebug = new LXDebug;
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;
my $m = new SL::Controller::Mebil;
$m->action_calcmap;