SL/mebil/Mapping.pm

   1 package SL::mebil::Mapping;
   2
   3 use strict;
   4
   5 # Manager methods for mebil
   6
   7 sub new {
   8         # parameter: 1) ...
   9         my $name = shift;
  10         my $my_data = {
  11                 error_channel    => shift,
  12                 dbh              => shift};
  13         bless $my_data;
  14         return $my_data;
  15 }
  16 sub get_mapping {
  17         my $self = shift;
  18         my $sql = "SELECT fromacc,typ,toacc from mebil_mapping order by ordering";
  19         return SL::DBUtils::selectall_hashref_query($self->{error_channel}, $self->{dbh}, $sql);
  20 }
  21
  22 1;