epic-ts

diff --git a/SL/Controller/Mebil.pm b/SL/Controller/Mebil.pm
new file mode 100644 (file)
index 0000000..ced266f
--- /dev/null
+++ b/SL/Controller/Mebil.pm
@@ -0,0 +1,29 @@
+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;

diff --git a/sql/mebil.sql b/sql/mebil.sql
new file mode 100644 (file)
index 0000000..8badc9b
--- /dev/null
+++ b/sql/mebil.sql
@@ -0,0 +1,11 @@
+-- Table of mebil extensions
+-- for module 
+-- Lx office
+DROP TABLE IF EXISTS mebil_mapping;
+CREATE TABLE mebil_mapping (
+       id      integer NOT NULL,
+       chart_id        integer NOT NULL,
+       xbrl_tag VARCHAR(200) NOT NULL
+);
+INSERT INTO mebil_mapping VALUES (1,1,'acc.trans.global');
+