<?php
	/**************************************************************************\
	* eGroupWare API - Categories                                              *
	* This file written by Joseph Engo <jengo@phpgroupware.org>                *
	*                  and Bettina Gille [ceb@phpgroupware.org]                *
	* Category manager                                                         *
	* Copyright (C) 2000, 2001 Joseph Engo, Bettina Gille                      *
	* Copyright (C) 2002, 2003 Bettina Gille                                   *
	* Reworked 11/2005 by RalfBecker-AT-outdoor-training.de                    *
	* ------------------------------------------------------------------------ *
	* This library is part of the eGroupWare API                               *
	* http://www.egroupware.org                                                *
	* ------------------------------------------------------------------------ *
	* This library is free software; you can redistribute it and/or modify it  *
	* under the terms of the GNU Lesser General Public License as published by *
	* the Free Software Foundation; either version 2.1 of the License,         *
	* or any later version.                                                    *
	* This library is distributed in the hope that it will be useful, but      *
	* WITHOUT ANY WARRANTY; without even the implied warranty of               *
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
	* See the GNU Lesser General Public License for more details.              *
	* You should have received a copy of the GNU Lesser General Public License *
	* along with this library; if not, write to the Free Software Foundation,  *
	* Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA            *
	\**************************************************************************/
	/* $Id$ */

	/**
	 * class to manage categories in eGroupWare
	 *
	 * @license LGPL
	 * @package api
	 * @subpackage categories
	 */
	class categories
	{
		var $account_id;
		var $app_name;
		/**
		 * @var egw_db
		 */
		var $db;
		var $total_records;
		var $grants;
		var $table = 'egw_categories';
		var $cache_id2cat_data = array();	// a little bit of caching for id2name and return_single

		/**
		 * constructor for categories class
		 *
		 * @param int/string $accountid='' account id or lid, default to current user
		 * @param string $app_name='' app name defaults to current app
		 */
		function categories($accountid='',$app_name = '')
		{
			if (!$app_name) $app_name = $GLOBALS['egw_info']['flags']['currentapp'];

			$this->account_id	= (int) get_account_id($accountid);
			$this->app_name		= $app_name;
			$this->db			= clone($GLOBALS['egw']->db);
			$this->db->set_app('phpgwapi');
			$this->grants		= $GLOBALS['egw']->acl->get_grants($app_name);
		}

		/**
		 * return sql for predifined filters
		 *
		 * @param string $type eiterh subs, mains, appandmains, appandsubs, noglobal or noglobalapp
		 * @return string with sql to add to the where clause
		 */
		function filter($type)
		{
			switch ($type)
			{
				case 'subs':		$where = 'cat_parent != 0'; break;
				case 'mains':		$where = 'cat_parent = 0'; break;
				case 'appandmains':	$where = 'cat_appname='.$this->db->quote($this->app_name).' AND cat_parent = 0'; break;
				case 'appandsubs':	$where = 'cat_appname='.$this->db->quote($this->app_name).' AND cat_parent != 0'; break;
				case 'noglobal':	$where = 'cat_appname != '.$this->db->quote($this->app_name); break;
				case 'noglobalapp':	$where = 'cat_appname='.$this->db->quote($this->app_name).' AND cat_owner != '.(int)$this->account_id; break;
				default:			return False;
			}
			return $where;
		}

		/**
		 * returns the total number of categories for app, subs or mains
		 *
		 * @param $for one of either 'app' 'subs' or 'mains'
		 * @return integer count of categories
		 */
		function total($for = 'app')
		{
			switch($for)
			{
				case 'app':			$where = array('cat_appname' => $this->app_name); break;
				case 'appandmains':	$where = array('cat_appname' => $this->app_name,'cat_parent' => 0); break;
				case 'appandsubs':	$where = array('cat_appname' => $this->app_name,'cat_parent != 0'); break;
				case 'subs':		$where = 'cat_parent != 0'; break;
				case 'mains':		$where = 'cat_parent = 0'; break;
				default:			return False;
			}

			$this->db->select($this->table,'COUNT(*)',$where,__LINE__,__FILE__);

			return $this->db->next_record() ? $this->db->f(0) : 0;
		}

		/**
		 * return_all_children
		 * returns array with id's of all children from $cat_id and $cat_id itself!
		 *
		 * @param $cat_id integer cat-id to search for
		 * @return array of cat-id's
		 */
		function return_all_children($cat_id)
		{
			$all_children = array($cat_id);

			$children = $this->return_array('subs',0,False,'','','',True,$cat_id,-1,'id');
			if (is_array($children) && count($children))
			{
				foreach($children as $child)
				{
					$all_children = array_merge($all_children,$this->return_all_children($child['id']));
				}
			}
			//echo "<p>categories::return_all_children($cat_id)=(".implode(',',$all_children).")</p>\n";
			return $all_children;
		}

		/**
		 * return an array populated with categories
		 *
		 * @param string $type defaults to 'all'
		 * @param int $start see $limit
		 * @param boolean $limit if true limited query starting with $start
		 * @param string $query='' query-pattern
		 * @param string $sort='' sort order, either defaults to 'ASC'
		 * @param string $order='' order by
		 * @param boolean $globals includes the global egroupware categories or not
		 * @param int $parent_id=0 if > 0 return subcats or $parent_id
		 * @param int $lastmod = -1 if > 0 return only cats modified since then
		 * @param string $column='' if column-name given only that column is returned, not the full array with all cat-data
		 * @return array or cats
		 */
		function return_array($type,$start,$limit = True,$query = '',$sort = '',$order = '',$globals = False, $parent_id = '', $lastmod = -1, $column = '')
		{
			if ($globals)
			{
				$global_cats = " OR cat_appname='phpgw'";
			}

			if (($filter = $this->filter($type))) $filter = ' AND '.$filter;

			if (!$sort) $sort = 'ASC';

			if (!empty($order) && preg_match('/^[a-zA-Z_(), ]+$/',$order) && (empty($sort) || preg_match('/^(ASC|DESC|asc|desc)$/',$sort)))
			{
				$ordermethod = 'ORDER BY '.$order.' '.$sort;
			}
			else
			{
				$ordermethod = 'ORDER BY cat_main, cat_level, cat_name ASC';
			}

			if ($this->account_id == '-1')
			{
				$grant_cats = ' cat_owner=-1 ';
			}
			else
			{
				if (is_array($this->grants))
				{
					$grant_cats = ' (cat_owner=' . $this->account_id . " OR cat_owner=-1 OR cat_access='public' AND cat_owner IN (" . implode(',',array_keys($this->grants)) . ')) ';
				}
				else
				{
					$grant_cats = ' cat_owner=' . $this->account_id . ' OR cat_owner=-1 ';
				}
			}

			if ($parent_id > 0)
			{
				$parent_filter = ' AND cat_parent=' . (int)$parent_id;
			}

			if ($query)
			{
				$query = $this->db->quote('%'.$query.'%');
				$querymethod = " AND (cat_name LIKE $query OR cat_description LIKE $query) ";
			}

			if($lastmod > 0)
			{
				$querymethod .= ' AND last_mod > ' . (int)$lastmod;
			}

			$where = '(cat_appname=' . $this->db->quote($this->app_name) . ' AND ' . $grant_cats . $global_cats . ')'
				. $parent_filter . $querymethod . $filter;

			$this->db->select($this->table,'COUNT(*)',$where,__LINE__,__FILE__);
			$this->total_records = $this->db->next_record() ? $this->db->f(0) : 0;
			
			if (!$this->total_records) return false;
			
			$this->db->select($this->table,'*',$where,__LINE__,__FILE__,$limit ? (int) $start : false,$ordermethod);
			while (($cat = $this->db->row(true,'cat_')))
			{
				$cat['app_name'] = $cat['appname'];
				$this->cache_id2cat_data[$cat['id']] = $cat;
				
				if ($column)
				{
					$cats[] = array($column => isset($cat[$column]) ? $cat[$column] : $cat['id']);
				}
				else
				{
					$cats[] = $cat;
				}
			}
			return $cats;
		}

		/**
		 * return a sorted array populated with categories
		 *
		 * @param int $start see $limit
		 * @param boolean $limit if true limited query starting with $start
		 * @param string $query='' query-pattern
		 * @param string $sort='' sort order, either defaults to 'ASC'
		 * @param string $order='' order by
		 * @param boolean $globals includes the global egroupware categories or not
		 * @param int $parent_id=0 if > 0 return subcats or $parent_id
		 * @return array with cats
		 */
		function return_sorted_array($start,$limit=True,$query='',$sort='',$order='',$globals=False, $parent_id=0)
		{
			if ($globals)
			{
				$global_cats = " OR cat_appname='phpgw'";
			}

			if (!$sort) $sort = 'ASC';

			if (!empty($order) && preg_match('/^[a-zA-Z_, ]+$/',$order) && (empty($sort) || preg_match('/^(ASC|DESC|asc|desc)$/',$sort)))
			{
				$ordermethod = 'ORDER BY '.$order.' '.$sort;
			}
			else
			{
				$ordermethod = ' ORDER BY cat_name ASC';
			}

			if ($this->account_id == '-1')
			{
				$grant_cats = " cat_owner='-1' ";
			}
			else
			{
				if (is_array($this->grants))
				{
					$grant_cats = " (cat_owner='" . $this->account_id . "' OR cat_owner='-1' OR cat_access='public' AND cat_owner IN (" . implode(',',array_keys($this->grants)) . ")) ";
				}
				else
				{
					$grant_cats = " cat_owner='" . $this->account_id . "' OR cat_owner='-1' ";
				}
			}
			$parent_select = ' AND cat_parent=' . (int)$parent_id;

			if ($query)
			{
				$query = $this->db->quote('%'.$query.'%');
				$querymethod = " AND (cat_name LIKE $query OR cat_description LIKE $query) ";
			}

			$where = '(cat_appname=' . $this->db->quote($this->app_name) . ' AND ' . $grant_cats . $global_cats . ')' . $querymethod;

			$parents = $cats = array();
			$this->db->select($this->table,'*',$where . $parent_select,__LINE__,__FILE__,false,$ordermethod);
			while (($cat = $this->db->row(true,'cat_')))
			{
				$cat['app_name'] = $cat['appname'];
				$this->cache_id2cat_data[$cat['id']] = $cat;
				
				$cats[] = $cat;
				$parents[] = $cat['id'];
			}
			while (count($parents))
			{
				$sub_select = ' AND cat_parent IN (' . implode(',',$parents) . ')';
				$parents = $children = array();
				$this->db->select($this->table,'*',$where . $sub_select,__LINE__,__FILE__,false, $ordermethod);
				while (($cat = $this->db->row(true,'cat_')))
				{
					$cat['app_name'] = $cat['appname'];
					$this->cache_id2cat_data[$cat['id']] = $cat;
					
					$parents[] = $cat['id'];
					$children[$cat['parent']][] = $cat;
				}
				// sort the cats into the mains
				if (count($children))
				{
					$cats2 = $cats;
					$cats = array();
					foreach($cats2 as $cat)
					{
						$cats[] = $cat;
						if (isset($children[$cat['id']]))
						{
							foreach($children[$cat['id']] as $child)
							{
								$cats[] = $child;
							}
						}
					}
				}
			}
			$this->total_records = count($cats);
			
			if ($limit)
			{
				return array_slice($cats,(int)$start,$GLOBALS['egw_info']['user']['preferences']['common']['maxmatchs']);
			}
			return $cats;
		}

		/**
		 * read a single category
		 *
		 * We use a shared cache together with id2name
		 *
		 * @param int $id id of category
		 * @return array/boolean array with one array of cat-data or false if cat not found
		 */
		function return_single($id = '')
		{
			if (!isset($this->cache_id2cat_data[$id]))
			{
				$this->db->select($this->table,'*',array('cat_id' => $id),__LINE__,__FILE__);
	
				if(($cat = $this->db->row(true,'cat_')))
				{
					$cat['app_name'] = $cat['appname'];
				}
				$this->cache_id2cat_data[$id] = $cat;
			}
			return $this->cache_id2cat_data[$id] ? array($this->cache_id2cat_data[$id]) : false;
		}

		/**
		 * return into a select box, list or other formats
		 *
		 * @param string/array $format string 'select' or 'list', or array with all params
		 * @param string $type='' subs or mains
		 * @param int/array $selected - cat_id or array with cat_id values
		 * @param boolean $globals True or False, includes the global egroupware categories or not
		 * @return string populated with categories
		 */
		function formatted_list($format,$type='',$selected = '',$globals = False,$site_link = 'site')
		{
			if(is_array($format))
			{
				$type = ($format['type']?$format['type']:'all');
				$selected = (isset($format['selected'])?$format['selected']:'');
				$self = (isset($format['self'])?$format['self']:'');
				$globals = (isset($format['globals'])?$format['globals']:True);
				$site_link = (isset($format['site_link'])?$format['site_link']:'site');
				$format = $format['format'] ? $format['format'] : 'select';
			}

			if (!is_array($selected))
			{
				$selected = explode(',',$selected);
			}

			if ($type != 'all')
			{
				$cats = $this->return_array($type,0,False,'','','',$globals);
			}
			else
			{
				$cats = $this->return_sorted_array(0,False,'','','',$globals);
			}

			if (!$cats) return '';

			if($self)
			{
				foreach($cats as $key => $cat)
				{
					if ($cat['id'] == $self)
					{
						unset($cats[$key]);
					}
				}
			}

			switch ($format)
			{
				case 'select':
					foreach($cats as $cat)
					{
						$s .= '<option value="' . $cat['id'] . '"';
						if (in_array($cat['id'],$selected))
						{
							$s .= ' selected="selected"';
						}
						$s .= '>'.str_repeat('&nbsp;',$cat['level']);
						$s .= $GLOBALS['egw']->strip_html($cat['name']);
						if ($cat['app_name'] == 'phpgw' || $cat['owner'] == '-1')
						{
							$s .= ' &#9830;';
						}
						$s .= '</option>' . "\n";
					}
					break;
					
				case 'list':
					$space = '&nbsp;&nbsp;';

					$s  = '<table border="0" cellpadding="2" cellspacing="2">' . "\n";

					foreach($cats as $cat)
					{
						$image_set = '&nbsp;';

						if (in_array($cat['id'],$selected))
						{
							$image_set = '<img src="' . EGW_IMAGES_DIR . '/roter_pfeil.gif">';
						}
						if (($cat['level'] == 0) && !in_array($cat['id'],$selected))
						{
							$image_set = '<img src="' . EGW_IMAGES_DIR . '/grauer_pfeil.gif">';
						}
						$space_set = str_repeat($space,$cat['level']);

						$s .= '<tr>' . "\n";
						$s .= '<td width="8">' . $image_set . '</td>' . "\n";
						$s .= '<td>' . $space_set . '<a href="' . $GLOBALS['egw']->link($site_link,'cat_id=' . $cat['id']) . '">'
							. $GLOBALS['egw']->strip_html($cat['name'])
							. '</a></td>' . "\n"
							. '</tr>' . "\n";
					}
					$s .= '</table>' . "\n";
					break;
			}
			return $s;
		}

		/**
		 * add a category
		 *
		 * @param array $value cat-data
		 * @return int new cat-id
		 */
		function add($values)
		{
			if ((int)$values['parent'] > 0)
			{
				$values['level'] = $this->id2name($values['parent'],'level')+1;
				$values['main'] = $this->id2name($values['parent'],'main');
			}

			$values = array_merge(
				array(
					'app_name'	=> $this->app_name,
					'access'	=> 'public',
				),
				$values);

			$this->db->insert($this->table,array(
				'cat_parent'  => $values['parent'],
				'cat_owner'   => $this->account_id,
				'cat_access'  => $values['access'],
				'cat_appname' => $values['app_name'],
				'cat_name'    => $values['name'],
				'cat_description' => $values['descr'],
				'cat_data'    => $values['data'],
				'cat_main'    => $values['main'],
				'cat_level'   => $values['level'], 
				'last_mod'    => time(),
			),(int)$values['id'] > 0 ? array('cat_id' =>  $values['id']) : array(),__LINE__,__FILE__);

			$id = (int)$values['id'] > 0 ? (int)$values['id'] : $this->db->get_last_insert_id($this->table,'cat_id');

			if (!(int)$values['parent'])
			{
				$this->db->update($this->table,array('cat_main' => $id),array('cat_id' => $id),__LINE__,__FILE__);
			}
			return $id;
		}

		/**
		 * delete a category
		 *
		 * @param int $cat_id category id
		 * @param boolean $drop_subs=false if true delete sub-cats too
		 * @param boolean $modify_subs=false if true make the subs owned by the parent of $cat_id
		 */
		function delete($cat_id, $drop_subs = False, $modify_subs = False)
		{
			if ($modify_subs)
			{
				$new_parent = $this->id2name($cat_id,'parent');

				foreach ((array) $this->return_sorted_array('',False,'','','',False, $cat_id) as $cat)
				{
					if ($cat['level'] == 1)
					{
						$this->db->update($this->table,array(
							'cat_level'  => 0, 
							'cat_parent' => 0, 
							'cat_main'   => $cat['id'],
						),array(
							'cat_id' => $cat['id'],
							'cat_appname' => $this->app_name,
						),__LINE__,__FILE__);

						$new_main = $cat['id'];
					}
					else
					{
						$update = array('cat_level' => $cat['level']-1);
						
						if ($new_main) $update['cat_main'] = $new_main;

						if ($cat['parent'] == $cat_id) $update['cat_parent'] = $new_parent;

						$this->db->update($this->table,$update,array(
							'cat_id' => $cat['id'],
							'cat_appname' => $this->app_name,
						),__LINE__,__FILE__);
					}
				}
			}
			if ($drop_subs)
			{
				$where = array('cat_id='.(int)$cat_id.' OR cat_parent='.(int)$cat_id.' OR cat_main='.(int)$cat_id);
			}
			else
			{
				$where['cat_id'] = $cat_id;
			}
			$where['cat_appname'] = $this->app_name;

			$this->db->delete($this->table,$where,__LINE__,__FILE__);
		}

		/**
		 * edit / update a category
		 *
		 * @param array $values array with cat-data (it need to be complete, as everything get's written)
		 * @return int cat-id
		 */
		function edit($values)
		{
			if (isset($values['old_parent']) && (int)$values['old_parent'] != (int)$values['parent'])
			{
				$this->delete($values['id'],False,True);

				return $this->add($values);
			}
			else
			{
				if ($values['parent'] > 0)
				{
					$values['main']  = $this->id2name($values['parent'],'main');
					$values['level'] = $this->id2name($values['parent'],'level') + 1;
				}
				else
				{
					$values['main']  = $values['id'];
					$values['level'] = 0;
				}
			}
			$this->db->update($this->table,array(
				'cat_name' => $values['name'],
				'cat_description' => $values['descr'],
				'cat_data' => $values['data'],
				'cat_parent' => $values['parent'],
				'cat_access' => $values['access'],
				'cat_main' => $values['main'],
				'cat_level' => $values['level'],
				'last_mod' => time(),
			),array(
				'cat_id' => $values['id'],
				'cat_appname' => $this->app_name,
			),__LINE__,__FILE__);
			
			return (int)$values['id'];
		}

		/**
		 * return category id for a given name
		 * 
		 * Cat's with the given name are returned in this order:
		 * - personal cats first
		 * - then application global categories
		 * - global categories
		 * - cat's of other user
		 *
		 * @param string $cat_name cat-name
		 * @return int cat-id or 0 if not found
		 */
		function name2id($cat_name,$strip)
		{
			static $cache = array();	// a litle bit of caching
			
			if (isset($cache[$cat_name])) return $cache[$cat_name];

			if ($strip === true)
			{
				$strip = 'X-';
			}

			$cats = array($cat_name);
			if (isset($strip) && strncmp($strip, $cat_name, strlen($strip)) == 0)
			{
				$stripped_cat_name = substr($cat_name, strlen($strip));
				if (isset($cache[$stripped_cat_name]))
				{
					$cache[$cat_name] = $cache[$stripped_cat_name];
					return $cache[$stripped_cat_name];
				}
				$cats[] = $stripped_cat_name;
			}
				

			$this->db->select($this->table,array('cat_name','cat_id'),array(
				'cat_name' => $cats,
				'cat_appname' => array($this->app_name, 'phpgw'),
			),__LINE__,__FILE__,0,
			"ORDER BY cat_name!='$cat_name',(CASE cat_owner WHEN ".(int)$this->account_id." THEN 1 WHEN -1 THEN 2 ELSE 3 END),cat_appname='phpgw'",
			false,1);

			if (!$this->db->next_record()) return 0;	// cat not found, dont cache it, as it might be created in this request

			return $cache[$this->db->f('cat_name')] = (int) $this->db->f('cat_id');
		}

		/**
		 * return category information for a given id
		 *
		 * We use a shared cache together with return_single
		 *
		 * @param int $cat_id=0 cat-id
		 * @param string $item='name requested information
		 * @return string information or '--' if not found or !$cat_id
		 */
		function id2name($cat_id=0, $item='name')
		{
			if(!$cat_id) return '--';
			
			if (!isset($this->cache_id2cat_data[$cat_id])) $this->return_single($cat_id);
			
			if (!$item) $item = 'parent';

			if ($this->cache_id2cat_data[$cat_id][$item])
			{
				return $this->cache_id2cat_data[$cat_id][$item];
			}
			elseif ($item == 'name')
			{
				return '--';
			}
			return null;
		}

		/**
		 * return category name for a given id
		 *
		 * @deprecated This is only a temp wrapper, use id2name() to keep things matching across the board. (jengo)
		 * @param int $cat_id
		 * @return string cat_name category name
		 */
		function return_name($cat_id)
		{
			return $this->id2name($cat_id);
		}

		/**
		 * check if a category id and/or name exists, if id AND name are given the check is for a category with same name and different id (!)
		 *
		 * @param string $type subs or mains
		 * @param string $cat_name='' category name
		 * @param int $cat_id=0 category id
		 * @param int $parent=0 category id of parent
		 * @return int/boolean cat_id or false if cat not exists
		 */
		function exists($type,$cat_name = '',$cat_id = 0,$parent = 0)
		{
			static $cache = array();	// a litle bit of caching

			if (isset($cache[$type][$cat_name][$cat_id])) return $cache[$type][$cat_name][$cat_id];
 
			$where = array($this->filter($type));

			if ($cat_name)
			{
				$where['cat_name'] = $cat_name;
				
				if ($cat_id) $where[] = 'cat_id != '.(int)$cat_id;
			}
			elseif ($cat_id)
			{
				$where['cat_id'] = $cat_id;
			}
			if ($parent) $where['cat_parent'] = $parent;

			$this->db->select($this->table,'cat_id',$where,__LINE__,__FILE__);

			return $cache[$type][$cat_name][$cat_id] = $this->db->next_record() && $this->db->f(0);
		}
		
		/**
		 * Change the owner of all cats owned by $owner to $to OR deletes them if !$to
		 *
		 * @param int $owner owner or the cats to delete or change
		 * @param int $to=0 new owner or 0 to delete the cats
		 * @param string $app='' if given only cats matching $app are modifed/deleted
		 */
		function change_owner($owner,$to=0,$app='')
		{
			$where = array('cat_owner' => $owner);
			
			if ($app) $where['cat_appname'] = $app;

			if ((int)$to)
			{
				$this->db->update($this->table,array('cat_owner' => $to),$where,__LINE__,__FILE__);
			}
			else
			{
				$this->db->delete($this->table,$where,__LINE__,__FILE__);
			}
		}
	}