4 #use SL::Controller::Mebil;
8 use SL::DB::Manager::MebilMapping;
10 $::lxdebug = new LXDebug;
13 #my $dbh = $::form->get_standard_dbh;
16 domain => 'KIVITENDO',
21 username => 'kivitendo',
22 password => 'kivitendo',
25 my $db = SL::DB->new(domain => 'KIVITENDO',
26 type => 'KIVITENDO',);
29 #$dbh->do("SELECT * FROM mebil_mapping");
31 #$db->begin_work or die $db->error;
32 #my $m = new SL::Controller::Mebil;
34 my $mappings = SL::DB::Manager::MebilMapping->get_objects(dbh => $dbh);
36 foreach my $map (@$mappings) {