%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# 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 => "Notify administrator"), width => "450") %>
<% $dlg->field("client_id", hidden=>1) %>
<% $dlg->field("dept_id", hidden=>1) %>
<% $dlg->field("private", hidden=>1) %>
<% $dlg->field("title") %>
<% $dlg->buttons(delete_button => 1) %>
<% $dlg->dialog_end %>
<span class="memo">
<p>
<% pick_lang(
rus => "Ïðîñèì Âàñ óêàçàòü ôàìèëèþ òîãî, ó êîãî îáíàðóæåíà íåòî÷íîñòü è íàçâàíèå ïîäðàçäåëåíèÿ.",
eng => "Please let us know about entry name and department name where inaccuracy exists") %>
% if (!$ePortal->username) {
<br><% pick_lang(rus => q{
Æåëàòåëüíî òàêæå óêàçàòü Âàøó ôàìèëèþ èëè ïðîñòî
<a href="/login.htm">çàðåãèñòðèðîâàòüñÿ.</a>
}, eng => q{
Please write your name or just <a href="/login.htm">log in.</a>
}) %>
% }
</span>
<p>
<& /inset.mc &>
% ($dlg)=();
%#=== @METAGS attr =========================================================
<%attr>
Title => {rus => "Ñîîáùèòü î íåòî÷íîñòè â òåë.ñïðàâî÷íèêå", eng => "Notify administrator"}
</%attr>
%#=== @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;
my $dpt = new ePortal::App::OffPhones::Department;
if (! $dlg->{obj}->Title and $dpt->restore($args{deptid})) {
$dlg->{obj}->Title( "Íåòî÷íîñòü â ïîäðàçäåëåíèè " . $dpt->title);
}
$dlg->{obj}->dept_id( $args{deptid}+0 ) if exists $args{deptid};
$dlg->{obj}->client_id( $args{client_id}+0 ) if exists $args{client_id};
$dlg->{obj}->private(0);
</%perl></%method>
%#=== @metags once =========================================================
<%once>
my ($dlg);
</%once>
%#=== @METAGS HTMLhead ====================================================
<%method HTMLhead>
<& PARENT:HTMLhead &>
<META NAME="Robots" CONTENT="noindex,nofollow">
</%method>