%#============================================================================ %# 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 => "Личная заметка", eng => "Personal memo"), width => "450") %> <% $dlg->row( '' . $client->position . ' ' . $client->title . '') %> <% $dlg->field("client_id", hidden=>1) %> <% $dlg->field("title") %> <% $dlg->buttons(delete_button => 1) %> <% $dlg->dialog_end %>

<% pick_lang(rus => q{ Все, что вы напишете в личной заметке будет отображаться в телефонном справочнике только для вас и ни для кого другого. Здесь вы можете указать дополнительную информацию о телефонах человека. }, eng => q{ This is your personal area to make a note about entry. Nobody can see it except you. }) %>

<% pick_lang(rus => qq{ В случае, если вы обнаружили неправильно указанный телефонный номер, то сообщите об этом администратору справочника. Для этого нажмите здесь. }, eng => qq{ Do not use this form to make a message to administrator. Use this form to notify administrator about errors in directory. }) %>   % ($dlg, $client) = (); %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Личная заметка", eng => "Personal memo"} %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> my %args = $m->request_args; $dlg = new ePortal::HTML::Dialog( obj => new ePortal::App::OffPhones::PhoneMemo); my $location = try { $dlg->handle_request( ); } catch ePortal::Exception::DataNotValid with { my $E = shift; $session{ErrorMessage} = $E->text; ''; }; return $location if $location; $dlg->{obj}->client_id( $args{client_id}+0 ) if exists $args{client_id}; $client = new ePortal::App::OffPhones::Client; $client->restore($args{client_id}); %#=== @metags once ========================================================= <%once> my ($dlg, $client); %#=== @METAGS HTMLhead ==================================================== <%method HTMLhead> <& PARENT:HTMLhead &>