%#============================================================================ %# 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:51 $ %# $Header: /home/cvsroot/ePortal/comp_root/admin/menu_edit.htm,v 3.1 2003/04/24 05:36:51 ras Exp $ %# %#----------------------------------------------------------------------------   <% $dlg->dialog_start( title => pick_lang(rus => "Ýëåìåíò ìåíþ", eng=>"Menu item"), copy_button => 1, width => 400) %> % foreach my $field (qw/title nickname priority enabled all_r/) { <% $dlg->field( $field ) %> % } <% $dlg->buttons %> <% $dlg->dialog_end %>   % ($dlg, $obj) = (); %#=== @metags once ========================================================= <%once> my ($dlg, $obj); %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Ýëåìåíò ìåíþ", eng=>"Menu item"} %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $dlg = new ePortal::HTML::Dialog(obj => new ePortal::Menu); return $dlg->handle_request;