SL/Controller/Mebil.pm

   1 package SL::Controller::Mebil;
   2
   3 use strict;
   4
   5 use parent qw(SL::Controller::Base);
   6
   7 #use SL::Controller::Helper::ReportGenerator;
   8 use SL::ReportGenerator;
   9 use SL::DBUtils;
  10
  11 #use Data::Dumper;
  12 #use SL::ClientJS;
  13
  14 use Rose::Object::MakeMethods::Generic (
  15   scalar                  => [ qw(report number_columns year current_year objects subtotals_per_quarter salesman_id) ],
  16   'scalar --get_set_init' => [ qw(employees types data) ],
  17 );
  18
  19 sub action_map {
  20         $::lxdebug->enter_sub;
  21         $::lxdebug->message(5, 'controller=mebil/action=map');
  22         my ($self) = @_;
  23
  24         $::form->header(no_layout => 1);
  25
  26         print "<h1>Mebil running</h1>";
  27
  28         my $sql = "SELECT  chart_id,xbrl_tag from mebil_mapping";
  29         my $result = SL::DBUtils::do_query($::form, $::form->get_standard_dbh, $sql);
  30         $::lxdebug->message(5, "result= $result");
  31         print "$result<br>\n";
  32
  33         my @r = SL::DBUtils::selectall_hashref_query($::form, $::form->get_standard_dbh, $sql);
  34         print ref($r[1])||"SCALAR";
  35         print "<br>";
  36         my $fst = $r[1];
  37         while (my($k,$v) = each(%$fst)) {
  38                 print $k, " : ", $v, "</br>\n";
  39         }
  40         print "<br>";
  41         print scalar @r;
  42         print "<br>";
  43         print @r;
  44         print "<p>Mebil ready</p>";
  45         $::lxdebug->leave_sub;
  46 }
  47
  48 sub action_showmap {
  49         $::lxdebug->enter_sub;
  50         my ($self) = @_;
  51
  52         my $sql = "SELECT  chart_id,xbrl_tag from mebil_mapping";
  53         $self->{data} = SL::DBUtils::selectall_hashref_query($::form, $::form->get_standard_dbh, $sql);
  54
  55         $self->prepare_report;
  56         $self->list_data;
  57
  58         $::lxdebug->leave_sub;
  59 }
  60
  61 sub prepare_report {
  62   my ($self)      = @_;
  63
  64   $self->report(SL::ReportGenerator->new(\%::myconfig, $::form));
  65
  66   my @columns = (qw(chart_id xbrl_tag));
  67
  68   #$self->number_columns([ grep { !m/^(?:month|year|quarter)$/ } @columns ]);
  69
  70   my %column_defs          = (
  71     chart_id                  => { text => 'Kontonummer'                  },
  72     xbrl_tag                   => { text => 'XBRL'                   },
  73   );
  74
  75   $column_defs{$_}->{align} = 'right' for @columns;
  76
  77   $self->report->set_options(
  78     std_column_visibility => 1,
  79     controller_class      => 'Mebil',
  80     output_format         => 'HTML',
  81  #   raw_top_info_text     => $self->render('financial_overview/report_top', { output => 0 }, YEARS_TO_LIST => [ reverse(($self->current_year - 10)..($self->current_year + 5)) ]),
  82  #   title                 => t8('Financial overview for #1', $self->year),
  83  #   allow_pdf_export      => 1,
  84  #   allow_csv_export      => 1,
  85   );
  86   $self->report->set_columns(%column_defs);
  87   $self->report->set_column_order(@columns);
  88 #  $self->report->set_export_options(qw(list year subtotals_per_quarter salesman_id));
  89   $self->report->set_options_from_form;
  90 }
  91 sub list_data {
  92         my ($self)           = @_;
  93
  94 #  my @visible_columns  = $self->report->get_visible_columns;
  95 #  my @type_columns     = @{ $self->types };
  96 #  my @non_type_columns = grep { my $c = $_; none { $c eq $_ } @type_columns } @visible_columns;
  97
  98         foreach my $mapping (@{ $self->{data} }) {
  99                 my %data = (
 100                         chart_id => { data => $mapping->{chart_id}},
 101                         xbrl_tag => { data => $mapping->{xbrl_tag}},
 102                 );
 103                 $self->report->add_data(\%data);
 104         }
 105
 106         return $self->report->generate_with_headers;
 107 }
 108
 109 1;