%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# 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. %# %# %#---------------------------------------------------------------------------- %# %# Administrator's page for a forum %# %#----------------------------------------------------------------------------   <% $dlg->dialog_start( title => pick_lang(rus => "Форум", eng => "Forum"), width => 550) %> % foreach my $field (qw/title nickname memo titleurl keepdays /) { <% $dlg->field($field) %> % }
<% pick_lang(rus=>'Права доступа', eng => 'Access rights') %> % foreach my $field (qw/xacl_read xacl_post xacl_reply xacl_edit xacl_delete xacl_attach/) { <% $dlg->field($field) %> % } <% $dlg->buttons %> <% $dlg->dialog_end %>

%#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Администрирование форума", eng => "Forum administration"} Layout => 'Dialog' %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $obj = new ePortal::App::MsgForum::MsgForum; $dlg = new ePortal::HTML::Dialog( obj => $obj ); my $location = try { $dlg->handle_request( ); } catch ePortal::Exception::DataNotValid with { my $E = shift; $session{ErrorMessage} = $E->text; ''; }; return $location if $location; %#=== @METAGS MenuItems ==================================================== <%method MenuItems><%perl> return []; %#=== @metags once ========================================================= <%once> my ($dlg, $obj); %#=== @metags cleanup ========================================================= <%cleanup> ($dlg, $obj) = ();