%#============================================================================ %# 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.3 $ %# $Date: 2003/04/24 05:36:52 $ %# $Header: /home/cvsroot/ePortal/comp_root/pv/ps_edit.htm,v 3.3 2003/04/24 05:36:52 ras Exp $ %# %#----------------------------------------------------------------------------   <% $dlg->dialog_start(title => pick_lang(rus => "Секция", eng => "Section"), width => 600 ) %> % if ($dlg->{obj}->component eq '') { <% $dlg->field('component') %> <% $dlg->buttons(more_button => 1, ok_button => 0) %> % } else { <% $dlg->field('component', RO => 1) %> <% $dlg->row('
') %> % foreach my $field (qw/title width url memo params xacl_read/) { <% $dlg->field($field) %> % } <% $dlg->buttons %> % } # if component eq '' <% $dlg->dialog_end %>  

<%perl> my $module = "/pv/sections/" . $dlg->{obj}->component; my $comp = $m->fetch_comp($module); if ( $comp and $comp->method_exists("Help") ) { $comp->call_method("Help"); } undef $dlg; %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Редактирование секции домашней страницы", eng => "Edit section"} require_admin => 1 %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $dlg = new ePortal::HTML::Dialog( obj => new ePortal::PageSection); my $location = $dlg->handle_request; return $location if $location; # Fill object with default values if ($dlg->isButtonPressed('more')) { $dlg->{obj}->LoadDefaults( $ARGS{component} ); } %#=== @metags once ========================================================= <%once> my ($dlg, $obj); %#=== @metags cleanup ========================================================= <%cleanup> ($dlg, $obj) = ();