epic-s6g

[mfinanz.git] / SL / mebil / Mapping.pm

diff --git a/SL/mebil/Mapping.pm b/SL/mebil/Mapping.pm
new file mode 100644 (file)
index 0000000..ca2d5ea
--- /dev/null
+++ b/SL/mebil/Mapping.pm
@@ -0,0 +1,22 @@
+package SL::mebil::Mapping;
+
+use strict;
+
+# Manager methods for mebil
+
+sub new {
+       # parameter: 1) ...
+       my $name = shift;
+       my $my_data = {
+               error_channel    => shift,
+               dbh              => shift};
+       bless $my_data;
+       return $my_data;
+}
+sub get_mapping {
+       my $self = shift;
+       my $sql = "SELECT fromacc,typ,toacc from mebil_mapping order by ordering";
+       return SL::DBUtils::selectall_hashref_query($self->{error_channel}, $self->{dbh}, $sql);
+}
+
+1;