%#============================================================================ %# 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. %# %# %#---------------------------------------------------------------------------- %# %# Usage: %# %#
%# %# %# ... %#
%# %# or use ePortal::thePersistent::Support::htmlField %# %##########################################################################

Подождите. Идет загрузка данных.

% $m->flush_buffer; % my $obj; % eval { $obj = new $objtype; }; % if ($@) { <& /message.mc, ErrorMessage => "Не могу создать требуемый объект" &> % return; % } % if (!$obj->restore($objid)) { <& /message.mc, ErrorMessage => "Не могу найти запрошенный объект" &> % return; % } % my $A = $obj->attribute($field); % if (! ref($A) or ! ref($A->{tree}) eq 'CODE') { <& /message.mc, ErrorMessage => "Запрошеный атрибут объекта не найден" &> % return; % } % my $tree = $A->{tree}($obj); % if (! $tree) { <& /message.mc, ErrorMessage => "Запрос на получение списка для дерева не выполнен" &> % } % $tree->url("javascript:SelectTreeItem(#id#);"); % $tree->expand_item($fielddata); % $tree->{obj_by_id}{$fielddata}{url}='';
<% plink("Закрыть это окно", href => "javascript:window.close();") %>

Выбор подразделения

% $m->flush_buffer; % $tree->draw; %#=== @metags attr ========================================================= <%attr> Title => {rus => "Выбор из дерева", eng => "Select one from tree"} %#=== @metags args ========================================================= <%args> $objid $objtype $fielddata=>undef $field