%#============================================================================ %# 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. %# %# %#---------------------------------------------------------------------------- <%method onStartRequest> <& PARENT:onStartRequest, %ARGS &> <%perl> my $objid = $ARGS{objid}; my $C = new ePortal::App::Organizer::Category; $C->restore_or_throw($objid); my $category_id = $C->id; $C->delete; # will throw on ACL violation foreach my $table (qw/Notepad Contact ToDo Anniversary/) { $C->dbh->do("DELETE FROM $table WHERE org_id=? AND category_id=?", undef, $session{_org_id}, $category_id); } return href('category_list.htm', org_id => $session{_org_id});