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:
8e083c4
)
test action
author
Michael Wagner
<michael@wagnertech.de>
Wed, 29 Jun 2022 17:14:22 +0000
(19:14 +0200)
committer
Michael Wagner
<michael@wagnertech.de>
Wed, 29 Jun 2022 17:14:22 +0000
(19:14 +0200)
Test/perl/test_action.pl
patch
|
blob
|
history
diff --git
a/Test/perl/test_action.pl
b/Test/perl/test_action.pl
index
0f2e02a
..
5611dac
100755
(executable)
--- a/
Test/perl/test_action.pl
+++ b/
Test/perl/test_action.pl
@@
-5,6
+5,7
@@
use strict;
use SL::DB;
use SL::Form;
use SL::LXDebug;
use SL::DB;
use SL::Form;
use SL::LXDebug;
+use SL::DB::Manager::MebilMapping;
$::lxdebug = new LXDebug;
#$::form = new Form;
$::lxdebug = new LXDebug;
#$::form = new Form;
@@
-12,6
+13,8
@@
$::lxdebug = new LXDebug;
#my $dbh = $::form->get_standard_dbh;
SL::DB->register_db(
#my $dbh = $::form->get_standard_dbh;
SL::DB->register_db(
+ domain => 'KIVITENDO',
+ type => 'KIVITENDO',
driver => 'Pg',
database => 'firma',
host => 'localhost',
driver => 'Pg',
database => 'firma',
host => 'localhost',
@@
-19,8
+22,17
@@
SL::DB->register_db(
password => 'kivitendo',
);
password => 'kivitendo',
);
-my $db = SL::DB->new;
+my $db = SL::DB->new(domain => 'KIVITENDO',
+ type => 'KIVITENDO',);
my $dbh = $db->dbh;
my $dbh = $db->dbh;
-my $m = new SL::Controller::Mebil;
-$m->action_calcmap;
+#$dbh->do("SELECT * FROM mebil_mapping");
+
+#$db->begin_work or die $db->error;
+#my $m = new SL::Controller::Mebil;
+#$m->action_calcmap;
+my $mappings = SL::DB::Manager::MebilMapping->get_objects(dbh => $dbh);
+
+foreach my $map (@$mappings) {
+ print ("$map\n");
+}