%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# 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?") &>
<% 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")}) %>
% } %#=== @metags onStartRequest ==================================================== <%method onStartRequest><%perl> %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Сброс статистики Каталога", eng => "Clear Catalogue statistics"} %#=== @METAGS args ========================================================= <%args> $confirmed => undef $yes => undef $no => undef