%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2000-2004 Sergey Rusakov. All rights reserved. %# This program is open source software %# %# %#----------------------------------------------------------------------------   <% $dlg->dialog_start( title => pick_lang(rus => "Редактор заданий", eng => "Job editor"), width => "600") %> <% $dlg->field('title') %> <% $dlg->row('
') %> <% $dlg->field('period') %> <% $dlg->field('jobstatus') %> <% $dlg->field('mailresults') %> <% $dlg->field('jobserver') %> <% $dlg->field('forcerun') %> <% $dlg->row('
') %> <% $dlg->field('lastrun', RO=>1) %> <% $dlg->field('lastresult', RO=>1) %> <% $dlg->row('
') %> <% $dlg->field('memo') %> <% $dlg->buttons %> <% $dlg->dialog_end %>   <% $obj->LastResultHTML %>   %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Редактор заданий", eng => "Job editor"} %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $obj = new ePortal::CronJob; $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 once ========================================================= <%once> my ($dlg, $obj); %#=== @metags cleanup ========================================================= <%cleanup> ($dlg, $obj) = ();