%#============================================================================ %# 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.2 $ %# $Date: 2003/04/24 05:36:52 $ %# $Header: /home/cvsroot/ePortal/comp_root/catalog/group_edit.htm,v 3.2 2003/04/24 05:36:52 ras Exp $ %# %#----------------------------------------------------------------------------   <% $dlg->dialog_start( title => pick_lang(rus => "Группа", eng => "Group"), width => 550) %> <% $dlg->field( "recordtype", hidden => 1, value => "group" ) %> <% $dlg->field( "parent_id") %> <% $dlg->field( "title" ) %> <% $dlg->field( "nickname" ) %> <% $dlg->field( "priority" ) %> <% $dlg->field( "memo" ) %> % if ($obj->xacl_check_admin) { <% $dlg->row( "
" ) %> <% $dlg->field( "xacl_read" ) %> <% $dlg->field( "xacl_write" ) %> <% $dlg->field( "xacl_admin" ) %> <% $dlg->field( "including_children" ) %> % } <% $dlg->buttons() %> <% $dlg->dialog_end %>

%#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Группа", eng => "Group"} %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $obj = new ePortal::Catalog; $obj->add_attribute( including_children => { type => 'Temp', dtype => 'YesNo', label => pick_lang(rus => "Заменить права подчиненных", eng => "Replace rights on children"), }); $dlg = new ePortal::HTML::Dialog( obj => $obj); my $location = $dlg->handle_request(); if ( $dlg->isButtonPressed('ok') and $obj->including_children) { $obj->xacl_set_r; } return $location if $location; $obj->parent_id( $ARGS{parent_id} ) if $ARGS{parent_id}; %#=== @metags once ========================================================= <%once> my ($dlg, $obj); %#=== @metags cleanup ========================================================= <%cleanup> ($dlg, $obj) = ();