X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2a0cbd885790174fa0f212e6661b30362650a42c..5349a1ed016ae603b39d73747eccc6792707db1c:/SL/mebil/Mapping.pm?ds=sidebyside

diff --git a/SL/mebil/Mapping.pm b/SL/mebil/Mapping.pm
new file mode 100644
index 000000000..ca2d5ea63
--- /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;