&nbsp;
<% $dlg->dialog_start( title => pick_lang(rus => "Тип телефона", eng => "Entry type"), width => "450") %>

% foreach my $field (qw/title format/) {
	<% $dlg->field($field) %>
% }

<% $dlg->buttons %>
<% $dlg->dialog_end %>
&nbsp;
% ($dlg, $obj) = ();


%#=== @METAGS attr =========================================================
<%attr>
Title => {rus => "Тип телефона", eng => "Entry type"}
</%attr>


%#=== @METAGS onStartRequest ====================================================
<%method onStartRequest><%perl>
  my %args = $m->request_args;
	$dlg = new ePortal::HTML::Dialog( obj => new ePortal::App::OffPhones::PhoneType);

  my $location = try {
    $dlg->handle_request( );
  } catch ePortal::Exception::DataNotValid with {
    my $E = shift;
    $session{ErrorMessage} = $E->text;
    '';
  };
  return $location if $location;

</%perl></%method>


%#=== @metags once =========================================================
<%once>
my ($dlg, $obj);
</%once>

%#=== @METAGS HTMLhead ====================================================
<%method HTMLhead>
<& PARENT:HTMLhead &>
<META NAME="Robots" CONTENT="noindex,nofollow">
</%method>
