%#============================================================================ %# 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. %# %# %#---------------------------------------------------------------------------- <& /message.mc &>

<&| /dialog.mc:edit_dialog, obj => $obj, title => pick_lang(rus => "Настройка приложения OffPhones", eng => "OffPhones application setup"), &> <& SELF:dialog_dbi_fields &> <&| /dialog.mc:cell &>

<& /dialog.mc:field, name => 'xacl_write', -values => [qw/ admin everyone uid gid registered /]&> <& /dialog.mc:buttons &>

<& SELF:custom_dbi_memo &>

%#=== @metags once ========================================================= <%once> my ($dlg, $obj); %#=== @METAGS cleanup ========================================================= <%cleanup> ($dlg, $obj) = (); %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Настройка приложения OffPhones", eng => "OffPhones application setup"} Layout => 'Dialog' %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $obj = $ePortal->Application('OffPhones', skip_storage_version_check => 1); $m->comp('SELF:setup_onStartRequest', obj => $obj);