%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2001 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. %# %# $Revision: 3.1 $ %# $Date: 2003/04/24 05:36:52 $ %# $Header: /home/cvsroot/ePortal/comp_root/catalog/link_edit_type.htm,v 3.1 2003/04/24 05:36:52 ras Exp $ %# %#---------------------------------------------------------------------------- <& /message.mc &>   <% $dlg->dialog_start( title => pick_lang(rus => "Тип ссылки на ресурс", eng => "Resource type"), width => 300) %> <% $dlg->field( "parent_id", hidden => 1) %> <% $dlg->field( "recordtype") %> <% $dlg->row(' ') %> <% $dlg->buttons( ok_label => pick_lang(rus => 'Дальше >>>', eng => 'Next >>>')) %> <% $dlg->dialog_end %>

<& SELF:dialog_help &> %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Тип ссылки на ресурс", eng => "Link type"} %#=== @METAGS onStartRequest ==================================================== <%method onStartRequest><%perl> $obj = new ePortal::ThePersistent::Session; $obj->add_attribute(recordtype => $ePortal::Catalog::attributes->{recordtype}); $obj->add_attribute(parent_id => $ePortal::Catalog::attributes->{parent_id}); $obj->restore( $ENV{SCRIPT_NAME} ); $obj->parent_id( $ARGS{parent_id} ) if $ARGS{parent_id}; $dlg = new ePortal::HTML::Dialog( obj => $obj); my $location = $dlg->handle_request(); if ( $dlg->isButtonPressed('ok') ) { if ( $obj->RecordType eq 'group' ) { return href("group_edit.htm", objid => 0, parent_id => $obj->parent_id, back_url => $location); } else { return href("link_edit.htm", objid => 0, recordtype => $obj->RecordType, parent_id => $obj->parent_id, back_url => $location); } } elsif ($location) { # Cancel pressed return $location; } %#=== @METAGS dialog_help ==================================================== <%method dialog_help> <% pick_lang(rus => "Выбор типа ресурса", eng => "Choose resource type") %>

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