%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2001 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. %# %# $Revision: 3.1 $ %# $Date: 2003/04/24 05:36:52 $ %# $Header: /home/cvsroot/ePortal/comp_root/catalog/mostpopular_edit.htm,v 3.1 2003/04/24 05:36:52 ras Exp $ %# %#----------------------------------------------------------------------------   <% $dlg->dialog_start( title => pick_lang(rus => "Настройка 'Популярные ресурсы'", eng => "Setup 'Most popular'"), width => 400) %> <% $dlg->field( "ctlg_mp_count") %> <% $dlg->field( "ctlg_mp_width") %> <% $dlg->row(' ') %> <% $dlg->buttons() %> <% $dlg->dialog_end %>

%#=== @metags onStartRequest ==================================================== <%method onStartRequest><%perl> my $obj = $m->comp('/catalog/mostpopular.htm:config_object'); $obj->restore; $dlg = new ePortal::HTML::Dialog( obj => $obj); my $location = $dlg->handle_request(); return $location if $location; %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Настройка 'Популярные ресурсы'", eng => "Setup 'Most popular'"} %#=== @metags once ========================================================= <%once> my ($dlg, $obj); %#=== @metags cleanup ========================================================= <%cleanup> ($dlg, $obj) = ();