%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# Copyright (c) 2000-2003 Sergey Rusakov.  All rights reserved.
%# This program is free software; you can redistribute it
%# and/or modify it under the same terms as Perl itself.
%#
%#----------------------------------------------------------------------------
<%perl>
  my %args = $m->request_args;
  my $ss_period = $args{ss_period};

    # --------------------------------------------------------------------
    # Construct SQL Where clause
    #
  if ( $ss_period eq 'today' ) {
    $session{_SquidAcnt_where} = 'log_date >= curdate()';

  } elsif ( $ss_period eq 'week' ) {
    $session{_SquidAcnt_where} = 'log_date >= subdate(now(), interval 7 day)';

  } elsif ( $ss_period eq 'month' ) {
    $session{_SquidAcnt_where} = 'log_date >= date_format(curdate(), "%Y-%m-01")';

  } elsif ( $ss_period eq 'monthago' ) {
    $session{_SquidAcnt_where} =
      'log_date >= date_format(subdate(curdate(), interval 1 month), "%Y-%m-01")
      AND log_date < date_format(curdate(), "%Y-%m-01")';

  } else { # 2 hours
    $session{_SquidAcnt_where} = 'log_date >= subdate(now(), interval 2 hour)';
  }

</%perl>

<&| /dialog.mc:edit_dialog,
      title => pick_lang(rus => "Îòáîð äàííûõ", eng => 'Lookup criteria'),
      width => "350",
      focus => undef,
      method => "POST" &>

<& /dialog.mc:field, name => 'ss_period',
          fieldtype => 'popup_menu',
          label => {rus => 'Ïåðèîä', eng => 'Period'},
          value => $ss_period,
          values => [qw/hour today week month monthago/],
          labels => {
            hour     => {rus => 'Çà ïîñëåäíèå 2 ÷àñà', eng => 'Last 2 hours'},
            today    => {rus => 'Çà ñåãîäíÿøíèé äåíü', eng => 'Today'},
            week     => {rus => 'Çà ýòó íåäåëþ', eng => 'This week'},
            month    => {rus => 'Çà ýòîò ìåñÿö', eng => 'This month'},
            monthago => {rus => 'Çà ïðåäûäóùèé ìåñÿö', eng => 'Month ago'},
          },  &>

<& /dialog.mc:buttons, ok_label => pick_lang(rus => "Èñêàòü!", eng => "Search!"),
                      cancel_button => 0 &>
</&>