%#============================================================================
%# ePortal - WEB Based daily organizer
%# Author - S.Rusakov <rusakov_sa@users.sourceforge.net>
%#
%# 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.
%#
%#
%#----------------------------------------------------------------------------

%#=== @metags onStartRequest ====================================================
<%method onStartRequest>
<& PARENT:onStartRequest, %ARGS &>
<%perl>
  my $calendar = new ePortal::App::Organizer::Calendar;
	if ($calendar->restore($ARGS{objid})) {
		$calendar->delete;
	}
  return "cal_dairy.htm";
</%perl></%method>