%#============================================================================ %# 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. %# %# %#----------------------------------------------------------------------------   <&| /dialog.mc:edit_dialog, title => pick_lang(rus => "Ññûëêà íà ðåñóðñ", eng => "Link to resource"), width => 550, obj => $obj, focus => 'title' &> <& /dialog.mc:read_only, id => 'recordtype' &> <&| /dialog.mc:cell &>
<& /dialog.mc:field, id => 'parent_id' &> <& /dialog.mc:field, id => 'title' &> <& /dialog.mc:field, id => 'nickname' &> <& /dialog.mc:field, id => 'priority' &> <&| /dialog.mc:cell &>
<& /dialog.mc:field, id => 'url' &> <& /dialog.mc:field, id => 'memo' &> % if ($obj->xacl_check_admin) { <&| /dialog.mc:cell &>
<& /dialog.mc:read_only, id => 'uid' &> <& /dialog.mc:field, id => 'xacl_read' &> <& /dialog.mc:field, id => 'xacl_write' &> <& /dialog.mc:field, id => 'xacl_admin' &> % } <& /dialog.mc:buttons &> <&| /dialog.mc:cell &>
<& /dialog.mc:read_only, id => 'ts' &> <& /dialog.mc:read_only, id => 'clicks' &> <& /dialog.mc:read_only, id => 'hits' &>

%#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Ññûëêà íà ðåñóðñ", eng => "Link to resource"} %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $obj = new ePortal::Catalog; $m->comp('/dialog.mc:handle_request', obj => $obj); #initialize ACL if ( ! $obj->check_id ) { # new object my $parent = $obj->parent; $obj->set_acl_from_obj($parent) if $parent; } %#=== @metags once ========================================================= <%once> my ($dlg, $obj, $att); %#=== @metags cleanup ========================================================= <%cleanup> ($dlg, $obj, $att) = ();