egroupware/admin/deletecategory.php

<?php
  /**************************************************************************\
  * phpGroupWare - Admin                                                     *
  * (http://www.phpgroupware.org)                                            *
  * Written by Bettina Gille [ceb@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$ */

	if (! $cat_id)
	{
		Header('Location: ' . $phpgw->link('/admin/categories.php'));
	}

	if ($confirm)
	{
		$phpgw_info['flags'] = array('noheader' => True, 
									'nonavbar' => True);
	}

	$phpgw_info['flags']['currentapp'] = 'admin';
	include('../header.inc.php');

	$c = CreateObject('phpgwapi.categories');
	$c->app_name = 'phpgw';

	if ($confirm)
	{
		if ($subs)
		{
			$c->delete($cat_id,'True');
		}
		else
		{
			$c->delete($cat_id);
		}
		Header('Location: ' . $phpgw->link('/admin/categories.php','start=' . $start . '&query=' . $query . '&sort=' . $sort . '&order=' . $order
											. '&filter=' . $filter));
	}
	else
	{
		$hidden_vars = '<input type="hidden" name="sort" value="' . $sort . '">' . "\n"
					. '<input type="hidden" name="order" value="' . $order . '">' . "\n"
					. '<input type="hidden" name="query" value="' . $query . '">' . "\n"
					. '<input type="hidden" name="start" value="' . $start . '">' . "\n"
					. '<input type="hidden" name="filter" value="' . $filter . '">' . "\n"
					. '<input type="hidden" name="cat_id" value="' . $cat_id . '">' . "\n";

		$t = CreateObject('phpgwapi.Template',PHPGW_APP_TPL);
		$t->set_file(array('category_delete' => 'delete_cat.tpl'));
		$t->set_block('category_delete','delete','deletehandle');
		$t->set_block('category_delete','done','donehandle');

		$nolink = $phpgw->link('/admin/categories.php','cat_id=' . $cat_id . '&start=' . $start . '&query=' . $query . '&sort=' . $sort . '&order=' . $order
								. '&filter=' . $filter);

		$apps_cats = $c->exists('subs',$cat_name='',$cat_id);

		if ($apps_cats==True)
		{
			$t->set_var('messages',lang('This category is currently being used by applications as a parent category.<br>You will need to remove the subcategories before you can delete the parent category'));
			$t->set_var('hidden_vars',$hidden_vars);
			$t->set_var('lang_subs','');
			$t->set_var('subs','');
			$t->set_var('nolink',$nolink);
			$t->set_var('lang_done',lang('Done'));
			$t->set_var('deletehandle','');
			$t->set_var('donehandle','');
			$t->pparse('out','category_delete');
			$t->pparse('donehandle','done');
			$phpgw->common->phpgw_footer();
		}
		else
		{
			$t->set_var('messages',lang('Are you sure you want to delete this category ?'));
			$t->set_var('hidden_vars',$hidden_vars);

			$exists = $c->exists('subs',$cat_name='',$cat_id);

			if ($exists==True)
			{
				$t->set_var('lang_subs',lang('Do you also want to delete all global subcategories ?'));
				$t->set_var('subs','<input type="checkbox" name="subs" value="True">');
			}
			else
			{
				$t->set_var('lang_subs','');
				$t->set_var('subs', '');
			}

			$t->set_var('nolink',$nolink);
			$t->set_var('lang_no',lang('No'));
			$t->set_var('action_url',$phpgw->link('/admin/deletecategory.php',"cat_id=$cat_id"));
			$t->set_var('lang_yes',lang('Yes'));
			$t->set_var('deletehandle','');
			$t->set_var('donehandle','');
			$t->pparse('out','category_delete');
			$t->pparse('deletehandle','delete');
			$phpgw->common->phpgw_footer();
		}
	}
?>