SL/Controller/GenericPresenterTest.pm

   1 package SL::Controller::GenericPresenterTest;
   2
   3 use strict;
   4
   5 use parent qw(SL::Controller::Base);
   6
   7 sub action_show {
   8   my ($self) = @_;
   9
  10   $self->render(
  11     'presenter/test_page',
  12     defaults => {
  13       from_date => '1.2.2022',
  14       to_date => '3.4.2022',
  15       dialog => {
  16           year => '2022',                 # numeric year
  17           type => 'monthly',              # the radio button selection:
  18                                           # 'yearly', 'monthly', 'quarterly'
  19           quarter => 'B',                 # the quarter as a letter code:
  20                                           # 'A', 'B', 'C', 'D' A being 1st quarter etc.
  21           month => '6',                   # numeric month
  22       }
  23     }
  24   );
  25 }
  26
  27 1;