From 2498c3fe17bc3846b308645dd37aa32c64b5574d Mon Sep 17 00:00:00 2001
From: Michael Wagner <michael@wagnertech.de>
Date: Fri, 13 Aug 2021 13:18:05 +0200
Subject: [PATCH] epic-ts

---
 SL/Controller/Mebil.pm | 29 +++++++++++++++++++++++++++++
 sql/mebil.sql          | 11 +++++++++++
 2 files changed, 40 insertions(+)
 create mode 100644 SL/Controller/Mebil.pm
 create mode 100644 sql/mebil.sql

diff --git a/SL/Controller/Mebil.pm b/SL/Controller/Mebil.pm
new file mode 100644
index 000000000..ced266f10
--- /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
index 000000000..8badc9b94
--- /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');
+
-- 
2.20.1