%#============================================================================
%# 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.
%#
%#
%#----------------------------------------------------------------------------
<& /message.mc &>
<p>
<&| /dialog.mc:edit_dialog, obj => $obj,
    title => pick_lang(rus => "Íàñòðîéêà ïðèëîæåíèÿ SquidAcnt", eng => "SquidAcnt application setup"), &>
    <& SELF:dialog_dbi_fields &>

% foreach my $field (qw/daily_limit_t weekly_limit_t mon_limit_t daily_alert_t /) {
  <& /dialog.mc:field, name => $field &>
% }
<&| /dialog.mc:cell &>
  <span class="memo">
  <&| SELF:rus &>Ëèìèòû ìîæíî óêàçûâàòü â âèäå 123 X, ãäå X ýòî K-Êá, M-Ìá, G-Ãá</&>
  <&| SELF:eng &>Enter limits in form 123 X, when X is K-Kb, M-Mb, G-Gb</&>
  </span>
</&>

<&| /dialog.mc:cell &><hr width ="50%"></&>
% foreach my $field (qw/access_log/) {
  <& /dialog.mc:field, name => $field &>
% }

<&| /dialog.mc:cell &><hr width ="50%"></&>
% foreach my $field (qw/xacl_read xacl_write/) {
  <& /dialog.mc:field, name => $field &>
% }

  <& /dialog.mc:buttons &>
</&>
<p>
<& SELF:custom_dbi_memo &>
<p>



%#=== @metags once =========================================================
<%once>
my ($obj);
</%once>


%#=== @METAGS cleanup =========================================================
<%cleanup>
($obj) = ();
</%cleanup>

%#=== @METAGS attr =========================================================
<%attr>
Title => {rus => "Íàñòðîéêà ïðèëîæåíèÿ SquidAcnt", eng => "SquidAcnt application setup"}
Layout => 'Dialog'
</%attr>


%#=== @METAGS onStartRequest ====================================================
<%method onStartRequest><%perl>
  $obj = $ePortal->Application('SquidAcnt', skip_storage_version_check => 1);
  $m->comp('SELF:setup_onStartRequest', obj => $obj);
</%perl></%method>