1 package SL::Controller::Mebil;
5 use parent qw(SL::Controller::Base);
13 $::lxdebug->enter_sub;
14 $::lxdebug->message(5, 'controller=mebil/action=map');
17 $::form->header(no_layout => 1);
19 print "<h1>Mebil running</h1>";
21 my $sql = "SELECT * from mebil_mapping";
22 my $result = SL::DBUtils::do_query($::form, $::form->get_standard_dbh, $sql);
23 $::lxdebug->message(5, "result= $result");
25 print "<p>Mebil ready</p>";
26 $::lxdebug->leave_sub;