package SL::Controller::Mebil;

use strict;

use parent qw(SL::Controller::Base);

use SL::DBUtils;

#use Data::Dumper;
#use SL::ClientJS;

sub action_map {
	$::lxdebug->enter_sub;
	$::lxdebug->message(5, 'controller=mebil/action=map');
	my ($self) = @_;
	
	$::form->header(no_layout => 1);
	
	print "<h1>Mebil running</h1>";

	my $sql = "SELECT * from mebil_mapping";
	my $result = SL::DBUtils::do_query($::form, $::form->get_standard_dbh, $sql);
	$::lxdebug->message(5, "result= $result");
	print "$result\n";
	print "<p>Mebil ready</p>";
	$::lxdebug->leave_sub;
}

1;