SL/Controller/Mebil.pm

   1 package SL::Controller::Mebil;
   2
   3 use strict;
   4
   5 use parent qw(SL::Controller::Base);
   6
   7 use SL::DBUtils;
   8
   9 #use Data::Dumper;
  10 #use SL::ClientJS;
  11
  12 sub action_map {
  13         $::lxdebug->enter_sub;
  14         $::lxdebug->message(5, 'controller=mebil/action=map');
  15         my ($self) = @_;
  16
  17         $::form->header(no_layout => 1);
  18
  19         print "<h1>Mebil running</h1>";
  20
  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");
  24         print "$result\n";
  25         print "<p>Mebil ready</p>";
  26         $::lxdebug->leave_sub;
  27 }
  28
  29 1;