egroupware/calendar/delete.php

37 lines
1.6 KiB
PHP
Executable File

<?php
/**************************************************************************\
* phpGroupWare - Calendar *
* http://www.phpgroupware.org *
* Based on Webcalendar by Craig Knudsen <cknudsen@radix.net> *
* http://www.radix.net/~cknudsen *
* Modified by Mark Peters <skeeter@phpgroupware.org> *
* -------------------------------------------- *
* This program is free software; you can redistribute it and/or modify it *
* under the terms of the GNU General Public License as published by the *
* Free Software Foundation; either version 2 of the License, or (at your *
* option) any later version. *
\**************************************************************************/
/* $Id$ */
$phpgw_flags = Array(
'currentapp' => 'calendar',
'noheader' => True,
'nonavbar' => True
);
$phpgw_info['flags'] = $phpgw_flags;
include('../header.inc.php');
if ($id > 0) && ($cal_info->owner == $owner) && ($phpgw->calendar->check_perms(PHPGW_ACL_EDIT) == True))
{
$phpgw->db->query('SELECT cal_datetime FROM calendar_entry WHERE cal_id='.$id,__LINE__,__FILE__);
$phpgw->db->next_record();
$thisyear = intval($phpgw->common->show_date($phpgw->db->f('cal_datetime'),'Y'));
$thismonth = intval($phpgw->common->show_date($phpgw->db->f('cal_datetime'),'n'));
$phpgw->calendar->delete(intval($id));
}
Header('Location: ' . $phpgw->link('index.php','year='.$thisyear.'&month='.$thismonth));
?>