%#============================================================================ %# 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. %# %# %#----------------------------------------------------------------------------   <% $dlg->dialog_start( title => pick_lang( rus => "Вставка HTML", eng => "HTML inset"), width => 500) %> <% $dlg->field("number", hidden => 1, value => $ARGS{number}) %> <% $dlg->field("page", hidden => 1, value => $ARGS{page}) %> <% $dlg->row(pick_lang(rus => "Страница", eng => "Page"), $ARGS{page}) %> <% $dlg->row(pick_lang(rus => "Номер вставки", eng => "Insent number"), $ARGS{number}) %> <% $dlg->row("
") %> <% $dlg->row( pick_lang(rus => "Текст вставки", eng => "Insent text"), CGI::textarea({-name => 'inset', -class => 'dlgfield', -rows => 10, -columns => 70, -default => $inset})) %> <% $dlg->row(' ') %> <% $dlg->buttons() %> <% $dlg->dialog_end %>

%#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Вставка HTML", eng => "HTML inset"} %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $inset_id = "inset$ARGS{number}_$ARGS{page}"; $inset = $ePortal->Config($inset_id); $dlg = new ePortal::HTML::Dialog( ); my $location = try { $dlg->handle_request( ); } catch ePortal::Exception::DataNotValid with { my $E = shift; $session{ErrorMessage} = $E->text; ''; }; if ($dlg->isButtonPressed("ok")) { $ePortal->Config($inset_id, $ARGS{inset}); } return $location if $location; %#=== @metags once ========================================================= <%once> my ($dlg, $obj); my $inset_id = undef; my $inset = undef; %#=== @metags cleanup ========================================================= <%cleanup> ($dlg, $obj) = (); $inset_id = undef; $inset = undef;