%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# Copyright (c) 2000-2004 Sergey Rusakov. All rights reserved.
%# This program is open source software
%#
%#
%#----------------------------------------------------------------------------
% if ($confirmed and $yes) {
% ePortal::Catalog::ClearStatistics();
<& /message.mc, GoodMessage => pick_lang(
rus => "Ñòàòèñòèêà î÷èùåíà", eng => "Statistics cleared") &>
% } elsif ($confirmed and $no) {
<& /message.mc, ErrorMessage => pick_lang(
rus => "Äåéñòâèå îòìåíåíî", eng => "Action denied") &>
% } else {
<& /message.mc, ErrorMessage => pick_lang(
rus => "Ñòàòèñòèêà áóäåò î÷èùåíà. Âû óâåðåíû?",
eng => "Clear Statistics? Are you shure?") &>
<div align="center">
<form method="GET" action="<% $ENV{SCRIPT_NAME} %>">
<% CGI::hidden({-name => 'confirmed', -value => 1}) %>
<% CGI::submit({-name => 'yes', -value => pick_lang(rus => "ÄÀ", eng => "YES")}) %>
<% CGI::submit({-name => 'no', -value => pick_lang(rus => "Íåò", eng => "No")}) %>
</div>
</form>
% }
%#=== @metags onStartRequest ====================================================
<%method onStartRequest><%perl>
</%perl></%method>
%#=== @METAGS attr =========================================================
<%attr>
Title => {rus => "Ñáðîñ ñòàòèñòèêè Êàòàëîãà", eng => "Clear Catalogue statistics"}
</%attr>
%#=== @METAGS args =========================================================
<%args>
$confirmed => undef
$yes => undef
$no => undef
</%args>