%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2000-2004 Sergey Rusakov. All rights reserved. %# This program is open source software %# %#---------------------------------------------------------------------------- %#=== @metags onStartRequest ==================================================== <%method onStartRequest><%perl> my $catalog_id = $ARGS{objid}; my $C = $ARGS{objtype} eq 'ePortal::CtlgItem' ? new ePortal::CtlgItem : new ePortal::Catalog; if ( $C->restore($catalog_id) ) { my $new_att = new ePortal::Attachment; if ( $new_att->upload(r => $r) ) { $new_att->link_with_object($C); } } return $m->comp('/dialog.mc:back_url');