<?php
// CVS: $Id: tikilib.php 19519 2009-06-13 09:32:37Z nyloth $
//this script may only be included - so its better to die if called directly.
if (strpos($_SERVER["SCRIPT_NAME"],basename(__FILE__)) !== false) {
	header("location: index.php");
	exit;
}

require_once('lib/tikidblib.php');
require_once('lib/init/tra.php');
if ( ! defined('DATE_FORMAT_UNIXTIME') ) define('DATE_FORMAT_UNIXTIME', 5);

//performance collecting:
//require_once ('lib/tikidblib-debug.php');

// This class is included by all the Tiki php scripts, so it's important
// to keep the class as small as possible to improve performance.
// What goes in this class:
// * generic functions that MANY scripts must use
// * shared functions (marked as /*shared*/) are functions that are
//   called from Tiki modules.

class TikiLib extends TikiDB {
	var $buffer;
	var $flag;
	var $parser;
	var $pre_handlers = array();
	var $pos_handlers = array();
	var $postedit_handlers = array();
	var $usergroups_cache = array();

	var $num_queries = 0;
	var $now;

	var $cache_page_info;
	var $sessionId = null;

	// Constructor receiving a PEAR::Db database object.
	function TikiLib($db) {
		if (!$db) {
			die ("Invalid db object passed to TikiLib constructor");
		}

		$this->TikiDB($db);
		$this->now = (int) date('U');
	}


	/*shared*/
	function httprequest($url, $reqmethod = "GET") {
		global $prefs;
		// test url :
		// rewrite url if sloppy # added a case for https urls
		if ( (substr($url,0,7) <> "http://") and
				(substr($url,0,8) <> "https://")
			 ) {
			$url = "http://" . $url;
		}
		// (cdx) params for HTTP_Request.
		// The timeout may be defined by a DEFINE("HTTP_TIMEOUT",5) in some file...
		$aSettingsRequest=array("method"=>$reqmethod,"timeout"=>5);

		if (substr_count($url, "/") < 3) {
			$url .= "/";
		}

		//handle url embedded user:pass
		$spliturl=parse_url($url);
		if(!empty($spliturl['user']) && !empty($spliturl['pass'])) {
			$aSettingsRequest["pass"]=$spliturl['pass'];
			$aSettingsRequest["user"]=$spliturl['user'];
			$url=str_replace($spliturl['user'].":".$spliturl['pass']."@", null, $url);
		}

		if (!preg_match("/^[-_a-zA-Z0-9:\/\.\?&;=\+~%,]*$/",$url)) return false;

		// Proxy settings
		if ($prefs['use_proxy'] == 'y') {
			$aSettingsRequest["proxy_host"]=$prefs['proxy_host'];
			$aSettingsRequest["proxy_port"]=$prefs['proxy_port'];
		}
		include_once ('lib/pear/HTTP/Request.php');
		$req = &new HTTP_Request($url, $aSettingsRequest);
		$data="";
		// (cdx) return false when can't connect
		// I prefer throw a PEAR_Error. You decide ;)
		if (PEAR::isError($oError=$req->sendRequest())) {
			return(false);
			/* Please people, don't use fopen. It's potentially unsafe
			 * because if any form does not check the url, you can upload
			 * /etc/passwd and other file from the local host.
			 * it's also more safe to use httprequest, because the admin can set
			 * a proxy so that noone can upload files in tiki from behind a
			 * firewall (safes the net where tiki runs in).
			 $fp = fopen($url, "r");

			 if ($fp) {
			 $data = '';
			 while(!feof($fp)) {
			 $data .= fread($fp,4096);
			 }
			 fclose ($fp);
			 }
			 if ($data =="") return false;
			 */
		} else {
			$data = $req->getResponseBody();
		}
		return $data;
	}

	/*shared*/
	function get_dsn_by_name($name) {
		if ($name == 'local') {
			return true;
		}
		return $this->getOne("select `dsn`  from `tiki_dsn` where `name`='$name'");
	}

	/* convert data to iso-8601 format */
	// used for atom export. date() use is okay, as we use server timezone in such case
	function iso_8601 ($timestamp) {
		$main_date = $this->date_format("%Y-%m-%d\T%H:%M:%S", $timestamp);

		$tz = $this->date("%O", $timestamp);

		$return = $main_date . $tz;

		return $return;
	}

	/*shared*/
  // Returns IP address or if 127.0.0.1 looks for a proxy address
	function get_ip_address() {
		$ip = "127.0.0.1";  // assume localhost
    if (isset($_SERVER["REMOTE_ADDR"])) {
      $ip = $_SERVER["REMOTE_ADDR"];
    }
    if ($ip == "127.0.0.1") {
      if (isset($_SERVER["HTTP_X_FORWARDED_FOR"])) {
        $fwips = explode(',', $_SERVER["HTTP_X_FORWARDED_FOR"]);
        $ip = $fwips[0];  // There may be several but using first IP
        // This might need improvement for configurations with multiple proxies.
      }
    }
    return $ip;
  }

	/*shared*/
	function check_rules($user, $section) {
		// Admin is never banned
		if ($user == 'admin')
			return false;

		$ips = $this->get_ip_address();
		$query = "select tb.`message`,tb.`user`,tb.`ip1`,tb.`ip2`,tb.`ip3`,tb.`ip4`,tb.`mode` from `tiki_banning` tb, `tiki_banning_sections` tbs where tbs.`banId`=tb.`banId` and tbs.`section`=? and ( (tb.`use_dates` = ?) or (tb.`date_from` <= ? and tb.`date_to` >= ?))";
		$result = $this->query($query,array($section,'n',(int)$this->now,(int)$this->now));

		while ($res = $result->fetchRow()) {
			if (!$res['message']) {
				$res['message'] = tra('You are banned from'). ':' . $section;
			}

			if ($user && $res['mode'] == 'user') {
				// check user
				$pattern = '/' . $res['user'] . '/';

				if (preg_match($pattern, $user)) {
					return $res['message'];
				}
			} else {
				// check ip
				if (count($ips) == 4) {
					if (($ips[0] == $res['ip1'] || $res['ip1'] == '*') && ($ips[1] == $res['ip2'] || $res['ip2'] == '*')
							&& ($ips[2] == $res['ip3'] || $res['ip3'] == '*') && ($ips[3] == $res['ip4'] || $res['ip4'] == '*')) {
						return $res['message'];
					}
				}
			}
		}
		return false;
	}

	/*shared*/
	function replace_note($user, $noteId, $name, $data, $parse_mode = null) {
		$size = strlen($data);

		if ($noteId) {
			$query = "update `tiki_user_notes` set `name` = ?, `data` = ?, `size` = ?, `lastModif` = ?, `parse_mode` = ?  where `user`=? and `noteId`=?";
			$this->query($query,array($name,$data,(int)$size,(int)$this->now,$parse_mode,$user,(int)$noteId));
		} else {
			$query = "insert into `tiki_user_notes`(`user`,`noteId`,`name`,`data`,`created`,`lastModif`,`size`,`parse_mode`) values(?,?,?,?,?,?,?,?)";
			$this->query($query,array($user,(int)$noteId,$name,$data,(int)$this->now,(int)$this->now,(int)$size,$parse_mode));
			$noteId = $this->getOne( "select max(`noteId`) from `tiki_user_notes` where `user`=? and `name`=? and `created`=?",array($user,$name,(int)$this->now));
		}

		return $noteId;
	}

	function list_watches($offset, $maxRecords, $sort_mode, $find) {
		$mid = '';
		$mid2 = '';
		$bindvars = $bindvars1 = $bindvars2 = array();
		if ($find) {	
			$mid = ' where `event` like ? or `email` like ? or `user` like ? or `object` like ? or `type` like ?';
			$mid2 = ' where `event` like ? or `group` like ? or `object` like ? or `type` like ?';
			$bindvars1 = array("%$find%", "%$find%", "%$find%", "%$find%", "%$find%");
			$bindvars2 = array("%$find%", "%$find%", "%$find%", "%$find%");
		}
		$query = "select 'user' as watchtype, `watchId`, `user`, `event`, `object`, `title`, `type`, `url`, `email` from `tiki_user_watches` $mid 
			UNION ALL
				select 'group' as watchtype, `watchId`, `group`, `event`, `object`, `title`, `type`, `url`, '' as `email`
				from `tiki_group_watches` $mid2
			order by ".$this->convert_sortmode($sort_mode);
		$query_cant = 'select count(*) from `tiki_user_watches` '.$mid;
		$query_cant2 = 'select count(*) from `tiki_group_watches` '. $mid2;
		$result = $this->query($query, array_merge($bindvars1, $bindvars2), $maxRecords, $offset);
		$cant = $this->getOne($query_cant, $bindvars1) + $this->getOne($query_cant2, $bindvars2);
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}
		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval; 
	}


	/*shared*/
	function add_user_watch($user, $event, $object, $type, $title, $url, $email='') {

		if (empty($email)) {
			global $userlib;
			$email = $userlib->get_user_email($user);
		}
		$this->remove_user_watch( $user, $event, $object, $type );
		$query = "insert into `tiki_user_watches`(`user`,`event`,`object`,`email`,`type`,`title`,`url`) ";
		$query.= "values(?,?,?,?,?,?,?)";
		$this->query($query,array($user,$event,$object,$email,$type,$title,$url));
		return true;
	}

	function add_group_watch($group, $event, $object, $type, $title, $url) {

		$this->remove_group_watch( $group, $event, $object, $type );
		$query = "insert into `tiki_group_watches`(`group`,`event`,`object`,`type`,`title`,`url`) ";
		$query.= "values(?,?,?,?,?,?)";
		$this->query($query,array($group,$event,$object,$type,$title,$url));
		return true;
	}

	/*shared*/
	function remove_user_watch_by_id($id) {
		$query = "delete from `tiki_user_watches` where `watchId`=?";
		$this->query($query,array($id));
	}

	function remove_group_watch_by_id($id) {
		$query = "delete from `tiki_group_watches` where `watchId`=?";
		$this->query($query,array($id));
	}

	/*shared*/
	function remove_user_watch($user, $event, $object, $type = 'wiki page') {
		$query = "delete from `tiki_user_watches` where ".$this->convert_binary()." `user`=? and `event`=? and `object`=? and `type` = ?";
		$this->query($query,array($user,$event,$object,$type));
	}

	function remove_group_watch($group, $event, $object, $type = 'wiki page') {
		$query = "delete from `tiki_group_watches` where ".$this->convert_binary()." `group`=? and `event`=? and `object`=? and `type` = ?";
		$this->query($query,array($group,$event,$object,$type));
	}

	/*shared*/
	function get_user_watches($user, $event = '') {
		$mid = '';
		$bindvars=array($user);
		if ($event) {
			$mid = " and `event`=? ";
			$bindvars[]=$event;
		}

		$query = "select * from `tiki_user_watches` where ".$this->convert_binary()." `user`=? $mid";
		$result = $this->query($query,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}
		return $ret;
	}

	/*shared*/
	function get_watches_events() {
		$query = "select distinct `event` from `tiki_user_watches`";
		$result = $this->query($query,array());
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res['event'];
		}
		return $ret;
	}

	/*shared*/
	function user_watches($user, $event, $object, $type) {
		if (is_array($event)) {
			$query = "select `event` from `tiki_user_watches` where `user`=? and `object`=? and `type`=? and `event` in (".implode(',',array_fill(0, count($event),'?')).")";
			$result = $this->query($query, array_merge(array($user,$object,$type),$event));
			if (!$result->numRows()) {
				return false;
			}
			$ret = array();
			while ($res = $result->fetchRow()) {
				$ret[] = $res['event'];
			}
			return $ret;
		} else {
			$query = "select count(*) from `tiki_user_watches` where `user`=? and `object`=? and `type`=? and `event`=? ";
			return $this->getOne($query,array($user,$object,$type,$event));
		}
	}

	function get_groups_watching( $type, $object, $event ) {
		$result = $this->query( 'SELECT `group` FROM tiki_group_watches WHERE object = ? AND type = ? AND event = ?',
			array( $object, $type, $event ) );

		$groups = array();
		while( $row = $result->fetchRow() ) {
			$groups[] = $row['group'];
		}
		return $groups;
	}

	/*shared*/
	function get_user_event_watches($user, $event, $object) {
		$query = "select * from `tiki_user_watches` where `user`=? and `event`=? and `object`=?";
		$result = $this->query($query,array($user,$event,$object));
		if (!$result->numRows())
			return false;
		$res = $result->fetchRow();
		return $res;
	}

	/*shared*/
	function get_event_watches($event, $object, $info=null) {
		global $prefs, $dbTiki;
		$ret = array();

		$where = array();
		$mid = '';
		if( $prefs['feature_user_watches_translations'] == 'y'  && $event == 'wiki_page_changed') {
			// If $prefs['feature_user_watches_translations'] is turned on, also look for
			// pages in a translation group.
			$mid = "`event`=?";
			$bindvars[] = $event;
			global $multilinguallib;
			include_once("lib/multilingual/multilinguallib.php");
			$page_info = $this->get_page_info( $object );
			$pages = $multilinguallib->getTranslations('wiki page', $page_info['page_id'], $object, '' );
			foreach ($pages as $page) {
				$mids[] = "`object`=?";
				$bindvars[] = $page['objName'];
			}
			$mid .= 'and ('.implode(' or ', $mids).')';
		} elseif ( $prefs['feature_user_watches_translations'] == 'y' 
			&& $event == 'wiki_page_created' ) {
			$page_info = $this->get_page_info( $object );
			$mid = "`event`='wiki_page_in_lang_created' and `object`=? and `type`='lang'";
			$bindvars[] = $page_info['lang'];
		} elseif ($event == 'forum_post_topic') {
			$mid = "(`event`=? or `event`=?) and `object`=?";
			$bindvars[] = $event;
			$bindvars[] = 'forum_post_topic_and_thread';
			$bindvars[] = $object;
		} elseif ($event == 'forum_post_thread') {
			$mid = "(`event`=? and `object`=?) or ( `event`=? and `object`=?)";
			$bindvars[] = $event;
			$bindvars[] = $object;
			$bindvars[] = 'forum_post_topic_and_thread';
			$forumId = $info['forumId'];
			$bindvars[] = $forumId;
		} else {
			$mid = "`event`=? and `object`=?";
			$bindvars[] = $event;
			$bindvars[] = $object;
		}

		// Obtain the list of watches on event/object for user watches
		// Union obtains all users member of groups being watched
		// Distinct union insures there are no duplicates
		$query = "select tuw.*, tup1.`value` as language, tup2.`value` as mailCharset from `tiki_user_watches` tuw 
			left join `tiki_user_preferences` tup1 on (tup1.`user`=tuw.`user` and tup1.`prefName`='language') 
			left join `tiki_user_preferences` tup2 on (tup2.`user`=tuw.`user` and tup2.`prefName`='mailCharset')
			where $mid
			UNION DISTINCT
			select tgw.watchId, uu.login, tgw.event, tgw.object, tgw.title, tgw.type, tgw.url, uu.email,
				tup1.value as language, tup2.value as mailCharset
			from
				tiki_group_watches tgw
				inner join users_usergroups ug on tgw.`group` = ug.groupName
				inner join users_users uu on ug.userId = uu.userId and uu.email is not null and uu.email <> ''
				left join `tiki_user_preferences` tup1 on (tup1.`user`=uu.`login` and tup1.`prefName`='language') 
				left join `tiki_user_preferences` tup2 on (tup2.`user`=uu.`login` and tup2.`prefName`='mailCharset')
				where $mid
				";

		$result = $this->query($query,array_merge( $bindvars, $bindvars ));

		if ($result->numRows()) {

			while ($res = $result->fetchRow()) {
				switch($event) {
				case 'wiki_page_changed':
				case 'wiki_page_created':
					$res['perm']=($this->user_has_perm_on_object($res['user'],$object,'wiki page','tiki_p_view') ||
							$this->user_has_perm_on_object($res['user'],$object,'wiki page','tiki_p_admin_wiki'));
					break;
				case 'tracker_modified':
					$res['perm'] = $this->user_has_perm_on_object($res['user'],$object,'tracker','tiki_p_view_trackers');
					break;
				case 'tracker_item_modified':
					$res['perm'] = $this->user_has_perm_on_object($res['user'],$info['trackerId'],'tracker','tiki_p_view_trackers');
					break;
				case 'blog_post':
					$res['perm']=($this->user_has_perm_on_object($res['user'],$object,'blog','tiki_p_read_blog') ||
							$this->user_has_perm_on_object($res['user'],$object,'blog','tiki_p_admin_blog'));
					break;
				case 'map_changed':
					$res['perm']=$this->user_has_perm_on_object($res['user'],$object,'map','tiki_p_map_view');
					break;
				case 'forum_post_topic':
					$res['perm']=($this->user_has_perm_on_object($res['user'],$object,'forum','tiki_p_forum_read') ||
							$this->user_has_perm_on_object($res['user'],$object,'forum','tiki_p_admin_forum'));
					break;
				case 'forum_post_thread':
					$res['perm']=($this->user_has_perm_on_object($res['user'],$forumId,'forum','tiki_p_forum_read') ||
							$this->user_has_perm_on_object($res['user'],$object,'forum','tiki_p_admin_forum'));
					break;
				case 'file_gallery_changed':
					$res['perm']=($this->user_has_perm_on_object($res['user'],$object,'file gallery','tiki_p_view_file_gallery') ||
							$this->user_has_perm_on_object($res['user'],$object,'file gallery','tiki_p_download_files'));                    	
					break;
				case 'article_submitted':
				case 'topic_article_created':
				case 'article_edited':
				case 'topic_article_edited':
				case 'article_deleted':
				case 'topic_article_deleted':
					global $userlib, $topicId;
					$res['perm']= ($userlib->user_has_permission($res['user'],'tiki_p_read_article') &&
							(empty($topicId) || $this->user_has_perm_on_object($res['user'],$topicId,'topic','tiki_p_topic_read')));
					break;
				case 'calendar_changed':
					$res['perm']= $this->user_has_perm_on_object($res['user'],$object,'calendar','tiki_p_view_calendar');
					break;
				case 'image_gallery_changed':
					$res['perm'] = $this->user_has_perm_on_object($res['user'],$object,'image gallery','tiki_p_view_image_gallery');
					break;
				case 'category_changed':
					global $categlib;
					$res['perm']= $categlib->has_view_permission($res['user'],$object);
					break;				
				default:
					// for security we deny all others.
					$res['perm']=FALSE;
					break;
				}

				if($res['perm']) {
					$ret[] = $res;
				}
			}			
		}

		// Also include users that are watching a category to which this object belongs to.
		if ( $event != 'category_changed' )  {    	
			if ($prefs['feature_categories'] == 'y') {
				global $categlib; require_once('lib/categories/categlib.php');
				$objectType="";
				switch($event) {
				case 'wiki_page_changed': $objectType="wiki page"; break;
				case 'blog_post': $objectType="blog"; break;
				case 'map_changed': $objectType="map_changed"; break;
				case 'forum_post_topic': $objectType="forum"; break;
				case 'forum_post_thread': $objectType="forum"; break;
				case 'file_gallery_changed': $objectType="file gallery"; break;
				case 'article_submitted': $objectType="topic"; break;			
				case 'image_gallery_changed': $objectType="image gallery"; break;
				case 'tracker_modified': $objectType="tracker"; break; 	
				case 'tracker_item_modified': $objectType="tracker"; break;
				case 'calendar_changed': $objectType="calendar"; break;
				}
				if ( $objectType != "") {

					// If a forum post was changed, check the categories of the forum.  
					if ( $event == "forum_post_thread" ) {
						include_once ("lib/commentslib.php");
						global $commentslib;            	
						$object = $commentslib->get_comment_forum_id($object);
					}

					// If a tracker item was changed, check the categories of the tracker.  
					if ( $event == "tracker_item_modified" ) {
						include_once ("lib/trackers/trackerlib.php");
						global $trklib;            	
						$object = $trklib->get_tracker_for_item($object);
					}

					$categs = $categlib->get_object_categories($objectType, $object);

					foreach ($categs as $category) {           		                 
						$watching_users = $this->get_event_watches('category_changed', $category);

						// Add all users that are not already included
						foreach ($watching_users as $wu) {
							$included = false;
							foreach ($ret as $item) {
								if ($item['user'] == $wu['user']) {
									$included = true;
								}
							}
							if (!$included) {
								$ret[] = $wu;
							}
						}
					}
				}
			}
		}
		return $ret;
	}

	/*shared*/
	function dir_stats() {
		$aux = array();
		$aux["valid"] = $this->getOne("select count(*) from `tiki_directory_sites` where `isValid`=?",array('y'));
		$aux["invalid"] = $this->getOne("select count(*) from `tiki_directory_sites` where `isValid`=?",array('n'));
		$aux["categs"] = $this->getOne("select count(*) from `tiki_directory_categories`",array());
		$aux["searches"] = $this->getOne("select sum(`hits`) from `tiki_directory_search`",array());
		$aux["visits"] = $this->getOne("select sum(`hits`) from `tiki_directory_sites`",array());
		return $aux;
	}

	/*shared*/
	function dir_list_all_valid_sites2($offset, $maxRecords, $sort_mode, $find) {

		if ($find) {
			$mid = " where `isValid`=? and (`name` like ? or `description` like ?)";
			$bindvars=array('y','%'.$find.'%','%'.$find.'%');
		} else {
			$mid = " where `isValid`=? ";
			$bindvars=array('y');
		}

		$query = "select * from `tiki_directory_sites` $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_directory_sites` $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}

		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	/*shared*/
	function get_directory($categId) {
		$query = "select * from `tiki_directory_categories` where `categId`=?";
		$result = $this->query($query,array($categId));
		if (!$result->numRows()) return false;
		$res = $result->fetchRow();
		return $res;
	}

	/*shared*/
	function user_unread_messages($user) {
		$cant = $this->getOne("select count(*) from `messu_messages` where `user`=? and `isRead`=?",array($user,'n'));
		return $cant;
	}

	/*shared*/
	function get_online_users() {
		if ( ! isset($this->online_users_cache) ) {
			$this->update_session();
			$this->online_users_cache=array();
			$query = "select s.`user`, p.`value` as 'realName', `timestamp`, `tikihost` from `tiki_sessions` s left join `tiki_user_preferences` p on s.`user`<>? and s.`user` = p.`user` and p.`prefName` = 'realName' where s.`user` is not null;";
			$result = $this->query($query,array(''));
			$ret = array();
			while ($res = $result->fetchRow()) {
				$res['user_information'] = $this->get_user_preference($res['user'], 'user_information', 'public');
				$res['allowMsgs'] = $this->get_user_preference($res['user'], 'allowMsgs', 'y');
				$this->online_users_cache[$res['user']] = $res;
			}
		}
		return $this->online_users_cache;
	}

	/*shared*/
	function is_user_online($whichuser) {
		if(!isset($this->online_users_cache)) {
			$this->get_online_users();
		}

		return(isset($this->online_users_cache[$whichuser]));
	}

	/*shared*/
	function get_user_items($user) {
		$items = array();

		$query = "select ttf.`trackerId`, tti.`itemId` from `tiki_tracker_fields` ttf, `tiki_tracker_items` tti, `tiki_tracker_item_fields` ttif";
		$query .= " where ttf.`fieldId`=ttif.`fieldId` and ttif.`itemId`=tti.`itemId` and `type`=? and tti.`status`=? and `value`=?";
		$result = $this->query($query,array('u','o',$user));
		$ret = array();

		while ($res = $result->fetchRow()) {
			if (!$this->user_has_perm_on_object($user, $res['trackerId'], 'tracker', 'tiki_p_view_trackers')) {
				continue;
			}
			$itemId = $res["itemId"];

			$trackerId = $res["trackerId"];
			// Now get the isMain field for this tracker
			$fieldId = $this->getOne("select `fieldId`  from `tiki_tracker_fields` ttf where `isMain`=? and `trackerId`=?",array('y',(int)$trackerId));
			// Now get the field value
			$value = $this->getOne("select `value`  from `tiki_tracker_item_fields` where `fieldId`=? and `itemId`=?",array((int)$fieldId,(int)$itemId));
			$tracker = $this->getOne("select `name`  from `tiki_trackers` where `trackerId`=?",array((int)$trackerId));
			$aux["trackerId"] = $trackerId;
			$aux["itemId"] = $itemId;
			$aux["value"] = $value;
			$aux["name"] = $tracker;

			if (!in_array($itemId, $items)) {
				$ret[] = $aux;
				$items[] = $itemId;
			}
		}

		$groups = $this->get_user_groups($user);

		foreach ($groups as $group) {
			$query = "select ttf.`trackerId`, tti.`itemId` from `tiki_tracker_fields` ttf, `tiki_tracker_items` tti, `tiki_tracker_item_fields` ttif ";
			$query .= " where ttf.`fieldId`=ttif.`fieldId` and ttif.`itemId`=tti.`itemId` and `type`=? and tti.`status`=? and `value`=?";
			$result = $this->query($query,array('g','o',$group));

			while ($res = $result->fetchRow()) {
				$itemId = $res["itemId"];

				$trackerId = $res["trackerId"];
				// Now get the isMain field for this tracker
				$fieldId = $this->getOne("select `fieldId`  from `tiki_tracker_fields` ttf where `isMain`=? and `trackerId`=?",array('y',(int)$trackerId));
				// Now get the field value
				$value = $this->getOne("select `value`  from `tiki_tracker_item_fields` where `fieldId`=? and `itemId`=?",array((int)$fieldId,(int)$itemId));
				$tracker = $this->getOne("select `name`  from `tiki_trackers` where `trackerId`=?",array((int)$trackerId));
				$aux["trackerId"] = $trackerId;
				$aux["itemId"] = $itemId;
				$aux["value"] = $value;
				$aux["name"] = $tracker;

				if (!in_array($itemId, $items)) {
					$ret[] = $aux;
					$items[] = $itemId;
				}
			}
		}
		return $ret;
	}

	/*shared*/
	function get_actual_content($fieldvalue) {
		$query = 'SELECT `data` FROM `tiki_programmed_content` WHERE `contentId`=? AND `publishDate`<=? ORDER BY `publishDate` DESC';
		$data = $this->getOne($query, array((int)$fieldvalue, $this->now));
		return $data;
	}

	function get_actual_content_by_label($fieldvalue) {
		$query = 'SELECT tpc.`data`'
			.' FROM `tiki_programmed_content` AS tpc, `tiki_content` AS tc'
			.' WHERE tpc.`contentId` = tc.`contentId` AND tc.`contentLabel`=? AND `publishDate`<=? ORDER BY `publishDate` DESC';
		$data = $this->getOne($query, array($fieldvalue, $this->now));
		return $data;
	}

	/*shared*/
	function get_quiz($quizId) {
		$query = "select * from `tiki_quizzes` where `quizId`=?";

		$result = $this->query($query,array((int) $quizId));

		if (!$result->numRows())
			return false;

		$res = $result->fetchRow();
		return $res;
	}

	function compute_quiz_stats() {
		$query = "select `quizId`  from `tiki_user_quizzes`";

		$result = $this->query($query,array());

		while ($res = $result->fetchRow()) {
			$quizId = $res["quizId"];

			$quizName = $this->getOne("select `name`  from `tiki_quizzes` where `quizId`=?",array((int)$quizId));
			$timesTaken = $this->getOne("select count(*) from `tiki_user_quizzes` where `quizId`=?",array((int)$quizId));
			$avgpoints = $this->getOne("select avg(`points`) from `tiki_user_quizzes` where `quizId`=?",array((int)$quizId));
			$maxPoints = $this->getOne("select max(`maxPoints`) from `tiki_user_quizzes` where `quizId`=?",array((int)$quizId));
			$avgavg = ($maxPoints != 0) ? $avgpoints / $maxPoints * 100 : 0.0;
			$avgtime = $this->getOne("select avg(`timeTaken`) from `tiki_user_quizzes` where `quizId`=?",array((int)$quizId));
			$querydel = "delete from `tiki_quiz_stats_sum` where `quizId`=?";
			$resultdel = $this->query($querydel,array((int)$quizId),-1,-1,false);
			$query2 = "insert into `tiki_quiz_stats_sum`(`quizId`,`quizName`,`timesTaken`,`avgpoints`,`avgtime`,`avgavg`)
				values(?,?,?,?,?,?)";
			$result2 = $this->query($query2,array((int)$quizId,$quizName,(int)$timesTaken,(float)$avgpoints,$avgtime,$avgavg));
		}
	}

	function list_quizzes($offset, $maxRecords, $sort_mode = 'name_desc', $find) {
		$bindvars = array();
		$mid = '';
		if ($find) {
			$findesc = '%' . $find . '%';
			$mid = " where (`name` like ? or `description` like ?)";
			$bindvars = array($findesc, $findesc);
		}

		$query = "select `quizId` from `tiki_quizzes` $mid";
		$result = $this->query($query, $bindvars);
		$res = $ret = $retids = array();
		$n = 0;

		while ( $res = $result->fetchRow() ) {
			global $user;
			$objperm = $this->get_perm_object($res['quizId'], 'quizzes', '', false);

			if ( $objperm['tiki_p_take_quiz'] == 'y' ) {
				if ( ($maxRecords == -1) || (($n >= $offset) && ($n < ($offset + $maxRecords))) ) {
					$retids[] = $res['quizId'];
				}
				$n++;
			}
		}

		if ($n > 0) {
		  $query = 'select * from `tiki_quizzes` where quizId in (' . implode(',', $retids) . ') order by ' . $this->convert_sortmode($sort_mode);
		  $result = $this->query($query);
		  while ( $res = $result->fetchRow() ) {
				$res['questions'] = $this->getOne('select count(*) from `tiki_quiz_questions` where `quizId`=?', array( (int) $res['quizId'] ));
				$res['results'] = $this->getOne('select count(*) from `tiki_quiz_results` where `quizId`=?', array( (int) $res['quizId'] ));
				$ret[] = $res;
			}
		}
		$retval['data'] = $ret;
		$retval['cant'] = $n;
		return $retval;
	}

	/*shared*/
	function list_quiz_sum_stats($offset, $maxRecords, $sort_mode, $find) {
		$this->compute_quiz_stats();
		if ($find) {
			$findesc = '%' . $find . '%';
			$mid = ' where `quizName` like ? ';
			$bindvars=array($findesc);
		} else {
			$mid = "  ";
			$bindvars=array();
		}

		$query = "select * from `tiki_quiz_stats_sum` $mid order by " . $this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_quiz_stats_sum` $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}
		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	function get_tracker($trackerId) {
		$query = "select * from `tiki_trackers` where `trackerId`=?";
		$result = $this->query($query,array((int) $trackerId));
		if (!$result->numRows()) return false;
		$res = $result->fetchRow();
		return $res;
	}
	/*shared*/

	function list_trackers($offset=0, $maxRecords=-1, $sort_mode='name_asc', $find='') {
		if ($find) {
			$findesc = '%' . $find . '%';
			$mid = " where (`name` like ? or `description` like ?)";
			$bindvars=array($findesc,$findesc);
		} else {
			$mid = "";
			$bindvars=array();
		}
		$query = "select * from `tiki_trackers` $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_trackers` $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();
		$list = array();
		while ($res = $result->fetchRow()) {
			global $user;
			$add=$this->user_has_perm_on_object($user,$res['trackerId'],'tracker','tiki_p_view_trackers');
			if ($add) {
				$qu = "select count(*) from`tiki_tracker_items` where `trackerId`=? ";
				$res['items'] = $this->getOne($qu,array((int)$res['trackerId']));
				$ret[] = $res;
				$list[$res['trackerId']] = $res['name'];
			}
		}
		$retval = array();
		$retval["list"] = $list;
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	function list_surveys($offset, $maxRecords, $sort_mode, $find) {
		if ($find) {
		  $findesc = '%' . $find . '%';
		  $mid = " where (`name` like ? or `description` like ?)";
		  $bindvars=array($findesc, $findesc);
		} else {
		  $mid = '';
		  $bindvars=array();
		}

		$query = "select `surveyId` from `tiki_surveys` $mid";
		$result = $this->query($query, $bindvars);
		$res = $ret = $retids = array();
		$n = 0;

		while ( $res = $result->fetchRow() ) {
		  global $user;
		  $objperm = $this->get_perm_object( $res['surveyId'], 'survey', '', false );
		  if ( $objperm['tiki_p_take_survey'] ) {
			if ( ($maxRecords == -1) || (($n >= $offset) && ($n < ($offset + $maxRecords))) ) {
			  $retids[] = $res['surveyId'];
			}
			$n++;
		  }
		}
		if ( $n > 0 ) {
		  $query = 'select * from `tiki_surveys` where `surveyId` in (' . implode(',',$retids) . ') order by ' . $this->convert_sortmode($sort_mode);
		  $result = $this->query($query);
		  while ( $res = $result->fetchRow() ) {
			$res["questions"] = $this->getOne( 'select count(*) from `tiki_survey_questions` where `surveyId`=?', array( (int) $res['surveyId']) );
			$ret[] = $res;
		  }
		} 
		
		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $n;
		return $retval;
	}

	/* experimental shared */
	function get_item_id($trackerId,$fieldId,$value) {
		$query = "select ttif.`itemId` from `tiki_tracker_items` tti, `tiki_tracker_fields` ttf, `tiki_tracker_item_fields` ttif ";
		$query.= " where tti.`trackerId`=ttf.`trackerId` and ttif.`fieldId`=ttf.`fieldId` and ttf.`trackerId`=? and ttf.`fieldId`=? and ttif.`value`=?";
		$itemId = $this->getOne($query,array((int) $trackerId,(int)$fieldId,$value));
		return $itemId;
	}

	/*shared*/
	function list_tracker_items($trackerId, $offset, $maxRecords, $sort_mode, $fields, $status = '', $initial = '') {

		$filters = array();
		if ($fields) {
			$temp_max = count($fields["data"]);
			for ($i = 0; $i < $temp_max; $i++) {
				$fieldId = $fields["data"][$i]["fieldId"];
				$filters[$fieldId] = $fields["data"][$i];
			}
		}
		$csort_mode = '';
		if (substr($sort_mode,0,2) == "f_") {
			list($a,$csort_mode,$corder) = split('_',$sort_mode);
		}
		$trackerId = (int) $trackerId;
		if ($trackerId == -1) {
			$mid = " where 1=1 ";
			$bindvars = array();
		} else {
			$mid = " where tti.`trackerId`=? ";
			$bindvars = array($trackerId);
		}
		if ($status) {
			$mid.= " and tti.`status`=? ";
			$bindvars[] = $status;
		}
		if ($initial) {
			$mid.= "and ttif.`value` like ?";
			$bindvars[] = $initial.'%';
		}
		if (!$sort_mode) {
			$temp_max = count($fields["data"]);
			for ($i = 0; $i < $temp_max; $i++) {
				if ($fields['data'][$i]['isMain'] == 'y') {
					$csort_mode = $fields['data'][$i]['name'];
					break;
				}
			}
		}
		if ($csort_mode) {
			$sort_mode = $csort_mode."_desc";
			$bindvars[] = $csort_mode;
			$query = "select tti.*, ttif.`value` from `tiki_tracker_items` tti, `tiki_tracker_item_fields` ttif, `tiki_tracker_fields` ttf  ";
			$query.= " $mid and tti.`itemId`=ttif.`itemId` and ttf.`fieldId`=ttif.`fieldId` and ttf.`name`=? order by ttif.`value`";
			$query_cant = "select count(*) from `tiki_tracker_items` tti, `tiki_tracker_item_fields` ttif, `tiki_tracker_fields` ttf  ";
			$query_cant.= " $mid and tti.`itemId`=ttif.`itemId` and ttf.`fieldId`=ttif.`fieldId` and ttf.`name`=? ";
		} else {
			if (!$sort_mode) {
				$sort_mode = "lastModif_desc";
			}
			$query = "select * from `tiki_tracker_items` tti $mid order by ".$this->convert_sortmode($sort_mode);
			$query_cant = "select count(*) from `tiki_tracker_items` tti $mid ";
		}
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();
		while ($res = $result->fetchRow()) {
			$fields = array();
			$itid = $res["itemId"];
			$query2 = "select ttif.`fieldId`,`name`,`value`,`type`,`isTblVisible`,`isMain`,`position`
				from `tiki_tracker_item_fields` ttif, `tiki_tracker_fields` ttf
				where ttif.`fieldId`=ttf.`fieldId` and `itemId`=? order by `position` asc";
			$result2 = $this->query($query2,array((int) $res["itemId"]));
			$pass = true;
			$kx = "";
			while ($res2 = $result2->fetchRow()) {
				// Check if the field is visible!
				$fieldId = $res2["fieldId"];
				if (count($filters) > 0) {
					if (isset($filters["$fieldId"]["value"]) and $filters["$fieldId"]["value"]) {
						if ($filters["$fieldId"]["type"] == 'a' || $filters["$fieldId"]["type"] == 't') {
							if (!stristr($res2["value"], $filters["$fieldId"]["value"]))
								$pass = false;
						} else {
							if (strtolower($res2["value"]) != strtolower($filters["$fieldId"]["value"])) {
								$pass = false;
							}
						}
					}
					if (ereg_replace("[^a-zA-Z0-9]","",$res2["name"]) == $csort_mode) {
						$kx = $res2["value"].$itid;
					}
				}
				$fields[] = $res2;
			}
			$res["field_values"] = $fields;
			$res["comments"] = $this->getOne("select count(*) from `tiki_tracker_item_comments` where `itemId`=?",array((int) $itid));
			if ($pass) {
				$kl = $kx.$itid;
				$ret["$kl"] = $res;
			}
		}
		ksort($ret);
		//$ret=$this->sort_items_by_condition($ret,$sort_mode);
		$retval = array();
		$retval["data"] = array_values($ret);
		$retval["cant"] = $cant;
		return $retval;
	}

	/*
	 * Score methods begin
	 */
	// All information about an event type
	// shared
	function get_event($event) {
		$query = "select * from `tiki_score` where `event`=?";
		$result = $this->query($query,array($event));
		return $result->fetchRow();
	}

	/*
	 * Checks if an event should be scored and grants points to proper user
	 * $multiplier is for rating events, in which the score will
	 * be multiplied by other user's rating. Not yet used
	 *
	 * shared
	 */
	function score_event($user, $event_type, $id = '', $multiplier=false) {
		global $scorelib,$prefs;
		if (!is_object($scorelib)) {
			include_once("lib/score/scorelib.php");
		}

		if ($user == 'admin' || !$user) { 
			return true;
		 }

		$event = $scorelib->get_event($event_type);
		if (!$event || !$event['score']) {
			return true;
		}
		$score = $event['score'];
		if ($multiplier) {
			$score *= $multiplier;
		}
		if ($id || $event['expiration']) {
			$expire = $event['expiration'];
			$event_id = $event_type . '_' . $id;

			$query = "select count(*) from `tiki_users_score` where `user`=? and `event_id`=?";
			$bindvars = array($user, $event_id);
			if ($expire) {
				$query .= " and `expire` > ?";
				$bindvars[] = time();
			}
			if ($this->getOne($query, $bindvars)) {
				return true;
			}
			$query = "delete from `tiki_users_score` where `user`=? and `event_id`=?";
			$this->query($query, array($user, $event_id));

			$query = "insert into `tiki_users_score` (`user`, `event_id`, `expire`) values (?, ?, ?)";
			$this->query($query, array($user, $event_id, time() + ($expire*60)));
		}
		// Perform check to make sure score does not go below 0 with negative scores
		if( $prefs['fgal_prevent_negative_score'] == 'y' && strpos( $event_type, 'fgallery' ) === 0 ) {
			$result = $this->query( "select userId from users_users where score + ? >= 0 and login = ?",
					array( $score, $user ) );
			if( ! $row = $result->fetchRow( $result ) )
				return false;
		}
		$query = "update `users_users` set `score` = `score` + ? where `login`=?";
		$event['id'] = $id; // just for debug
		$this->query($query, array($score, $user));
		return true;
	}

	// List users by best scoring
	// shared
	function rank_users($limit = 10, $start = 0) {
		if (!$start) {
			$start = "0";
		}
		// admin doesn't go on ranking
		$query = "select `userId`, `login`, `score` from `users_users` where `login` <> 'admin' order by `score` desc";

		$result = $this->query($query,array(),$limit,$start);
		$ranking = array();
		while ($res = $result->fetchRow()) {
			$res['position'] = ++$start;
			$ranking[] = $res;
		}
		return $ranking;
	}

	// Returns html <img> tag to star corresponding to user's score
	// shared
	function get_star($score) {
		$star = '';
		$star_colors = array(0 => 'grey',
				100 => 'blue',
				500 => 'green',
				1000 => 'yellow',
				2500 => 'orange',
				5000 => 'red',
				10000 => 'purple');
		foreach ($star_colors as $boundary => $color) {
			if ($score >= $boundary) {
				$star = 'star_'.$color.'.gif';
			}
		}
		if (!empty($star)) {
			$alt = sprintf(tra("%d points"), $score);
			$star = "<img src='img/icons/$star' height='11' width='11' alt='$alt' />&nbsp;";
		}
		return $star;
	}

	/*
	 * Score methods end
	 */
	//shared
	// \todo remove all hardcoded html in get_user_avatar()
	function get_user_avatar($user, $float = "") {
		global $userlib;

		if (empty($user))
			return '';

		$query = "select `login`,`avatarType`,`avatarLibName` from `users_users` where `login`=?";
		$result = $this->query($query,array($user));
		$res = $result->fetchRow();

		if (!$res) {
			return '';
		}

		$type = $res["avatarType"];
		$libname = $res["avatarLibName"];
		$ret = '';
		$style = '';

		if (strcasecmp($float, "left") == 0) {
			$style = "style='float:left;margin-right:5px;'";
		} else if (strcasecmp($float, "right") == 0) {
			$style = "style='float:right;margin-left:5px;'";
		}
		switch ($type) {
			case 'n':
				$ret = '';
				break;
			case 'l':
				$ret = "<img border='0' width='45' height='45' src='" . $libname . "' " . $style . " alt='$user' />";
				break;
			case 'u':
				$ret = "<img border='0' src='tiki-show_user_avatar.php?user=$user' " . $style . " alt='$user' />";
				break;
		}
		return $ret;
	}

	/*shared*/
	function get_forum_sections() {
		$query = "select distinct `section` from `tiki_forums` where `section`<>?";
		$result = $this->query($query,array(''));
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res["section"];
		}
		return $ret;
	}

	/* Referer stats */
	/*shared*/
	function register_referer($referer) {
		$cant = $this->getOne("select count(*) from `tiki_referer_stats` where `referer`=?",array($referer));

		if ($cant) {
			$query = "update `tiki_referer_stats` set `hits`=`hits`+1,`last`=? where `referer`=?";
		} else {
			$query = "insert into `tiki_referer_stats`(`last`,`referer`,`hits`) values(?,?,1)";
		}
		$result = $this->query($query,array((int)$this->now,$referer));
	}

	// File attachments functions for the wiki ////
	/*shared*/
	function add_wiki_attachment_hit($id) {
		global $prefs, $user;
		if ($prefs['count_admin_pvs'] == 'y' || $user != 'admin') {
			$query = "update `tiki_wiki_attachments` set `hits`=`hits`+1 where `attId`=?";
			$result = $this->query($query,array((int)$id));
		}
		return true;
	}

	/*shared*/
	function get_wiki_attachment($attId) {
		$query = "select * from `tiki_wiki_attachments` where `attId`=?";
		$result = $this->query($query,array((int)$attId));
		if (!$result->numRows()) return false;
		$res = $result->fetchRow();
		return $res;
	}

	/*shared*/
	/*
		 function get_random_image($galleryId = -1) {
		 $whgal = "";
		 $bindvars = array();
		 if (((int)$galleryId) != -1) {
		 $whgal = " where `galleryId`=? ";
		 $bindvars[] = (int) $galleryId;
		 }

		 $query = "select count(*) from `tiki_images` $whgal";
		 $cant = $this->getOne($query,$bindvars);
		 $ret = array();

		 if ($cant) {
		 $pick = rand(0, $cant - 1);

		 $query = "select `imageId` ,`galleryId`,`name` from `tiki_images` $whgal";
		 $result = $this->query($query,$bindvars,1,$pick);
		 $res = $result->fetchRow();
		 $ret["galleryId"] = $res["galleryId"];
		 $ret["imageId"] = $res["imageId"];
		 $ret["name"] = $res["name"];
		 $query = "select `name`  from `tiki_galleries` where `galleryId` = ?";
		 $ret["gallery"] = $this->getOne($query,array((int)$res["galleryId"]));
		 } else {
		 $ret["galleryId"] = 0;

		 $ret["imageId"] = 0;
		 $ret["name"] = tra("No image yet, sorry.");
		 }

		 return ($ret);
		 }
	 */ /* Sept */

	/*shared*/
	function get_gallery($id) {
		$query = "select * from `tiki_galleries` where `galleryId`=?";
		$result = $this->query($query,array((int) $id));
		$res = $result->fetchRow();
		return $res;
	}

	// Last visit module ////
	/*shared*/
	function get_news_from_last_visit($user) {
		if (!$user) return false;

		$last = $this->getOne("select `lastLogin`  from `users_users` where `login`=?",array($user));
		$ret = array();
		if (!$last) {
			$last = time();
		}
		$ret["lastVisit"] = $last;
		$ret["images"] = $this->getOne("select count(*) from `tiki_images` where `created`>?",array((int)$last));
		$ret["pages"] = $this->getOne("select count(*) from `tiki_pages` where `lastModif`>?",array((int)$last));
		$ret["files"] = $this->getOne("select count(*) from `tiki_files` where `created`>?",array((int)$last));
		$ret["comments"] = $this->getOne("select count(*) from `tiki_comments` where `commentDate`>?",array((int)$last));
		$ret["users"] = $this->getOne("select count(*) from `users_users` where `registrationDate`>? and `provpass`=?",array((int)$last, ''));
		$ret["trackers"] = $this->getOne("select count(*) from `tiki_tracker_items` where `lastModif`>?",array((int)$last));
		$ret["calendar"] = $this->getOne("select count(*) from `tiki_calendar_items` where `lastmodif`>?",array((int)$last));
		return $ret;
	}

	// Templates ////
	/*shared*/
	function list_templates($section, $offset, $maxRecords, $sort_mode, $find) {
		$bindvars = array($section);
		if ($find) {
			$findesc = '%'.$find.'%';
			$mid = " and (`content` like ?)";
			$bindvars[] = $findesc;
		} else {
			$mid = "";
		}
		$query = "select `name` ,`created`,tcts.`templateId` from `tiki_content_templates` tct, `tiki_content_templates_sections` tcts ";
		$query.= " where tcts.`templateId`=tct.`templateId` and `section`=? $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_content_templates` tct, `tiki_content_templates_sections` tcts ";
		$query_cant.= "where tcts.`templateId`=tct.`templateId` and `section`=? $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();
		while ($res = $result->fetchRow()) {
			$query2 = "select `section`  from `tiki_content_templates_sections` where `templateId`=?";

			$result2 = $this->query($query2,array((int)$res["templateId"]));
			$sections = array();
			while ($res2 = $result2->fetchRow()) {
				$sections[] = $res2["section"];
			}
			$res["sections"] = $sections;
			$ret[] = $res;
		}

		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	/*shared*/
	function get_template($templateId) {
		$query = "select * from `tiki_content_templates` where `templateId`=?";
		$result = $this->query($query,array((int)$templateId));
		if (!$result->numRows()) return false;
		$res = $result->fetchRow();
		return $res;
	}
	// templates ////

	/*shared*/
	function list_games($offset, $maxRecords, $sort_mode, $find) {
		$bindvars = array();
		if ($find) {
			$findesc = '%'.$find.'%';
			$mid = " where (`gameName` like ?)";
			$bindvars[] = $findesc;
		} else {
			$mid = "";
		}
		$query = "select * from `tiki_games` $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_games` $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();
		while ($res = $result->fetchRow()) {
			$parts = explode('.', $res["gameName"]);

			$res["thumbName"] = $parts[0];
			$ret[] = $res;
		}
		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	/*shared*/
	function pick_cookie() {
		$cant = $this->getOne("select count(*) from `tiki_cookies`",array());
		if (!$cant) return '';

		$bid = rand(0, $cant - 1);
		//$cookie = $this->getOne("select `cookie`  from `tiki_cookies` limit $bid,1"); getOne seems not to work with limit
		$result = $this->query("select `cookie`  from `tiki_cookies`",array(),1,$bid);
		if ($res = $result->fetchRow()) {
			$cookie = str_replace("\n", "", $res['cookie']);
			return preg_replace('/^(.+?)(\s*--.+)?$/','<i>"$1"</i>$2',$cookie);
		} else {
			return "";
		}
	}

	function get_pv_chart_data($days) {
		$now = $this->make_time(0, 0, 0, $this->date_format("%m"), $this->date_format("%d"), $this->date_format("%Y"));
		$dfrom = 0;
		if ($days != 0) $dfrom = $now - ($days * 24 * 60 * 60);

		$query = "select `day`, `pageviews` from `tiki_pageviews` where `day`<=? and `day`>=?";
		$result = $this->query($query,array((int)$now,(int)$dfrom));
		$ret = array();
		$n = ceil($result->numRows() / 10);
		$i = 0;
		$xdata=array();
		$ydata=array();
		while ($res = $result->fetchRow()) {
			if ($i % $n == 0) {
				$xdata[] = $this->date_format("%e %b", $res["day"]);
			} else {
				$xdata = '';
			}
			$ydata[] = $res["pageviews"];
		}
		$ret['xdata']=$xdata;
		$ret['ydata']=$ydata;
		return $ret;
	}

	function add_pageview() {
		$dayzero = $this->make_time(0, 0, 0, $this->date_format("%m",$this->now), $this->date_format("%d",$this->now), $this->date_format("%Y",$this->now));
		$cant = $this->getOne("select count(*) from `tiki_pageviews` where `day`=?",array((int)$dayzero));

		if ($cant) {
			$query = "update `tiki_pageviews` set `pageviews`=`pageviews`+1 where `day`=?";
		} else {
			$query = "insert into `tiki_pageviews`(`day`,`pageviews`) values(?,1)";
		}
		$result = $this->query($query,array((int)$dayzero),-1,-1,false);
	}

	function get_usage_chart_data() {
		$this->compute_quiz_stats();
		$data['xdata'][] = tra('wiki');
		$data['ydata'][] = $this->getOne('select sum(`hits`) from `tiki_pages`',array());
		$data['xdata'][] = tra('img-g');
		$data['ydata'][] = $this->getOne('select sum(`hits`) from `tiki_galleries`',array());

		$data['xdata'][] = tra('file-g');
		$data['ydata'][] = $this->getOne('select sum(`hits`) from `tiki_file_galleries`',array());

		$data['xdata'][] = tra('faqs');
		$data['ydata'][] = $this->getOne('select sum(`hits`) from `tiki_faqs`',array());

		$data['xdata'][] = tra('quizzes');
		$data['ydata'][] = $this->getOne('select sum(`timesTaken`) from `tiki_quiz_stats_sum`',array());

		$data['xdata'][] = tra('arts');
		$data['ydata'][] = $this->getOne('select sum(`nbreads`) from `tiki_articles`',array());

		$data['xdata'][] = tra('blogs');
		$data['ydata'][] = $this->getOne('select sum(`hits`) from `tiki_blogs`',array());

		$data['xdata'][] = tra('forums');
		$data['ydata'][] = $this->getOne('select sum(`hits`) from `tiki_forums`',array());

		$data['xdata'][] = tra('games');
		$data['ydata'][] = $this->getOne('select sum(`hits`) from `tiki_games`',array());
		return $data;
	}

	// User assigned modules ////
	/*shared*/
	function get_user_login($id) {
		$login = $this->getOne("select `login` from `users_users` where `userId`=?", array((int)$id));
		return $login;
	}

	function get_user_id($u) {
		// Anonymous is not in db
		if ( $u == '' ) return -1;

		// If we ask for the current user id and if we already know it in session
		$current = ( $u == $_SESSION['u_info']['login'] );
		if ( isset($_SESSION['u_info']['id']) && $current ) return $_SESSION['u_info']['id'];

		// In other cases, we look in db
		$id = $this->getOne("select `userId` from `users_users` where `login`=?", array($u));
		$id = ($id === NULL) ? -1 : $id;
		if ( $current ) $_SESSION['u_info']['id'] = $id;
		return $id;
	}

	/*shared*/
	function get_groups_all($group) {
		$query = "select `groupName`  from `tiki_group_inclusion` where `includeGroup`=?";
		$result = $this->query($query, array($group));
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res["groupName"];
			$ret2 = $this->get_groups_all($res["groupName"]);
			$ret = array_merge($ret, $ret2);
		}
		return array_unique($ret);
	}

	/*shared*/
	function get_included_groups($group) {
		$query = "select `includeGroup`  from `tiki_group_inclusion` where `groupName`=?";
		$result = $this->query($query, array($group));
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res["includeGroup"];
			$ret2 = $this->get_included_groups($res["includeGroup"]);
			$ret = array_merge($ret, $ret2);
		}
		return array_unique($ret);
	}

	/*shared*/
	function get_user_groups($user) {
		global $prefs, $userlib;
		if (!$user) {
			$ret = array();
			$ret[] = "Anonymous";
			return $ret;
		}
		if ($prefs['feature_intertiki'] == 'y' and empty($prefs['feature_intertiki_mymaster']) and strstr($user,'@')) {
			$realm = substr($user,strpos($user,'@')+1);
			$user = substr($user,0,strpos($user,'@'));
			if (isset($prefs['interlist'][$realm])) {
				$groups = $prefs['interlist'][$realm]['groups'].',Anonymous';
				return split(',',$prefs['interlist'][$realm]['groups']);
			}
		}
		if (!isset($this->usergroups_cache[$user])) {
			$userid = $this->get_user_id($user);
			$query = "select `groupName`  from `users_usergroups` where `userId`=?";
			$result=$this->query($query,array((int) $userid));
			$ret = array();
			while ($res = $result->fetchRow()) {
				$ret[] = $res["groupName"];
				$included = $userlib->get_included_groups($res["groupName"]);
				$ret = array_merge($ret, $included);
			}
			$ret[] = "Registered";
			$ret[] = "Anonymous";
			$ret = array_unique($ret);
			$this->usergroups_cache[$user] = $ret;
			return $ret;
		} else {
			return $this->usergroups_cache[$user];
		}
	}

	function invalidate_usergroups_cache($user) {
		unset($this->usergroups_cache[$user]);
	}

	function get_user_cache_id($user) {
		$groups = $this->get_user_groups($user);
		sort($groups, SORT_STRING);
		$cacheId = implode(":", $groups);
		if ($user == 'admin') {
			// in this case user get permissions from no group
			$cacheId = 'ADMIN:'.$cacheId;
		}
		return $cacheId;
	}

	// Functions for FAQs ////
	function list_faqs($offset, $maxRecords, $sort_mode, $find) {
	  $mid = '';
	  if ( $find ) {
		$findesc = '%' . $find . '%';
		$mid = ' where (`title` like ? or `description` like ?)';
		$bindvars = array($findesc, $findesc);
	  } else $bindvars = array();

	  $query = "select `faqId` from `tiki_faqs` $mid";
	  $result = $this->query($query, $bindvars);
	  $res = $ret = $retids = array();
	  $n=0;

	  while ( $res = $result->fetchRow() ) {
		global $user;
		$objperm = $this->get_perm_object($res['faqId'], 'faq', '', false);
		if ($objperm['tiki_p_view_faqs'] == 'y') {
		  if (($maxRecords == -1) || (($n>=$offset) && ($n < ($offset + $maxRecords)))) {
			$retids[] = $res['faqId'];
		  }
		  $n++;
		}
	  }

	  if ($n > 0) {
		$query = "select  * from `tiki_faqs` where faqId in (" . implode(',',$retids) . ") order by " . $this->convert_sortmode($sort_mode);
		$result = $this->query($query);
		while ( $res = $result->fetchRow() ) {
		  $res['suggested'] = $this->getOne('select count(*) from `tiki_suggested_faq_questions` where `faqId`=?', array((int) $res['faqId']));
		  $res['questions'] = $this->getOne('select count(*) from `tiki_faq_questions` where `faqId`=?', array((int) $res['faqId']));
		  $ret[] = $res;
		}
	  }

	  $retval['data'] = $ret;
	  $retval['cant'] = $n;
	  return $retval;
	}

	/*shared */
	function get_faq($faqId) {
		$query = "select * from `tiki_faqs` where `faqId`=?";
		$result = $this->query($query,array((int)$faqId));
		if (!$result->numRows()) return false;
		$res = $result->fetchRow();
		return $res;
	}
	// End Faqs ////

	/*shared*/
	function genPass() {
		$length=8;
		$vocales = "aeiouAEIOU";
		$consonantes = "bcdfghjklmnpqrstvwxyzBCDFGHJKLMNPQRSTVWXYZ0123456789_";
		$r = '';
		for ($i = 0; $i < $length; $i++) {
			if ($i % 2) {
				$r .= $vocales{rand(0, strlen($vocales) - 1)};
			} else {
				$r .= $consonantes{rand(0, strlen($consonantes) - 1)};
			}
		}
		return $r;
	}

	// generate a random string (for unsubscription code etc.)
	function genRandomString($base="") {
		if ($base == "") $base = $this->genPass();
		$base .= microtime();
		return md5($base);
	}

	// This function calculates the pageRanks for the tiki_pages
	// it can be used to compute the most relevant pages
	// according to the number of links they have
	// this can be a very interesting ranking for the Wiki
	// More about this on version 1.3 when we add the pageRank
	// column to tiki_pages
	function pageRank($loops = 16) {
		$query = "select `pageName`  from `tiki_pages`";
		$result = $this->query($query,array());
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res["pageName"];
		}

		// Now calculate the loop
		$pages = array();

		foreach ($ret as $page) {
			$val = 1 / count($ret);

			$pages[$page] = $val;
			// Fixed query.  -rlpowell
			$query = "update `tiki_pages` set `pageRank`=? where `pageName`= ?";
			$result = $this->query($query, array((int)$val, $page) );
		}

		for ($i = 0; $i < $loops; $i++) {
			foreach ($pages as $pagename => $rank) {
				// Get all the pages linking to this one
				// Fixed query.  -rlpowell
				$query = "select `fromPage`  from `tiki_links` where `toPage` = ? and `fromPage` not like 'objectlink:%'";
				// page rank does not count links from non-page objects TODO: full feature allowing this with options 
				$result = $this->query($query, array( $pagename ) );
				$sum = 0;

				while ($res = $result->fetchRow()) {
					$linking = $res["fromPage"];

					if (isset($pages[$linking])) {
						// Fixed query.  -rlpowell
						$q2 = "select count(*) from `tiki_links` where `fromPage`= ? and `fromPage` not like 'objectlink:%'";
						// page rank does not count links from non-page objects TODO: full feature allowing this with options
						$cant = $this->getOne($q2, array($linking) );
						if ($cant == 0) $cant = 1;
						$sum += $pages[$linking] / $cant;
					}
				}

				$val = (1 - 0.85) + 0.85 * $sum;
				$pages[$pagename] = $val;
				// Fixed query.  -rlpowell
				$query = "update `tiki_pages` set `pageRank`=? where `pageName`=?";
				$result = $this->query($query, array((int)$val, $pagename) );

				// Update
			}
		}
		arsort ($pages);
		return $pages;
	}

	// Spellchecking routine
	// Parameters:
	// what: what to spell check (a text)
	// where: where to replace (maybe the same text)
	// language: language to use
	// element: element where the text is going to be replaced (a textarea or similar)
	/*shared*/
	// \todo replace the hardcoded html by smarty template
	function spellcheckreplace($what, $where, $language, $element) {
		global $smarty,$headerlib;

		$words = preg_split("/\s/", $what);

		foreach ($words as $word) {
			if (preg_match("/^[A-Z]?[a-z]+$/", $word) && strlen($word) > 1) {
				$result = $this->spellcheckword($word, $language);

				if (count($result) > 0) {
					// Replace the word with a warning color in the edit_data
					// Prepare the replacement
					$sugs = $result[$word];
					$first = 1;
					$repl = '';
					$popup_text = '';
					if (count($sugs) > 0) {
						$asugs = array_keys($sugs);
						$temp_max = count($asugs);
						for ($i = 0; $i < $temp_max && $i < 5; $i++) {
							$sug = $asugs[$i];

							// If you want to use the commented out line below, please remove the \ in <\/script>; it was breaking vim highlighting.  -rlpowell
							// $repl.="<script type='text/javascript'>param_${word}_$i = new Array(\\\"$element\\\",\\\"$word\\\",\\\"$sug\\\");<\/script><a href=\\\"javascript:replaceLimon(param_${word}_$i);\\"."\">$sug</a><br />";
							$repl .= "<a href=\'javascript:param=doo_${word}_$i();replaceLimon(param);\'>".addslashes($sug)."</a><br />";

							$headerlib->add_js("function doo_${word}_$i(){ aux = new Array(\"$element\",\"$word\",\"$sug\"); return aux;}");
						}

						//$popup_text = " <a title=\"".$sug."\" style=\"text-decoration:none; color:red;\" onclick='"."return overlib(".'"'.$repl.'"'.",STICKY,CAPTION,".'"'."SpellChecker suggestions".'"'.");'>".$word.'</a> ';
						$popup_text = " <a title=\"Click for a list of spelling suggestions\" style=\"text-decoration: none; color:red;\" onclick=\"return overlib('$repl',STICKY,CAPTION,'Spellchecker suggestions');\">$word</a> ";
					}

					//print("popup: <pre>".htmlentities($popup_text)."</pre><br />");
					if ($popup_text) {
						$where = preg_replace("/\s$word\s/", $popup_text, $where);
					} else {
						$where = preg_replace("/\s$word\s/", ' <span style="color:red;">' . $word . '</span> ', $where);
					}

					//$parsed = preg_replace("/\s$word\s/",' <a style="color:red;">'.$word.'</a> ',$parsed);
				}
			}
		}
		return $where;
	}

	/*shared*/
	function spellcheckword($word, $lang) {
		include_once ("bablotron.php");

		$b = new bablotron($this->db, $lang);
		$result = $b->spellcheck_word($word);
		return $result;
	}

	function list_all_forum_topics($offset, $maxRecords, $sort_mode, $find) {
		$bindvars = array('forum', 0);
		if ($find) {
		  $findesc = '%' . $find . '%';
		  $mid = " and (`title` like ? or `data` like ?)";
		  $bindvars[] = $findesc;
		  $bindvars[] = $findesc;
		} else {
		  $mid = '';
		}

		$query = 'select threadId, forumId from `tiki_comments`,`tiki_forums`'
			  . " where `object`=`forumId` and `objectType`=? and `parentId`=? $mid order by " . $this->convert_sortmode($sort_mode);
		$result = $this->query($query, $bindvars);
		$res = $ret = $retids = array();
		$n = 0;

		while ( $res = $result->fetchRow() ) {
		  global $user;
		  $objperm = $this->get_perm_object($res['forumId'], 'forums', '', false);
		  if ($objperm['tiki_p_forum_read'] == 'y') {
			if (($maxRecords == -1) || (($n >= $offset) && ($n < ($offset + $maxRecords)))) {
			$retids[] = $res['threadId'];
		  }
		  $n++;
		  }
		}
		
		if ( $n > 0 ) {
		  $query = 'select * from `tiki_comments`'
			  . ' where `threadId` in (' . implode(',', $retids) . ') order by ' . $this->convert_sortmode($sort_mode);
		  $result = $this->query($query);
		  while ( $res = $result->fetchRow() ) {
			$ret[] = $res;
		  }
		}

		$retval = array();
		$retval['data'] = $ret;
		$retval['cant'] = $n;
		return $retval;
	}

	/*shared*/
	function list_forum_topics($forumId, $offset, $maxRecords, $sort_mode, $find) {
		$bindvars = array($forumId,$forumId,'forum',0);
		if ($find) {
			$findesc = '%'.$find.'%';
			$mid = " and (`title` like ? or `data` like ?)";
			$bindvars[] = $findesc;
			$bindvars[] = $findesc;
		} else {
			$mid = "";
		}

		$query = "select * from `tiki_comments`,`tiki_forums` where ";
		$query.= " `forumId`=? and `object`=? and `objectType`=? and `parentId`=? $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_comments`,`tiki_forums` where ";
		$query_cant.= " `forumId`=? and `object`=? and `objectType`=? and `parentId`=? $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}

		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	/*shared*/
	function remove_object($type, $id) {
		global $categlib, $dbTiki;

		if (!is_object($categlib)) {
			require_once ("lib/categories/categlib.php");
		}
		global $objectlib;require_once('lib/objectlib.php');
		$categlib->uncategorize_object($type, $id);
		// Now remove comments
		$query = "select * from `tiki_comments` where `object`=?  and `objectType`=?";
		$result = $this->query($query, array( $id, $type ));
		if ($result) {		
			include_once ("lib/commentslib.php");
			$commentslib = new Comments($dbTiki);
		}
		while ($res = $result->fetchRow()) {
			$commentslib->remove_comment($res['threadId']);
		}
		// Remove individual permissions for this object if they exist
		$object = $type . $id;
		$query = "delete from `users_objectpermissions` where `objectId`=? and `objectType`=?";
		$result = $this->query($query,array(md5($object),$type));
		// remove links from this object to pages
		$linkhandle = "objectlink:$type:$id";
		$query = "delete from `tiki_links` where `fromPage` = ?";
		$result = $this->query($query, array( $linkhandle ) );
		// remove object
		$objectlib->delete_object($type, $id);
		return true;
	}

	/*shared*/
	// function enhancing php in_array() function
	function in_multi_array($needle, $haystack) {
		$in_multi_array = false;

		if (in_array($needle, $haystack)) {
			$in_multi_array = true;
		} else {
			while (list($tmpkey, $tmpval) = each($haystack)) {
				if (is_array($haystack[$tmpkey])) {
					if ($this->in_multi_array($needle, $haystack[$tmpkey])) {
						$in_multi_array = true;
						break;
					}
				}
			}
		}
		return $in_multi_array;
	}

	/*shared*/
	function list_received_pages($offset, $maxRecords, $sort_mode, $find='', $type='', $structureName='') {
		$bindvars = array();
		if ($type == 's')
			$mid = ' `trp`.`structureName` is not null ';
			if (!$sort_mode) 
				$sort_mode = '`structureName_asc';
		elseif ($type == 'p')
			$mid = ' `trp`.`structureName` is null ';
			if (!$sort_mode) 
				$sort_mode = '`pageName_asc';
		else
			$mid = '';

		if ($find) {
			$findesc = '%'.$find.'%';
			if ($mid)
				$mid .= ' and ';
			$mid .= '(`trp`.`pageName` like ? or `trp`.`structureName` like ? or `trp`.`data` like ?)';
			$bindvars[] = $findesc;
			$bindvars[] = $findesc;
			$bindvars[] = $findesc;
		}
		if ($structureName) {
			if ($mid)
				$mid .= ' and ';
			$mid .= ' `trp`.`structureName`=? ';
			$bindvars[] = $structureName;
		}
		if ($mid)
			$mid = "where $mid";

		$query = "select trp.*, tp.`pageName` as pageExists from `tiki_received_pages` trp left join `tiki_pages` tp on (tp.`pageName`=trp.`pageName`) $mid order by `structureName` asc, `pos` asc," . $this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_received_pages` trp $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}

		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	// Functions for the menubuilder and polls////
	/*Shared*/
	function get_menu($menuId) {
		$query = "select * from `tiki_menus` where `menuId`=?";
		$result = $this->query($query,array((int)$menuId));
		if ( ! $result->numRows() ) return false;
		$res = $result->fetchRow();
		if ( empty($res['icon']) ) {
			$res['oicon'] = null;
		} else {
			$res['oicon'] = dirname($res['icon']).'/o'.basename($res['icon']);
		}
		return $res;
	}

	/*shared*/
	function list_menu_options($menuId, $offset=0, $maxRecords=-1, $sort_mode='position_asc', $find='', $full=false, $level=0) {
		global $smarty,$user, $tiki_p_admin, $prefs;
		global $wikilib; include_once('lib/wiki/wikilib.php');
		$ret = array();
		$retval = array();
		$bindvars = array((int)$menuId);
		if ($find) {
			$mid = " where `menuId`=? and (`name` like ? or `url` like ?)";
			$bindvars[] = '%'. $find . '%';
			$bindvars[] = '%'. $find . '%';
		} else {
			$mid = " where `menuId`=? ";
		}
		if ($level && $prefs['feature_userlevels'] == 'y') {
			$mid.= " and `userlevel`<=?";
			$bindvars[] = $level;
		}
		$query = "select * from `tiki_menu_options` $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_menu_options` $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		while ($res = $result->fetchRow()) {
			$res['canonic'] = $res['url'];
			if (preg_match('|^\(\((.+?)\)\)$|', $res['url'], $matches)) {
				$res['url'] = 'tiki-index.php?page='.$matches[1];
				$res['sefurl'] = $wikilib->sefurl($matches[1]);
			}
			if (!$full) {
				$display = true;
				if (isset($res['section']) and $res['section']) {
					if (strstr($res['section'], '|')) {
						$display = false;
						$sections = preg_split('/\s*\|\s*/',$res['section']);
						foreach ($sections as $sec) {
							if (!isset($prefs[$sec]) or $prefs[$sec] != 'y') {
								$display = true;
								break;
							}
						}
					} else {
						$display = true;
						$sections = preg_split('/\s*,\s*/',$res['section']);
						foreach ($sections as $sec) {
							if (!isset($prefs[$sec]) or $prefs[$sec] != 'y') {
								$display = false;
								break;
							}
						}
					}
				}
				if ($display && $tiki_p_admin != 'y') {
					if (isset($res['perm']) and $res['perm']) {
						if (strstr($res['perm'], '|')) {
							$display = false;
							$sections = preg_split('/\s*\|\s*/',$res['perm']);
							foreach ($sections as $sec) {
								if (isset($GLOBALS[$sec]) && $GLOBALS[$sec] == 'y') {
									$display = true;
									break;
								}
							}
						} else {
							$sections = preg_split('/\s*,\s*/',$res['perm']);
							$display = true;
							foreach ($sections as $sec) {
								if (!isset($GLOBALS[$sec]) or $GLOBALS[$sec] != 'y') {
									$display = false;
									break;
								}
							}
						}
					}
				}
				if ($display && $tiki_p_admin != 'y') {
					$usergroups = $this->get_user_groups($user);
					if (isset($res['groupname']) and $res['groupname']) {
						$sections = preg_split('/\s*,\s*/',$res['groupname']);
						foreach ($sections as $sec) {
							if ($sec and !in_array($sec,$usergroups)) {
								$display = false;
							}
						}
					}
				}
				if ($display) {
					$pos = $res['position'];
					if (empty($ret[$pos]) || empty($ret[$pos]['url']))
						$ret[$pos] = $res;
				}
			} else {
				$ret[] = $res;
			}
		}
		$retval["data"] = array_values($ret);
		$retval["cant"] = $cant;
		return $retval;
	}
	/* shared
	 * gets result from list_menu_options and sorts "sorted section" sections.
	 */
	function sort_menu_options($channels) {

		$sorted_channels = array();

		if (!isset($channels['data']) || $channels['cant'] == 0) {
			return $channels;
		}
		$cant = $channels['cant'];
		$channels = $channels['data'];

		$temp_max = sizeof($channels);
		for ($i=0; $i < $temp_max; $i++) {
			$sorted_channels[$i] = $channels[$i];
			if ($sorted_channels[$i]['type'] == 'r') { // sorted section
				$sorted_channels[$i]['type'] = 's'; // common section, let's make it transparent
				$i++;
				$section = array();
				while ($i < sizeof($channels) && $channels[$i]['type'] == 'o') {
					$section[] = $channels[$i];
					$i++;
				}
				$i--;
				include_once('lib/smarty_tiki/function.menu.php');
				usort($section, "compare_menu_options");
				$sorted_channels = array_merge($sorted_channels, $section);
			}
		}

		if (isset($cant)) {
			$sorted_channels = array ('data' => $sorted_channels,
					'cant' => $cant);
		}

		return $sorted_channels;
	}

	// Menubuilder ends ////

	// User voting system ////
	// Used to vote everything (polls,comments,files,submissions,etc) ////
	// Checks if a user has voted
	/*shared*/
	function user_has_voted($user, $id) {
		global $prefs;
		$ret = false;
		$votes = $_SESSION['votes'];
		if (is_array($votes) && in_array($id, $votes)) { // has already voted in the session (logged or not)
			$ret = true;
		}
		if (!$user) {
			if ($prefs['ip_can_be_checked'] != 'y' && !isset($_COOKIE['PHPSESSID'])) {// cookie has not been activated too bad for him
				$ret = true;
			} elseif (isset($_COOKIE[md5("tiki_wiki_poll_$id")])) {
				$ret = true;
			}
			// we have no idea if cookie was deleted  or if really he has not voted
		} else {
			$query = "select count(*) from `tiki_user_votings` where `user`=? and `id`=?";
			if ($this->getOne($query,array($user,(string) $id)) > 0) {
				$ret = true;
			}
		}
		if ($prefs['ip_can_be_checked'] == 'y') {
			$query = 'select count(*) from `tiki_user_votings` where `ip`=? and `id`=?';
			if ($this->getOne($query, array($this->get_ip_address(), $id)) > 0) {
				return true; // IP has already voted logged or not
			}
		}
		return $ret;
	}

	// Registers a user vote
	/*shared*/
	function register_user_vote($user, $id, $optionId=false) {
		global $prefs;
		$ip = $this->get_ip_address();
		$_SESSION['votes'][] = $id;
		setcookie(md5("tiki_wiki_poll_$id"), $ip, time()+60*60*24*300);
		if (!$user) {
			if ($prefs['ip_can_be_checked'] == 'y') {
				$query = 'delete from `tiki_user_votings` where `ip`=? and `id`=?';
				$result = $this->query($query, array($ip, $id));
				if ( $optionId !== false ) {
					$query = 'insert into `tiki_user_votings` (`user`, `ip`,`id`,`optionId`, `time`) values(?,?,?,?,?)';
					$result = $this->query($query, array('', $ip, (string)$id, (int)$optionId, (int)$this->now));
				}
			} elseif ($optionId !== false) {
				$query = 'insert into `tiki_user_votings` (`user`, `ip`,`id`,`optionId`, `time`) values(?,?,?,?,?)';
				$result = $this->query($query, array('', $ip, (string)$id, (int)$optionId, (int)$this->now));
			}
		} else {
			if ($prefs['ip_can_be_checked'] == 'y') {
				$query = 'delete from `tiki_user_votings` where (`user`=? or `ip`=?)and `id`=?';
				$this->query($query, array($user, $ip, $id));
			} else {
				$query = 'delete from `tiki_user_votings` where `user`=? and `id`=?';
				$this->query($query, array($user, (string)$id));
			}
			if ( $optionId !== false ) {
				$query = 'insert into `tiki_user_votings` (`user`,`ip`, `id`,`optionId`, `time`) values(?,?,?,?,?)';
				$result = $this->query($query, array($user, $ip, (string)$id, (int)$optionId, (int)$this->now));
			}
		}
	}

	function get_user_vote($id,$user) {
		global $prefs;
		$vote = null;
		if ($user) {
			$vote = $this->getOne("select `optionId` from `tiki_user_votings` where `user` = ? and `id` = ?",array( $user, $id));
		}
		if ($vote == null && $prefs['ip_can_be_checked'] == 'y') {
			$vote = $this->getOne("select `optionId` from `tiki_user_votings` where `ip` = ? and `id` = ?",array( $user, $id));
		}
		return $vote;
	}
	// end of user voting methods

	// FILE GALLERIES ////
	/*shared*/
	function list_files($offset=0, $maxRecords=-1, $sort_mode='created_desc', $find='') {
		return $this->get_files($offset, $maxRecords, $sort_mode, $find, -1, false, false, true, true, false, false, true, true);
	}

	/*shared*/
	function get_file($id) {
		$query = "select * from `tiki_files` where `fileId`=?";
		$result = $this->query($query, array((int)$id));
		return $result ? $result->fetchRow() : array();
	}

	/*shared: added by AW*/
	function get_file_by_name($galleryId, $name, $column='name') {
		$query = "select `path`,`galleryId`,`filename`,`filetype`,`data`,`filesize`,`name`,`description`, `created` from `tiki_files` where `galleryId`=? AND `$column`=? ORDER BY created DESC LIMIT 1";
		$result = $this->query($query,array((int) $galleryId, $name));
		$res = $result->fetchRow();
		return $res;
	}

	/**
	 * Get files and/or subgals list with additional data from one or all file galleries
	 *
	 * @param int $offset
	 * @param int $maxRecords
	 * @param string $sort_mode
	 * @param string $find
	 * @param int $galleryId (-1 = all galleries (default))
	 * @param bool $with_archive give back the number of archives
	 * @param bool $with_subgals include subgals in the listing
	 * @param bool $with_subgals_size calculate the size of subgals
	 * @param bool $with_files include files in the listing
	 * @param bool $with_files_data include files data in the listing
	 * @param bool $with_parent_name include parent names in the listing
	 * @param bool $recursive include all subgals recursively (yet only implemented for galleryId == -1)
	 * @param string $my_user use another user than the current one
	 * @param bool $keep_subgals_together do not mix files and subgals when sorting (if true, subgals will always be at the top)
	 * @param bool $parent_is_file use $galleryId param as $fileId (to return only archives of the file)
	 * @return array of found files and subgals
	 */
	function get_files($offset, $maxRecords, $sort_mode, $find, $galleryId=-1, $with_archive=false, $with_subgals=false, $with_subgals_size=true, $with_files=true, $with_files_data=false, $with_parent_name=false, $with_files_count=true, $recursive=false, $my_user='', $keep_subgals_together=true, $parent_is_file=false) {
		global $user, $tiki_p_admin_file_galleries;

		if ( ( ! $with_files && ! $with_subgals ) || ( $parent_is_file && $galleryId <= 0 ) ) return array();

		// galleryId == 0 is a way to get only the main galleries
		if ( $galleryId == 0 ) {
			$galleryId = -1;
			$with_files = false;
			$with_archive = false;
			$with_subgals = true;
		}

		$fileId = -1;
		if ( $parent_is_file ) {
			$fileId = $galleryId;
			$galleryId = -2;
		}

		// recursive mode is only available for the whole tree
		$recursive = ( $recursive && $galleryId == -1 );
		$with_subgals_size = ( $with_subgals && $with_subgals_size );
		if ( $my_user == '' ) $my_user = $user;

		$f_table = '`tiki_files` as tf';
		$g_table = '`tiki_file_galleries` as tfg';
		$f_group_by = '';
		$orderby = $this->convert_sortmode($sort_mode);

		$f2g_corresp = array(
				'0 as `isgal`' => '1 as `isgal`',
				'tf.`fileId` as `id`' => 'tfg.`galleryId` as `id`',
				'tf.`galleryId` as `parentId`' => 'tfg.`parentId`',
				'tf.`name`' => 'tfg.`name`',
				'tf.`description`' => 'tfg.`description`',
				'tf.`filesize` as `size`' => "0 as `size`",
				'tf.`created`' => 'tfg.`created`',
				'tf.`filename`' => 'tfg.`name` as `filename`',
				'tf.`filetype` as `type`' => "tfg.`type`",
				'tf.`user` as `creator`' => 'tfg.`user` as `creator`',
				'tf.`author`' => "'' as `author`",
				'tf.`hits`' => "tfg.`hits`",
				'tf.`votes`' => 'tfg.`votes`',
				'tf.`points`' => 'tfg.`points`',
				'tf.`path`' => "'' as `path`",
				'tf.`reference_url`' => "'' as `reference_url`",
				'tf.`is_reference`' => "'' as `is_reference`",
				'tf.`hash`' => "'' as `hash`",
				'tf.`search_data`' => 'tfg.`name` as `search_data`',
				'tf.`lastModif` as `lastmodif`' => 'tfg.`lastmodif` as `lastmodif`',
				'tf.`lastModifUser` as `last_user`' => "'' as `last_user`",
				'tf.`lockedby`' => "'' as `lockedby`",
				'tf.`comment`' => "'' as `comment`",
				'tf.`archiveId`' => '0 as `archiveId`',
				"'' as `visible`" => 'tfg.`visible`',
				"'' as `public`" => 'tfg.`public`',

				/// Below are obsolete fields that will be removed soon (they have their new equivalents above)
				'tf.`fileId`' => 'tfg.`galleryId` as `fileId`', /// use 'id' instead
				'tf.`galleryId`' => 'tfg.`parentId` as `galleryId`', /// use 'parentId' instead
				'tf.`filesize`' => "0 as `filesize`", /// use 'size' instead
				'tf.`filetype`' => "tfg.`type` as `filetype`", /// use 'type' instead
				'tf.`user`' => 'tfg.`user`', /// use 'creator' instead	
				'tf.`lastModifUser`' => "'' as `lastModifUser`" /// use 'last_user' instead
					);
		if ( $with_files_data ) {
			$f2g_corresp['tf.`data`'] = "'' as `data`";
		}
		if ( $with_files_count ) {
			$f2g_corresp["'' as `files`"] = 'count(distinct tfc.`fileId`) as `files`';
		}
		if ( $with_archive ) {
			$f2g_corresp['count(tfh.`fileId`) as `nbArchives`'] = '0 as `nbArchives`';
			$f_table .= ' LEFT JOIN `tiki_files` tfh ON (tf.`fileId` = tfh.`archiveId`)';
			$f_group_by = ' GROUP BY tf.`fileId`';
		}

		$f_query = 'SELECT '.implode(', ', array_keys($f2g_corresp)).' FROM '.$f_table.' WHERE tf.`archiveId`='.( $parent_is_file ? $fileId : '0' );
		$bindvars = array();

		$mid = '';
		if ( $find ) {
			$findesc = '%'.$find.'%';
			$mid = ' (upper(tab.`name`) LIKE upper(?) OR upper(tab.`description`) LIKE upper(?) OR upper(tab.`filename`) LIKE upper(?))';
			array_push($bindvars, $findesc, $findesc, $findesc);
		}

		$galleryId_str = '';
		if ( is_array($galleryId) ) {
			$galleryId_str = ' in ('.implode(',', array_fill(0, count($galleryId),'?')).')';
					$bindvars = array_merge($galleryId, $bindvars);
					} elseif ( $galleryId >= -1 && ! $recursive ) {
					$galleryId_str = '=?';
					if ( $with_subgals ) array_unshift($bindvars, $galleryId);
					if ( $with_files ) array_unshift($bindvars, $galleryId);
					}
					if ( $galleryId_str != '' ) {
					$f_query .= ' AND tf.`galleryId`'.$galleryId_str;
					}

					if ( $with_subgals ) {

					$g_mid = '';
					$g_join = '';
					$g_group_by = '';

					$join = '';
					$select = 'tab.*';

					if ( $with_files_count ) {
						$g_join = ' LEFT JOIN `tiki_files` tfc ON (tfg.`galleryId` = tfc.`galleryId`)';
						$g_group_by = ' GROUP BY tfg.`galleryId`'; 
					}

					// If $user is admin then get ALL galleries, if not only user galleries are shown
					// If the user is not admin then select it's own galleries or public galleries
					if ( $tiki_p_admin_file_galleries != 'y' && $my_user != 'admin' && ! $parentId ) {
						$g_mid = " WHERE (tfg.`user`='$my_user' OR tfg.`public`='y')"; /// FIXME: use bindvars
					}

					$g_query = 'SELECT '.implode(', ', array_values($f2g_corresp)).' FROM '.$g_table.$g_join.$g_mid;

					if ( $galleryId_str != '' ) {
						$g_query .= ( $g_mid == '' ? ' WHERE' : ' AND' ).' tfg.`parentId`'.$galleryId_str;
					}

					if ( $with_parent_name ) {
						$select .= ', tfgp.`name` as `parentName`';
						$join .= ' LEFT OUTER JOIN `tiki_file_galleries` tfgp ON (tab.`parentId` = tfgp.`galleryId`)';
					}

					if ( $with_files ) {
						$query = "SELECT $select FROM (($f_query $f_group_by) UNION ($g_query $g_group_by)) as tab".$join;
					} else {
						$query = "SELECT $select FROM ($g_query $g_group_by) as tab".$join;
					}
					if ( $mid != '' ) $query .= ' WHERE'.$mid;
					if ( $orderby != '' ) $orderby = 'tab.'.$orderby;

					} else {
						$query = $f_query;
						if ( $mid != '' ) $query .= ' AND'.$mid;
						$query .= $f_group_by;
					}

					if ( $keep_subgals_together ) {
						$query .= ' ORDER BY `isgal` desc'.($orderby == '' ? '' : ', '.$orderby);
					} elseif ( $orderby != '' ) {
						$query .= ' ORDER BY '.$orderby;
					}
					$result = $this->query($query, $bindvars);

					if ( $with_subgals_size ) {
						if (!function_exists('galsize')) {
						function galsize($id, &$db) {
							$return = 0;

							$result = $db->query('SELECT `fileId`,`filesize` FROM tiki_files WHERE `galleryId`=?', array($id));
							while ( $res = $result->fetchRow() ) {
								$return += $res['filesize'];
							}
							unset($result);

							$result = $db->query('SELECT `galleryId` FROM `tiki_file_galleries` WHERE `parentId`=?', array($id));
							while ( $res = $result->fetchRow() ) {
								$return += galsize($res['galleryId'], $db);
							}
							unset($result);

							return $return;
						}
						}
					}

					$ret = array();
					$gal_size_order = array();
					$cant = 0;
					$n = -1;
					$need_everything = ( $with_subgals_size && ( $sort_mode == 'size_asc' || $sort_mode == 'filesize_asc' ) );
					global $cachelib; include_once('lib/cache/cachelib.php');
				  $cacheName = md5("group:".implode("\n", $this->get_user_groups($user)));
  				$cacheType = 'fgals_perms_'.$galleryId."_";
					if ($galleryId > 0 && $cachelib->isCached($cacheName, $cacheType)) {
						$fgal_perms = unserialize($cachelib->getCached($cacheName, $cacheType));
					} else {
						$fgal_perms = array();
					}
					while ( $res = $result->fetchRow() ) {
						$object_type = ( $res['isgal'] == 1 ? 'file gallery' : 'file');
						if (isset($fgal_perms[$res['id']])) {
							$res['perms'] = $fgal_perms[$res['id']];
						} else {
							$fgal_perms[$res['id']] = $res['perms'] = $this->get_perm_object($res['id'], $object_type, array(), false);
						}
						if ($galleryId <=0) {
							$cachelib->cacheItem($cacheName, serialize($fgal_perms), 'fgals_perms_'.$res['id'].'_');
						}
						// Don't return the current item, if :
						//  the user has no rights to view the file gallery AND no rights to list all galleries (in case it's a gallery)
						if ( $res['perms']['tiki_p_view_file_gallery'] != 'y'
								&& ( $res['isgal'] == 0 || $res['perms']['tiki_p_list_file_gallery'] != 'y' )
							 ) continue;

						$n++;
						if ( ! $need_everything && $offset != -1 && $n < $offset ) continue;

						if ( $need_everything || $maxRecords == -1 || $cant < $maxRecords ) {
							$ret[$cant] = $res;
							if ( $with_subgals_size && $res['isgal'] == 1 ) {
								$ret[$cant]['size'] = (string)galsize($res['id'], $this);
								$ret[$cant]['filesize'] = $ret[$cant]['size']; /// Obsolete
								if ( $keep_subgals_together ) {
									$gal_size_order[$cant] = $ret[$cant]['size'];
								}
							}
							if ( $with_subgals_size && ! $keep_subgals_together ) {
								$gal_size_order[$cant] = $ret[$cant]['size'];
							}
							// generate link for podcasts
							$ret[$cant]['podcast_filename'] = $res['path'];
						}

						$cant++;
					}
					if ($galleryId > 0)
						$cachelib->cacheItem($cacheName, serialize($fgal_perms), $cacheType);
					if ( ! $need_everything ) $cant += $offset;


					if ( count($gal_size_order) > 0 ) {
						if ( $sort_mode == 'size_asc' || $sort_mode == 'filesize_asc' ) {
							asort($gal_size_order, SORT_NUMERIC);
						} elseif ( $sort_mode == 'size_desc' || $sort_mode == 'filesize_desc' ) {
							arsort($gal_size_order, SORT_NUMERIC);
						}
						$ret2 = array();
						foreach ( $gal_size_order as $k => $v ) {
							$ret2[] = $ret[$k];
							unset($ret[$k]);
						}
						if ( count($ret) > 0 ) {
							foreach ( $ret as $k => $v ) {
								$ret2[] = $v;
							}
						}
						unset($ret);
						$ret =& $ret2;
					}

					if ( $need_everything && ( $offset > 0 || $maxRecords != -1 ) ) {
						if ( $maxRecords == -1 ) {
							$ret = array_slice($ret, $offset);
						} else {
							$ret = array_slice($ret, $offset, $maxRecords);
						}
					}

					return array('data' => $ret, 'cant' => $cant);
	}

	function list_file_galleries($offset = 0, $maxRecords = -1, $sort_mode = 'name_desc', $user='', $find='', $parentId=-1,
								 $with_archive=false, $with_subgals=true, $with_subgals_size=false, $with_files=false, $with_files_data=false, $with_parent_name=true, $with_files_count=true,$recursive=true) {
		return $this->get_files($offset, $maxRecords, $sort_mode, $find, $parentId,
								$with_archive, $with_subgals, $with_subgals_size, $with_files, $with_files_data, $with_parent_name, $with_files_count, $recursive, $user);
	}

	/*shared*/
	function add_file_hit($id) {
		global $prefs, $user, $filegallib;

		if ($prefs['count_admin_pvs'] == 'y' || $user != 'admin') {
			// Enforce max download per file
			if( $prefs['fgal_limit_hits_per_file'] == 'y' ) {
				$limit = $filegallib->get_download_limit( $id );
				if( $limit > 0 ) {
					$result = $this->query( "select fileId from tiki_files where fileId = ? and hits < ?",
							array( $id, $limit ) );

					if( ! $result->fetchRow() )
						return false;
				}
			}

			$query = "update `tiki_files` set `hits`=`hits`+1 where `fileId`=?";
			$result = $this->query($query,array((int) $id));
		}

		if ($prefs['feature_score'] == 'y') {
			if( ! $this->score_event($user, 'fgallery_download', $id) )
				return false;

			$query = "select `user` from `tiki_files` where `fileId`=?";
			$owner = $this->getOne($query, array((int)$id));
			if( ! $this->score_event($owner, 'fgallery_is_downloaded', "$user:$id") )
				return false;
		}

		return true;
	}

	/*shared*/
	function add_file_gallery_hit($id) {
		global $prefs, $user;
		if ($prefs['count_admin_pvs'] == 'y' || $user != 'admin') {
			$query = "update `tiki_file_galleries` set `hits`=`hits`+1 where `galleryId`=?";
			$result = $this->query($query,array((int) $id));
		}
		return true;
	}

	/*shared*/
	function get_file_gallery($id) {
		$query = "select * from `tiki_file_galleries` where `galleryId`=?";
		$result = $this->query($query,array((int) $id));
		$res = $result->fetchRow();
		return $res;
	}

	/*shared*/
	function list_visible_file_galleries($offset = 0, $maxRecords = -1, $sort_mode = 'name_desc', $user, $find) {
		// If $user is admin then get ALL galleries, if not only user galleries are shown

		$old_sort_mode = '';
		$bindvars = array('y');
		$whuser = "";

		if (in_array($sort_mode, array( 'files_desc', 'files_asc'))) {
			$old_offset = $offset;
			$old_maxRecords = $maxRecords;
			$old_sort_mode = $sort_mode;
			$sort_mode = 'user_desc';
			$offset = 0;
			$maxRecords = -1;
		}

		// If the user is not admin then select `it` 's own galleries or public galleries
		global $tiki_p_admin_files_galleries;
		if ($tiki_p_admin_files_galleries != 'y') {
			$whuser.= " and (`user`=? or `public`=?)";
			$bindvars[] = $user;
			$bindvars[] = "y";
		}

		if ($find) {
			$findesc = '%' . $find . '%';
			$whuser .= " and (`name` like ? or `description` like ?)";
			$bindvars[] = $findesc;
			$bindvars[] = $findesc;
		}

		$query = "select * from `tiki_file_galleries` where `visible`=? $whuser order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_file_galleries` where `visible`=? $whuser";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$aux = array();

			$aux["name"] = $res["name"];
			$gid = $res["galleryId"];
			$aux["id"] = $gid;
			$aux["visible"] = $res["visible"];
			$aux["galleryId"] = $res["galleryId"];
			$aux["description"] = $res["description"];
			$aux["created"] = $res["created"];
			$aux["lastModif"] = $res["lastModif"];
			$aux["user"] = $res["user"];
			$aux["hits"] = $res["hits"];
			$aux["public"] = $res["public"];
			//  The file count is not needed by any caller, so save the query. GG
			//	    $aux["files"] = $this->getOne("select count(*) from `tiki_files` where `galleryId`=?",array((int)$gid));
			$ret[] = $aux;
		}
		if ($old_sort_mode == 'files_asc') {
			usort($ret, 'compare_files');
		}
		if ($old_sort_mode == 'files_desc') {
			usort($ret, 'r_compare_files');
		}

		if (in_array($old_sort_mode, array( 'files_desc', 'files_asc'))) {
			$ret = array_slice($ret, $old_offset, $old_maxRecords);
		}

		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	// Semaphore functions ////
	function get_semaphore_user($semName, $objectType='wiki page') {
		global $user;
		// the old semaphores have been deleted by semaphore_is_set - this function must be called before
		$query = "select `user` from `tiki_semaphores` where `semName`=? and `objectType`=?";
		$result = $this->query($query, array($semName, $objectType));
		$user_is_in = false;
		while ($res = $result->fetchRow()) {
			if ($res['user'] != $user || (!$user && $res['user'] == 'anonymous')) {
				return $res['user']; // return the other users if exist
			} else {
				$user_is_in = true;
			}
		}
		if ($user_is_in)
			return $user;
		else
			return '';
	}

	function semaphore_is_set($semName, $limit, $objectType='wiki page') {
		$lim = $this->now - $limit;
		$query = "delete from `tiki_semaphores` where `timestamp`<?"; // clean all the old semaphores even if it is not on the object
		$result = $this->query($query,array((int)$lim));
		$query = "select `semName`  from `tiki_semaphores` where `semName`=? and `objectType`=?";
		$result = $this->query($query,array($semName, $objectType));
		return $result->numRows();
	}

	function semaphore_set($semName, $objectType='wiki page') {
		global $user;

		if ($user == '') {
			$user = 'anonymous';
		}

		//  $cant=$this->getOne("select count(*) from `tiki_semaphores` where `semName`='$semName'");
		$query = "delete from `tiki_semaphores` where `semName`=? and `objectType`=?";
		$this->query($query,array($semName, $objectType));
		$query = "insert into `tiki_semaphores`(`semName`,`timestamp`,`user`, `objectType`) values(?,?,?,?)";
		$result = $this->query($query,array($semName,(int)$this->now,$user,$objectType));
		return $this->now;
	}

	function semaphore_unset($semName, $lock, $objectType='wiki page') {
		$query = "delete from `tiki_semaphores` where `semName`=? and `timestamp`=? and `objectType`=?";
		$result = $this->query($query,array($semName,(int)$lock, $objectType));
	}

	// Hot words methods ////
	/*shared*/
	function get_hotwords() {
		static $cache_hotwords;
		if ( isset($cache_hotwords) ) {
			return $cache_hotwords;
		}
		$query = "select * from `tiki_hotwords`";
		$result = $this->query($query, array(),-1,-1, false);
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[$res["word"]] = $res["url"];
		}
		$cache_hotwords = $ret;
		return $ret;
	}

	// FRIENDS METHODS //
	function list_user_friends($user, $offset = 0, $maxRecords = -1, $sort_mode = 'login_asc', $find = '')
	{
		global $userlib;

		$sort_mode = $this->convert_sortmode($sort_mode);

		if($find) {
			$findesc = '%'.$find.'%';
			$mid=" and (u.`login` like ? or p.`value` like ?) ";
			$bindvars=array($user,$findesc,$findesc);
		} else {
			$mid='';
			$bindvars=array($user);
		}

		// TODO: same as list_users
		$query = "select u.*, p.`value` as realName from `tiki_friends` as f, `users_users` as u left join `tiki_user_preferences` p on u.`login`=p.`user` and p.`prefName` = 'realName' where u.`login`=f.`friend` and f.`user`=? and f.`user` <> f.`friend` $mid order by $sort_mode";
		$query_cant = "select count(*) from `tiki_friends` as f, `users_users` as u left join `tiki_user_preferences` p on u.`login`=p.`user` and p.`prefName` = 'realName' where u.`login`=f.`friend` and f.`user`=? $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = Array();
		while ($res = $result->fetchRow()) {
			$res['realname'] = $this->get_user_preference($res['login'], 'realName');
			$ret[] = $res;
		}
		$retval = Array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;

	}
	function list_online_friends($user)
	{
		global $userlib;
		$this->update_session();

		$bindvars = array($user);

		// TODO: same as list_users
		$query = "select u.*, p.`value` as realName from `tiki_friends` as f, `users_users` as u, `tiki_sessions` s left join `tiki_user_preferences` p on u.`login`=p.`user` and p.`prefName` = 'realName' where u.`login`=f.`friend` and s.`user`=u.`login` and f.`user`=? and f.`user` <> f.`friend`";

		$result = $this->query($query,$bindvars);

		$ret = Array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}
		return $ret;
	}


	function verify_friendship($user, $friend)
	{
		if ($user == $friend) {
			return 0;
		}

		$query = "select count(*) from `tiki_friends` where `user`=? and `friend`=?";
		return $this->getOne($query, array($user, $friend));
	}

	// Check if there's already a friendship request from userwatched to userwatching
	function verify_friendship_request($userwatched, $userwatching){
		if ($userwatched == $userwatching) {
			return 0;
		}

		$query = "select count(*) from `tiki_friendship_requests` where `userTo`=? and `userFrom`=?";
		return $this->getOne($query, array($userwatching, $userwatched));
	}

	function get_friends_count($user) {
		global $cachelib;
		$cacheKey = 'friends_count_'.$user;

		if ($cachelib->isCached($cacheKey)) {
			return $cachelib->getCached($cacheKey);
		} else {
			$query = "select count(*) from `tiki_friends` where `user`=?";
			$count = $this->getOne($query, array($user));
			$cachelib->cacheItem($cacheKey, $count);
			return $count;
		}
	}

	function list_users($offset = 0, $maxRecords = -1, $sort_mode = 'pref:realName', $find = '', $include_prefs = false) {
		global $user, $prefs, $userprefslib;
		include_once('lib/userprefs/userprefslib.php');

		$bindvars = array();
		if ($prefs['feature_friends'] == 'y' && !$include_prefs) {
			$bindvars[] = $user;
		}
		if ( $find ) {
			$findesc = '%'.$find.'%';
			$mid = 'where (`login` like ? or p1.`value` like ?)';
			$mid_cant = $mid;
			$bindvars[] = $findesc;
			$bindvars[] = $findesc;
			$bindvars2 = array($findesc, $findesc);
			$find_join = " left join `tiki_user_preferences` p1 on (u.`login` = p1.`user` and p1.`prefName` = 'realName')";
			$find_join_cant = $find_join;
		} else {
			$mid = '';
			$bindvars2 = array();
			$find_join = '';
			$find_join_cant = '';
			$mid_cant = '';
		}

		// This allows to use a sort_mode by prefs
		// In this case, sort_mode must have this syntax :
		//   pref:PREFERENCE_NAME[_asc|_desc]
		// e.g. to sort on country :
		//   pref:country  OR  pref:country_asc  OR  pref:country_desc

		if ( $ppos = strpos($sort_mode, ':') ) {

			$sort_mode = substr($sort_mode, $ppos + 1);
			$sort_by_pref = true;

			if ( ereg('^(.+)_(asc|desc)$', $sort_mode, $regs) ) {
				$sort_value = $regs[1];
				$sort_way = $regs[2];
				unset($regs);
			}

			if ( $find_join != '' && $sort_value == 'realName' ) {
				// Avoid two joins if we can do only one
				$find_join = '';
				$mid = 'where (`login` like ? or p.`value` like ?)';
			}
			$sort_mode = "p.`value` $sort_way";
			$pref_where = ( ( $mid == '' ) ? 'where' : $mid.' and' )." p.`prefName` = '$sort_value'";
			$pref_join = 'left join `tiki_user_preferences` p on (u.`login` = p.`user`)';
			$pref_field = ', p.`value` as sf';

		} else {

			$sort_mode = $this->convert_sortmode($sort_mode);
			$pref_where = $mid;
			$pref_join = '';
			$pref_field = '';
		}

		if ( $sort_mode != '' ) $sort_mode = 'order by '.$sort_mode;

		// Need to use a subquery to avoid bad results when using a limit and an offset, with at least MySQL
		if ($prefs['feature_friends'] == 'y' && !$include_prefs) {
			$query = "select * from (select u.* $pref_field, f.`friend` from `users_users` u $pref_join $find_join left join `tiki_friends` as f on (u.`login` = f.`friend` and f.`user`=?) $pref_where $sort_mode) as tab";
		} else {
			$query = "select u.* $pref_field  from `users_users` u $pref_join $find_join $pref_where $sort_mode";
		}

		$query_cant = "select count(distinct u.`login`) from `users_users` u $find_join_cant $mid_cant";
		$result = $this->query($query, $bindvars, $maxRecords, $offset);
		$cant = $this->getOne($query_cant, $bindvars2);

		$ret = array();
		while ($res = $result->fetchRow()) {
			if ($prefs['feature_friends'] == 'y') {
				$res['friend'] = !empty($res['friend'] );
			}
			if ( $include_prefs ) $res['preferences'] = $userprefslib->get_userprefs($res['login']);
			$ret[] = $res;
		}

		return array('data' => $ret, 'cant' => $cant);
	}

	// BLOG METHODS ////
	function list_blogs($offset = 0, $maxRecords = -1, $sort_mode = 'created_desc', $find = '') {

		if ($find) {
			$findesc = '%' . $find . '%';

			$mid = ' where (`title` like ? or `description` like ?) ';
			$bindvars = array($findesc, $findesc);
		} else {
			$mid = '';
			$bindvars = array();
		}
		$query = "select * from `tiki_blogs` $mid order by " . $this->convert_sortmode($sort_mode);
		$result = $this->query($query, $bindvars);
		$ret = array();
		$cant = 0;
		$nb = 0;
		$i = 0;
		while ($res = $result->fetchRow()) {
			global $user;
			if ($objperm = $this->get_perm_object($res['blogId'], 'blog', '', false)) {
				if ( $objperm['tiki_p_read_blog'] == 'y' ) {
				  ++$cant;
				  if ($maxRecords == - 1 || ($i >= $offset && $nb < $maxRecords)) {
					$ret[] = $res;
					++$nb;
				  }
				++$i;
			  }
			}
		}
		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	/*shared*/
	function get_blog($blogId) {
		global $prefs, $user;

		$query = "select * from `tiki_blogs` where `blogId`=?";
		$result = $this->query($query,array((int)$blogId));
		if ($result->numRows()) {
			$res = $result->fetchRow();
		} else {
			return false;
		}

		if ($prefs['feature_score'] == 'y' && $user != $res['user']) {
			$this->score_event($user, 'blog_read', $blogId);
			$this->score_event($res['user'], 'blog_is_read', "$user:$blogId");
		}

		return $res;
	}

	/*shared*/
	function get_blog_by_title($blogTitle) {
		global $prefs, $user;

    // Avoiding select by name so as to avoid SQL injection problems.
		$query = "select `title`, `blogId` from `tiki_blogs` where `use_title` = 'y' ";
		$result = $this->query($query);
		if ($result->numRows()) {
      while ($res = $result->fetchRow()) {
        if( strtolower($res['title']) == strtolower($blogTitle) ) {
          return $this->get_blog($res['blogId']);
        }
      }
		}

		return false;
	}

	/*shared*/
	function list_user_blogs($user, $include_public = false) {
		$query = "select * from `tiki_blogs` where `user`=? ";
		$bindvars=array($user);
		if ($include_public) {
			$query .= " or `public`=?";
			$bindvars[]='y';
		}
		$query .= "order by `title` asc";
		$result = $this->query($query,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			if ($this->user_has_perm_on_object($user, $res['blogId'], 'blog', 'tiki_p_read_blog')) {
				$ret[] = $res;
			}
		}
		return $ret;
	}

	function list_blogs_user_can_post() {
		global $tiki_p_blog_admin, $user;
		$query = "select * from `tiki_blogs` order by `title` asc";
		$result = $this->query($query);
		$ret = array();

		while ($res = $result->fetchRow()) {
			if( (!empty($user) and $user == $res['user']) || $tiki_p_blog_admin == 'y' || ($res['public'] == 'y' && $this->user_has_perm_on_object($user, $res['blogId'], 'blog', 'tiki_p_blog_post', 'tiki_p_edit_categorized')))
				$ret[] = $res;
		}
		return $ret;
	}

	function list_posts($offset = 0, $maxRecords = -1, $sort_mode = 'created_desc', $find = '', $filterByBlogId = -1) {

		$authorized_blogs = $this->list_blogs();
		$permit_blogs = array();
		for ($i = 0; $i < $authorized_blogs["cant"] ; $i++) {
			$permit_blogs[] = $authorized_blogs["data"][$i]['blogId'];
		}

		if ($filterByBlogId >= 0) {
			// get posts for a given blogId:
			$mid = " where ( `blogId` = ? ) ";
			$bindvars = array($filterByBlogId);
		} else {
			// get posts from all blogs
			$mid = '';
			$bindvars = array();
		}

		if ($find) {
			$findesc = '%' . $find . '%';
			if ($mid == "") {
				$mid = " where ";
			} else {
				$mid .= " and ";
			}
			$mid .= " ( `data` like ? ) ";
			$bindvars[] = $findesc;
		}

		$query = "select * from `tiki_blog_posts` $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_blog_posts` $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$blogId = $res["blogId"];

			if ( ! in_array($blogId, $permit_blogs) ) {
				continue;
			}

			$query = "select `title`  from `tiki_blogs` where `blogId`=?";
			$cant_com = $this->getOne("select count(*) from
					`tiki_comments` where `object`=? and `objectType` = ?",
					array((string) $res["postId"],'blog'));
			$res["comments"] = $cant_com;
			$res["blogTitle"] = $this->getOne($query,array((int)$blogId));
			$res["size"] = strlen($res["data"]);
			$ret[] = $res;
		}
		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	// CMS functions -ARTICLES- & -SUBMISSIONS- ////

	/*shared*/
# Returns a topicname from passed topicid
	function fetchtopicId($topic) {
		$topicId = '';
		$query = "select `topicId`  from `tiki_topics` where `name` = ?";
		$topicId = $this->getOne($query, array($topic) );
		return $topicId;
	}

	/*shared*/
	function list_articles($offset = 0, $maxRecords = -1, $sort_mode = 'publishDate_desc', $find = '', $date_min = 0, $date_max = 0, $user=false, $type = '', $topicId = '', $visible_only = 'y', $topic='', $categId='',$creator='',$group='', $lang='') {

		global $userlib, $user;

		$mid = '';
		$bindvars=array();
		$fromSql = '';

		if ($find) {
			$findesc = '%' . $find . '%';
			$mid = " where (`title` like ? or `heading` like ? or `body` like ?) ";
			$bindvars=array($findesc,$findesc,$findesc);
		}

		// type=>[!]a+b+c+d+...
		if ($type) {
			$invert = "";
			$connect = " or ";
			// parameter list negated?
			if (substr($type,0,1)=="!") {
				$type = substr($type,1);
				$invert = "!";
				$connect = " and ";
			}
			$add = "";
			$rest =  split ("\+", $type);
			foreach($rest as $type) {
				if ($add == "") {
					if ($mid) { $mid .= " and "; } else { $mid = " where "; }
				} else {
					$add .= $connect;
				}
				$add .= " `tiki_articles`.`type`$invert=? ";
				$bindvars[] = $type;
			}
			if ($add <> "") { $mid .= " ( ".$add." ) "; }
		}

		// topicId=>[!]a+b+c+d+...
		if (($topicId) || ($topicId=="0")) {
			$invert = "";
			$connect = " or ";
			// parameter list negated?
			if (substr($topicId,0,1)=="!") {
				$topicId = substr($topicId,1);
				$invert = "!";
				$connect = " and ";
			}
			$add = "";
			$rest =  split ("\+", $topicId);
			foreach ($rest as $topicId) {
				if ($add == "") {
					if ($mid) { $mid .= " and "; } else { $mid = " where "; }
				} else {
					$add .= $connect;
				}
				$add .= " `tiki_articles`.`topicId`$invert=? ";
				$bindvars[] = $topicId;
			}
			if ($add <> "") { $mid .= " ( ".$add." ) "; }
		}

		// topic=>[!]a+b+c+d+...
		if ($topic) {
			$invert = "";
			$connect = " or ";
			// parameter list negated?
			if (substr($topic,0,1)=="!") {
				$topic = substr($topic,1);
				$invert = "!";
				$connect = " and ";
			}
			$add = "";
			$rest = split("\+", $topic);
			foreach ($rest as $topic) {
				if ($add == "") {
					if ($mid) { $mid .= " and "; } else { $mid = " where "; }
				} else {
					$add .= $connect;
				}
				$add .= " `tiki_articles`.`topicName`$invert=? ";
				$bindvars[] = $topic;
			}
			if ($add <> "") { $mid .= " ( ".$add." ) "; }
		}
		if (($visible_only) && ($visible_only <> 'n')) {
			if ( $date_max <= 0 ) {
				// show articles published today
				$date_max = $this->now;
			}
			$bindvars[] = (int)$date_min;
			$bindvars[] = (int)$date_max;
			$bindvars[] = (int)$this->now;
			$condition = "`tiki_articles`.`publishDate`>=? and (`tiki_articles`.`publishDate`<=? or `tiki_article_types`.`show_pre_publ`='y') and (`tiki_articles`.`expireDate`>? or `tiki_article_types`.`show_post_expire`='y')";
			$mid .= ( $mid ? ' and ' : ' where ' ) . $condition;
		}
		if (!empty($lang)) {
			$condition = '`tiki_articles`.`lang`=?';
			$mid .= ($mid)? ' and ': ' where ';
			$mid .= $condition.' ';
			$bindvars[] = $lang;
		}
		if ($mid)
			$mid2 = " and ";
		else
			$mid2 = " where ";
		$mid2 .= "  `tiki_articles`.`type` = `tiki_article_types`.`type`";

		if ($creator!=''){
			$mid2 .= " and `tiki_articles`.`author` like ? " ;
			$bindvars[] = "%$creator%";
		}

		if ($categId) {
			global $categlib; require_once('lib/categories/categlib.php');
			$categlib->getSqlJoin($categId, 'article', '`tiki_articles`.`articleId`', $fromSql, $mid2, $bindvars);
		}
		$query = "select `tiki_articles`.*,
			`tiki_article_types`.`use_ratings`,
			`tiki_article_types`.`show_pre_publ`,
			`tiki_article_types`.`show_post_expire`,
			`tiki_article_types`.`heading_only`,
			`tiki_article_types`.`allow_comments`,
			`tiki_article_types`.`show_image`,
			`tiki_article_types`.`show_avatar`,
			`tiki_article_types`.`show_author`,
			`tiki_article_types`.`show_pubdate`,
			`tiki_article_types`.`show_expdate`,
			`tiki_article_types`.`show_reads`,
			`tiki_article_types`.`show_size`,
			`tiki_article_types`.`show_topline`,
			`tiki_article_types`.`show_subtitle`,
			`tiki_article_types`.`show_linkto`,
			`tiki_article_types`.`show_image_caption`,
			`tiki_article_types`.`show_lang`,
			`tiki_article_types`.`creator_edit`
				from `tiki_articles`, `tiki_article_types`$fromSql
				$mid $mid2 order by ".$this->convert_sortmode($sort_mode);
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$query_cant = "select count(*) from  `tiki_articles`, `tiki_article_types`$fromSql $mid $mid2";
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();
		while ($res = $result->fetchRow()) {
			if ($res['topicId'] != 0 && $userlib->object_has_one_permission($res['topicId'], 'topic')) {// if no topic or if topic has no special perm don't have to check for topic perm
				$add1 = $this->user_has_perm_on_object($user,$res['topicId'],'topic','tiki_p_topic_read');
			} else {
				$add1 = $this->user_has_perm_on_object($user, $res['articleId'],'article', 'tiki_p_read_article') ;
			}
			$add2 = $this->user_has_perm_on_object($user, $res['articleId'],'article', 'tiki_p_articles_read_heading');
			// no need to do all of the following if we are not adding this article to the array
			if ($add1 || $add2) {
				$res["entrating"] = floor($res["rating"]);
				if (empty($res["body"])) {
					$res["isEmpty"] = 'y';
				} else {
					$res["isEmpty"] = 'n';
				}
				if (strlen($res["image_data"]) > 0) {
					$res["hasImage"] = 'y';
				} else {
					$res["hasImage"] = 'n';
				}
				$res['count_comments'] = 0;

				// Determine if the article would be displayed in the view page
				$res["disp_article"] = 'y';
				if (($res["show_pre_publ"] != 'y') and ($this->now < $res["publishDate"])) {
					$res["disp_article"] = 'n';
				}
				if (($res["show_post_expire"] != 'y') and ($this->now > $res["expireDate"])) {
					$res["disp_article"] = 'n';
				}
				$ret[] = $res;
			}
		}
		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	/*shared*/
	function list_submissions($offset = 0, $maxRecords = -1, $sort_mode = 'publishDate_desc', $find = '', $date = '') {

		if ($find) {
			$findesc = $this->qstr('%' . $find . '%');
			$mid = " where (`title` like ? or `heading` like ? or `body` like ?) ";
			$bindvars = array($findesc,$findesc,$findesc);
		} else {
			$mid = '';
			$bindvars = array();
		}

		if ($date) {
			if ($mid) {
				$mid .= " and `publishDate` <= ? ";
			} else {
				$mid = " where `publishDate` <= ? ";
			}
			$bindvars[] = $date;
		}

		$query = "select * from `tiki_submissions` $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_submissions` $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$res["entrating"] = floor($res["rating"]);

			if (empty($res["body"])) {
				$res["isEmpty"] = 'y';
			} else {
				$res["isEmpty"] = 'n';
			}

			if (strlen($res["image_data"]) > 0) {
				$res["hasImage"] = 'y';
			} else {
				$res["hasImage"] = 'n';
			}

			$ret[] = $res;
		}

		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	function get_article($articleId) {
		global $user, $tiki_p_admin_cms, $prefs, $userlib;
		$mid = " where `tiki_articles`.`type` = `tiki_article_types`.`type` ";
		$query = "select `tiki_articles`.*,
			`users_users`.`avatarLibName`,
			`tiki_article_types`.`use_ratings`,
			`tiki_article_types`.`show_pre_publ`,
			`tiki_article_types`.`show_post_expire`,
			`tiki_article_types`.`heading_only`,
			`tiki_article_types`.`allow_comments`,
			`tiki_article_types`.`comment_can_rate_article`,
			`tiki_article_types`.`show_image`,
			`tiki_article_types`.`show_avatar`,
			`tiki_article_types`.`show_author`,
			`tiki_article_types`.`show_pubdate`,
			`tiki_article_types`.`show_expdate`,
			`tiki_article_types`.`show_reads`,
			`tiki_article_types`.`show_size`,
			`tiki_article_types`.`show_topline`,
			`tiki_article_types`.`show_subtitle`,
			`tiki_article_types`.`show_linkto`,
			`tiki_article_types`.`show_image_caption`,
			`tiki_article_types`.`show_lang`,
			`tiki_article_types`.`creator_edit`
				from (`tiki_articles`, `tiki_article_types`) left join `users_users` on `tiki_articles`.`author` = `users_users`.`login`  $mid and `tiki_articles`.`articleId`=?";
		//$query = "select * from `tiki_articles` where `articleId`=?";
		$result = $this->query($query,array((int)$articleId));
		if ($result->numRows()) {
			$res = $result->fetchRow();
			$res["entrating"] = floor($res["rating"]);
		} else {
			return '';
		}
		if (!($tiki_p_admin_cms == 'y' || (($this->user_has_perm_on_object($user, $articleId, 'article','tiki_p_read_article') || ($this->user_has_perm_on_object($user, $articleId, 'article','tiki_p_articles_read_heading'))) && (!$res['topicId'] || !$userlib->object_has_one_permission($res['topicId'], 'topic') || $this->user_has_perm_on_object($user, $res['topicId'], 'topic','tiki_p_topic_read'))))) {
			return false;
		}

		if ($prefs['feature_score'] == 'y') {
			$this->score_event($user, 'article_read', $articleId);
			$this->score_event($res['author'], 'article_is_read', $articleId . '_' . $user);
		}

		return $res;
	}

	function get_submission($subId) {
		$query = "select * from `tiki_submissions` where `subId`=?";
		$result = $this->query($query,array((int) $subId));
		if ($result->numRows()) {
			$res = $result->fetchRow();
			$res["entrating"] = floor($res["rating"]);
		} else {
			return false;
		}
		return $res;
	}

	/*shared*/
	function get_topic_image($topicId) {
		// Fixed query. -rlpowell
		$query = "select `image_name` ,`image_size`,`image_type`, `image_data` from `tiki_topics` where `topicId`=?";
		$result = $this->query($query, array((int) $topicId));
		$res = $result->fetchRow();
		return $res;
	}

	/*shared*/
	function get_article_image($id) {
		$query = "select `image_name` ,`image_size`,`image_type`, `image_data` from `tiki_articles` where `articleId`=?";
		$result = $this->query($query, array((int) $id));
		$res = $result->fetchRow();
		return $res;
	}

	/*shared*/
	function get_featured_links($max = 10) {
		$query = "select * from `tiki_featured_links` where `position` > ? order by ".$this->convert_sortmode("position_asc");
		$result = $this->query($query, array(0), (int)$max, 0 );
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}
		return $ret;
	}

	function setSessionId($sessionId) {
		$this->sessionId = $sessionId;
	}

	function getSessionId() {
		return $this->sessionId;
	}

	function update_session() {
		static $uptodate = false;
		if ( $uptodate === true || $this->sessionId === null ) return true;

		global $user, $prefs;
		global $logslib; include_once("lib/logs/logslib.php");

		if ($user === false) $user = '';
		$delay = 5*60; // 5 minutes
		$oldy = $this->now - $delay;
		if ($user != '') { // was the user timeout?
			$query = "select count(*) from `tiki_sessions` where `sessionId`=?";
			$cant = $this->getOne($query, array($this->sessionId));
			if ($cant == 0)
				$logslib->add_log("login", "back", $user, '', '', $this->now);
		}
		$query = "select * from `tiki_sessions` where `timestamp`<?";
		$result = $this->query($query, array($oldy));
		while ($res = $result->fetchRow()) {
			if ($res['user'] && $res['user'] != $user)
				$logslib->add_log('login', 'timeout', $res['user'], ' ', ' ', $res['timestamp']+ $delay);
		}
		$query = "delete from `tiki_sessions` where `sessionId`=? or `timestamp`<?";
		$bindvars = array($this->sessionId, $oldy);
		if ($user) {
			$query .= " or `user`=?";
			$bindvars[] = $user;
		}
		$this->query($query, $bindvars, -1, -1, false);
		$query = "insert into `tiki_sessions`(`sessionId`,`timestamp`,`user`,`tikihost`) values(?,?,?,?)";
		$result = $this->query($query, array($this->sessionId, (int)$this->now, $user,$_SERVER['HTTP_HOST']), -1, -1, false );
		if ($prefs['session_db'] == 'y') {
			// clean up adodb sessions as well in case adodb session garbage collection not working
			$query = "delete from `sessions` where `expiry`<?";
			$this->query($query, array($oldy));
		}

		$uptodate = true;
		return true;
	}

	function count_sessions() {
		$this->update_session();
		$query = "select count(*) from `tiki_sessions`";
		$cant = $this->getOne($query,array());
		return $cant;
	}

	function count_cluster_sessions() {
		$this->update_session();
		$query = "select `tikihost`, count(`tikihost`) as cant from `tiki_sessions` group by `tikihost`";
		$result = $this->query($query, array());
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[$res["tikihost"]]=$res["cant"];
		}
		return($ret);
	}

	/*shared*/
	function get_assigned_modules($position = null, $displayed="n") {
		$filter = '';

		if ( $position !== null ) {
			$filter .= 'where `position`=?';
			$bindvars = array($position);
		}

		if ( $displayed != 'n' ) {
			$filter .= ( $filter == '' ? 'where' : 'and' ) . " (`type` is null or `type` != 'h')";
		}

		$query = "select * from `tiki_modules` $filter order by ".$this->convert_sortmode("ord_asc");

		if ( isset($bindvars) ) {
			$result = $this->query($query, $bindvars);
		} else {
			$result = $this->query($query);
		}

		$ret = array();
		while ( $res = $result->fetchRow() ) {
			if ($res["groups"] && strlen($res["groups"]) > 1) {
				$grps = @unserialize($res["groups"]);

				$res["module_groups"] = '';
				if (is_array($grps)) {
					foreach ($grps as $grp) {
						$res["module_groups"] .= " $grp ";
					}
				}
			} else {
				$res["module_groups"] = '&nbsp;';
			}
			if ( $position === null ) {
				if ( ! isset($ret[$res['position']]) ) {
					$ret[$res['position']] = array();
				}
				$ret[$res['position']][] = $res;
			} else {
				$ret[] = $res;
			}
		}
		return $ret;
	}

	/*shared*/
	function is_user_module($name) {
		$query = "select `name`  from `tiki_user_modules` where `name`=?";
		$result = $this->query($query,array($name));
		return $result->numRows();
	}

	/*shared*/
	function get_user_module($name) {
		global $cachelib;
		$cacheKey = "user_modules_$name";

		if ( $cachelib->isCached($cacheKey) ) {
			$return = unserialize($cachelib->getCached($cacheKey));
		} else {
			$query = "select * from `tiki_user_modules` where `name`=?";
			$result = $this->query($query, array($name));
			$return = $result->fetchRow();
			$cachelib->cacheItem($cacheKey, serialize($return));
		}

		return $return;
	}

	function cache_links($links) {
		global $prefs;
		if ($prefs['cachepages'] != 'y') return false;
		foreach ($links as $link) {
			if (!$this->is_cached($link)) {
				$this->cache_url($link);
			}
		}
	}

	function get_links($data) {
		$links = array();

		/// Prevent the substitution of link [] inside a <tag> ex: <input name="tracker[9]" ... >
		$data = preg_replace("/<[^>]*>/","",$data);

		/// Match things like [...], but ignore things like [[foo].
		// -Robin
		if (preg_match_all("/(?<!\[)\[([^\[\|\]]+)(\||\])/", $data, $r1)) {
			$res = $r1[1];
			$links = array_unique($res);
		}

		return $links;
	}

	function get_links_nocache($data) {
		$links = array();

		if (preg_match_all("/\[([^\]]+)/", $data, $r1)) {
			$res = array();

			foreach ($r1[1] as $alink) {
				$parts = explode('|', $alink);

				if (isset($parts[1]) && $parts[1] == 'nocache') {
					$res[] = $parts[0];
				} elseif (isset($parts[2]) && $parts[2] == 'nocache') {
					$res[] = $parts[0];
				} else {
					if (isset($parts[3]) && $parts[3] == 'nocache') {
						$res[] = $parts[0];
					}
				}
				/// avoid caching URLs with common binary file extensions
				$extension = substr($parts[0], -4);
				$binary = array(
						'.arj',
						'.asf',
						'.avi',
						'.bz2',
						'.com',
						'.dat',
						'.doc',
						'.exe',
						'.hqx',
						'.mid',
						'.mov',
						'.mp3',
						'.mpg',
						'.ogg',
						'.pdf',
						'.ram',
						'.rar',
						'.rpm',
						'.rtf',
						'.sea',
						'.sit',
						'.tar',
						'.tgz',
						'.wav',
						'.wmv',
						'.xls',
						'.zip',
						'ar.Z', // .tar.Z
						'r.gz'  // .tar.gz
							);
				if (in_array($extension, $binary)) {
					$res[] = $parts[0];
				}

			}

			$links = array_unique($res);
		}

		return $links;
	}

	function is_cacheable($url) {
		// simple implementation: future versions should analyse
		// if this is a link to the local machine
		if (strstr($url, 'tiki-')) {
			return false;
		}

		if (strstr($url, 'messu-')) {
			return false;
		}

		return true;
	}

	function is_cached($url) {
		$query = "select `cacheId`  from `tiki_link_cache` where `url`=?";
		$result = $this->query($query, array($url) );
		$cant = $result->numRows();
		return $cant;
	}

	function list_cache($offset, $maxRecords, $sort_mode, $find) {

		if ($find) {
			$findesc = '%' . $find . '%';

			$mid = " where (`url` like ?) ";
			$bindvars=array($findesc);
		} else {
			$mid = "";
			$bindvars=array();
		}

		$query = "select `cacheId` ,`url`,`refresh` from `tiki_link_cache` $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_link_cache` $mid";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}

		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	function refresh_cache($cacheId) {
		$query = "select `url`  from `tiki_link_cache`
			where `cacheId`=?";

		$url = $this->getOne($query, array( $cacheId ) );
		$data = $this->httprequest($url);
		$query = "update `tiki_link_cache`
			set `data`=?, `refresh`=?
			where `cacheId`=? ";
		$result = $this->query($query, array( $data, $this->now, $cacheId) );
		return true;
	}

	function remove_cache($cacheId) {
		$query = "delete from `tiki_link_cache` where `cacheId`=?";

		$result = $this->query($query, array( $cacheId ) );
		return true;
	}

	function get_cache($cacheId) {
		$query = "select * from `tiki_link_cache`
			where `cacheId`=?";

		$result = $this->query($query, array( $cacheId ) );
		$res = $result->fetchRow();
		return $res;
	}

	function get_cache_id($url) {
		if (!$this->is_cached($url))
			return false;

		$query = "select `cacheId`  from `tiki_link_cache`
			where `url`=?";
		$id = $this->getOne($query, array( $url ) );
		return $id;
	}

	function vote_page($page, $points) {
		$query = "update `pages`
			set `points`=`points`+$points, `votes`=`votes`+1
			where `pageName`=?";
		$result = $this->query($query, array( $page ));
	}

	function get_votes($page) {
		$query = "select `points` ,`votes`
			from `pages` where `pageName`=?";
		$result = $this->query($query, array( $page ));
		$res = $result->fetchRow();
		return $res;
	}

	// This funcion return the $limit most accessed pages
	// it returns pageName and hits for each page
	function get_top_pages($limit) {
		$query = "select `pageName` , `hits`
			from `tiki_pages`
			order by `hits` desc";

		$result = $this->query($query, array(),$limit);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$aux["pageName"] = $res["pageName"];

			$aux["hits"] = $res["hits"];
			$ret[] = $aux;
		}

		return $ret;
	}

	// Returns the name of "n" random pages
	function get_random_pages($n) {
		$query = "select count(*) from `tiki_pages`";

		$cant = $this->getOne($query,array());

		// Adjust the limit if there are not enough pages
		if ($cant < $n)
			$n = $cant;

		// Now that we know the number of pages to pick select `n`  random positions from `0` to cant
		$positions = array();

		for ($i = 0; $i < $n; $i++) {
			$pick = rand(0, $cant - 1);

			if (!in_array($pick, $positions))
				$positions[] = $pick;
		}

		// Now that we have the positions we just build the data
		$ret = array();

		$temp_max = count($positions);
		for ($i = 0; $i < $temp_max; $i++) {
			$index = $positions[$i];

			$query = "select `pageName`  from `tiki_pages`";
			$name = $this->getOne($query,array(),1,$index);
			$ret[] = $name;
		}

		return $ret;
	}

	// Returns the name of all pages
	function get_all_pages() {

		$query = "select `pageName` from `tiki_pages`";
		$result = $this->query($query,array());
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}

		return $ret;
	}

	/**
	 * \brief Cache given url
	 * If \c $data present (passed) it is just associated \c $url and \c $data.
	 * Else it will request data for given URL and store it in DB.
	 * Actualy (currently) data may be proviced by TIkiIntegrator only.
	 */
	function cache_url($url, $data = '') {
		// Avoid caching internal references... (only if $data not present)
		// (cdx) And avoid other protocols than http...
		// 03-Nov-2003, by zaufi
		// preg_match("_^(mailto:|ftp:|gopher:|file:|smb:|news:|telnet:|javascript:|nntp:|nfs:)_",$url)
		// was removed (replaced to explicit http[s]:// detection) bcouse
		// I now (and actualy use in my production Tiki) another bunch of protocols
		// available in my konqueror... (like ldap://, ldaps://, nfs://, fish://...)
		// ... seems like it is better to enum that allowed explicitly than all
		// noncacheable protocols.
		if (((strstr($url, 'tiki-') || strstr($url, 'messu-')) && $data == '')
				|| (substr($url, 0, 7) != 'http://' && substr($url, 0, 8) != 'https://'))
			return false;
		// Request data for URL if nothing given in parameters
		// (reuse $data var)
		if ($data == '') $data = $this->httprequest($url);

		// If stuff inside [] is *really* malformatted, $data
		// will be empty.  -rlpowell
		if ($data)
		{
			$query = "insert into `tiki_link_cache`(`url`,`data`,`refresh`) values(?,?,?)";
			$result = $this->queryError($query, $error, array($url,$data,$this->now) );
			return !isset($error);
		}
		else return false;
	}

	// Removes all the versions of a page and the page itself
	/*shared*/
	function remove_all_versions($page, $comment = '') {
		global $dbTiki, $user, $prefs;
		if ($prefs['feature_actionlog'] == 'y') {
			$info= $this->get_page_info($page);
			$params = 'del='.strlen($info['data']);
		} else {
			$params = '';
		}
		//  Deal with mail notifications.
		include_once('lib/notifications/notificationemaillib.php');
		$foo = parse_url($_SERVER["REQUEST_URI"]);
		$machine = $this->httpPrefix(). dirname( $foo["path"] );
		$page_info = $this->get_page_info($page);
		sendWikiEmailNotification('wiki_page_deleted', $page, $user, $comment, 1, $page_info['data'], $machine);
		
		global $wikilib; include_once('lib/wiki/wikilib.php');
		global $multilinguallib;
		if (!is_object($multilinguallib)) {
			include_once('lib/multilingual/multilinguallib.php');// must be done even in feature_multilingual not set
		}
		$multilinguallib->detachTranslation('wiki page', $multilinguallib->get_page_id_from_name($page));
		$this->invalidate_cache($page);
		//Delete structure references before we delete the page
		$query  = "select `page_ref_id` ";
		$query .= "from `tiki_structures` ts, `tiki_pages` tp ";
		$query .= "where ts.`page_id`=tp.`page_id` and `pageName`=?";
		$result = $this->query($query, array( $page ) );
		while ($res = $result->fetchRow()) {
			$this->remove_from_structure($res["page_ref_id"]);
		}
		$query = "delete from `tiki_pages` where `pageName` = ?";
		$result = $this->query($query, array( $page ) );
		if ($prefs['feature_contribution'] == 'y') {
			global $contributionlib; include_once('lib/contribution/contributionlib.php');
			$contributionlib->remove_page($page);
		}
		$query = "delete from `tiki_history` where `pageName` = ?";
		$result = $this->query($query, array( $page ) );
		$query = "delete from `tiki_links` where `fromPage` = ?";
		$result = $this->query($query, array( $page ) );
		global $logslib; include_once('lib/logs/logslib.php');
		$logslib->add_action('Removed', $page, 'wiki page', $params);
		//get_strings tra("Removed");
		$query = "update `users_groups` set `groupHome`=? where `groupHome`=?";
		$this->query($query, array(NULL, $page));
		$query = 'delete from `tiki_theme_control_objects` where `name`=? and `type`=?';
		$this->query($query, array($page, 'wiki page'));
		$this->remove_object('wiki page', $page);

		$query = "delete from `tiki_user_watches` where `event`=? and `object`=?";
		$this->query($query,array('wiki_page_changed', $page));
		$query = "delete from `tiki_group_watches` where `event`=? and `object`=?";
		$this->query($query,array('wiki_page_changed', $page));

		$atts = $wikilib->list_wiki_attachments($page, 0, -1, 'created_desc', '');
		foreach ($atts["data"] as $at) {
			$wikilib->remove_wiki_attachment($at["attId"]);
		}

		$wikilib->remove_footnote('', $page);

		return true;
	}

	/*shared*/
	function remove_from_structure($page_ref_id) {
		// Now recursively remove
		$query  = "select `page_ref_id` ";
		$query .= "from `tiki_structures` as ts, `tiki_pages` as tp ";
		$query .= "where ts.`page_id`=tp.`page_id` and `parent_id`=?";
		$result = $this->query($query, array( $page_ref_id ) );

		while ($res = $result->fetchRow()) {
			$this->remove_from_structure($res["page_ref_id"]);
		}

		global $structlib;include_once('lib/structures/structlib.php');
		$page_info = $structlib->s_get_page_info($page_ref_id);
		$query = "update `tiki_structures` set `pos`=`pos`-1 where `pos`>? and `parent_id`=?";
		$this->query($query ,array((int)$page_info['pos'], (int)$page_info['parent_id']));
		$query = "delete from `tiki_structures` where `page_ref_id`=?";
		$result = $this->query($query, array( $page_ref_id ) );
		return true;
	}

	/*shared*/
	function list_galleries($offset = 0, $maxRecords = -1, $sort_mode = 'name_desc', $user, $find) {
		// If $user is admin then get ALL galleries, if not only user galleries are shown
		global $tiki_p_admin_galleries;

		$old_sort_mode = '';

		if (in_array($sort_mode, array(
						'images desc',
						'images asc'
						))) {
			$old_offset = $offset;

			$old_maxRecords = $maxRecords;
			$old_sort_mode = $sort_mode;
			$sort_mode = 'user desc';
			$offset = 0;
			$maxRecords = -1;
		}

		// If the user is not admin then select `it` 's own galleries or public galleries
		if (($tiki_p_admin_galleries == 'y') or ($user == 'admin')) {
			$whuser = "";
			$bindvars=array();
		} else {
			$whuser = "where `user`=? or public=?";
			$bindvars=array($user,'y');
		}

		if ($find) {
			$findesc = '%' . $find . '%';

			if (empty($whuser)) {
				$whuser = "where `name` like ? or `description` like ?";
				$bindvars=array($findesc,$findesc);
			} else {
				$whuser .= " and `name` like ? or `description` like ?";
				$bindvars[]=$findesc;
				$bindvars[]=$findesc;
			}
		}

		// If sort mode is versions then offset is 0, maxRecords is -1 (again) and sort_mode is nil
		// If sort mode is links then offset is 0, maxRecords is -1 (again) and sort_mode is nil
		// If sort mode is backlinks then offset is 0, maxRecords is -1 (again) and sort_mode is nil
		$query = "select * from `tiki_galleries` $whuser order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_galleries` $whuser";
		$result = $this->query($query,$bindvars,$maxRecords,$offset);
		$cant = $this->getOne($query_cant,$bindvars);
		$ret = array();

		while ($res = $result->fetchRow()) {

			global $user;
			$add=$this->user_has_perm_on_object($user,$res['galleryId'],'image gallery','tiki_p_view_image_gallery');
			if ($add) {
				$aux = array();

				$aux["name"] = $res["name"];
				$gid = $res["galleryId"];
				$aux["visible"] = $res["visible"];
				$aux["id"] = $gid;
				$aux["galleryId"] = $res["galleryId"];
				$aux["description"] = $res["description"];
				$aux["created"] = $res["created"];
				$aux["lastModif"] = $res["lastModif"];
				$aux["user"] = $res["user"];
				$aux["hits"] = $res["hits"];
				$aux["public"] = $res["public"];
				$aux["theme"] = $res["theme"];
				$aux["geographic"] = $res["geographic"];
				$aux["images"] = $this->getOne("select count(*) from `tiki_images` where `galleryId`=?",array($gid));
				$ret[] = $aux;
			}
		}

		if ($old_sort_mode == 'images asc') {
			usort($ret, 'compare_images');
		}

		if ($old_sort_mode == 'images desc') {
			usort($ret, 'r_compare_images');
		}

		if (in_array($old_sort_mode, array(
						'images desc',
						'images asc'
						))) {
			$ret = array_slice($ret, $old_offset, $old_maxRecords);
		}

		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	function last_pages($maxRecords = -1) {
		global $user;
		$query = "select `pageName`,`lastModif`,`user` from `tiki_pages` order by ".$this->convert_sortmode('lastModif_desc');
		$result = $this->query($query,array(),$maxRecords,0);
		$ret = array();
		while ($res = $result->fetchRow()) {
			//WYSIWYCA hack: the $maxRecords will not be respected
			if($this->user_has_perm_on_object($user,$res["pageName"],'wiki page','tiki_p_view')) {
				$ret[] = $res;
			}
		}
		return $ret;
	}


	function last_major_pages($maxRecords = -1) {
		global $user;
		$query = "select distinct(tp.`pageName`),tp.`lastModif`,tp.`user` from `tiki_pages` tp left join `tiki_actionlog` ta
			on tp.`pageName`= ta.`object` and ta.`objectType`= 'wiki page' where ta.`action`!='' and ta.`objectType`= 'wiki page' order by tp.".$this->convert_sortmode('lastModif_desc');
		$result = $this->query($query,array(),$maxRecords,0);
		$ret = array();
		while ($res = $result->fetchRow()) {
			//WYSIWYCA hack: the $maxRecords will not be respected
			if($this->user_has_perm_on_object($user,$res["pageName"],'wiki page','tiki_p_view')) {
				$ret[] = $res;
			}
		}
		return $ret;
	}
	// use this function to speed up when pagename is only needed (the 3 getOne can killed tikiwith more that 3000 pages)
	function list_pageNames($offset = 0, $maxRecords = -1, $sort_mode = 'pageName_asc', $find = '') {
		return $this->list_pages($offset, $maxRecords, $sort_mode, $find, '', true, true);
	}

	function list_pages($offset = 0, $maxRecords = -1, $sort_mode = 'pageName_desc', $find = '', $initial = '', $exact_match = true, $onlyName=false, $forListPages=false, $only_orphan_pages = false, $filter='', $onlyCant=false) {
		global $prefs, $user;

		$join_tables = '';
		$join_bindvars = array();
		$old_sort_mode = '';
		if ($sort_mode == 'size_desc') $sort_mode = 'page_size_desc';
		if ($sort_mode == 'size_asc') $sort_mode = 'page_size_asc';
		$select = '';

		// If sort mode is versions, links or backlinks then offset is 0, maxRecords is -1 (again) and sort_mode is nil
		$need_everything = false;
		if ( in_array($sort_mode, array(
			'versions_desc',
			'versions_asc',
			'links_asc',
			'links_desc',
			'backlinks_asc',
			'backlinks_desc'
		))) {
			$old_sort_mode = $sort_mode;
			$sort_mode = 'user_desc';
			$need_everything = true;
		}

		if (is_array($find)) { // you can use an array of pages
			$mid = " where `pageName` IN (".implode(',',array_fill(0,count($find),'?')).")";
			$bindvars = $find;
		} elseif (is_string($find) && !empty($find)) { // or a string
			if (!$exact_match && $find) {
				$find = preg_replace("/([^\s]+)/","%\\1%",$find);
				$f = preg_split("/[\s]+/",$find,-1,PREG_SPLIT_NO_EMPTY);
				if (empty($f)) {//look for space...
					$mid = " where `pageName` like '%$find%'";
				} else {
					$mid = " where `pageName` like ".implode(' or `pageName` like ',array_fill(0,count($f),'?'));
					$bindvars = $f;
				}
			} else {
				$mid = " where `pageName` like ? ";
				$bindvars = array('%' . $find . '%');
			}
		} else {
			$bindvars = array();
			$mid = '';
		}

		$distinct = '';
		if (!empty($filter)) {
			$tmp_mid = array();
			foreach ($filter as $type=>$val) {
				if ($type == 'categId') {
					$cat_count = count( (array) $val );
					$join_tables .= " inner join `tiki_objects` as tob on (tob.`itemId`= tp.`pageName` and tob.`type`= ?) inner join `tiki_category_objects` as tc on (tc.`catObjectId`=tob.`objectId` and tc.`categId` IN(" . implode(', ', array_fill(0, $cat_count, '?')) . ")) ";

					if( $cat_count > 1 ) {
						$distinct = ' DISTINCT ';
					}

					$join_bindvars = array_merge(array('wiki page'), (array) $val);
				} elseif ($type == 'lang') {
					$tmp_mid[] = 'tp.`lang`=?';
					$bindvars[] = $val;
				} elseif ($type == 'structHead') {
					$join_tables .= " inner join `tiki_structures` as ts on (ts.`page_id` = tp.`page_id` and ts.`parent_id` = 0) ";
					$select .= ',ts.`page_alias`';
				} elseif ($type == 'langOrphan') {
					$join_tables .= " left join tiki_translated_objects tro on (tro.type = 'wiki page' AND tro.objId = tp.page_id) ";
					$tmp_mid[] = "( (tro.traId IS NULL AND tp.lang != ?) OR tro.traId NOT IN(SELECT traId FROM tiki_translated_objects WHERE lang = ?))";
					$bindvars[] = $val;
					$bindvars[] = $val;
				}
			}
			if (!empty($tmp_mid)) {
				$mid .= empty($mid) ? ' where (' : ' and (';
				$mid .= implode( ' and ', $tmp_mid ) . ')';
			}
		}
		if (!empty($initial)) {
			$mid .= empty($mid) ? ' where (' : ' and (';
			$tmp_mid = '';
			if (is_array($initial)) {
				foreach($initial as $i) {
					if ( ! empty($tmp_mid) ) $tmp_mid .= ' or ';
					$tmp_mid .= ' `pageName` like ? ';
					$bindvars[] = $i.'%';
				}
			} else {
				$tmp_mid = " `pageName` like ? ";
				$bindvars[] = $initial.'%';
			}
			$mid .= $tmp_mid.')';
			$mmid = $mid;
		}

		if ( $only_orphan_pages ) {
			$join_tables .= ' left join `tiki_links` as tl on tp.`pageName` = tl.`toPage` left join `tiki_structures` as ts on tp.`page_id` = ts.`page_id`';
			$mid .= ( $mid == '' ) ? ' where ' : ' and ';
			$mid .= 'tl.`toPage` IS NULL and `ts`.page_id IS NULL';
		}

		if (!empty($join_bindvars)) {
			$bindvars = empty($bindvars)? $join_bindvars : array_merge($join_bindvars, $bindvars);
		}

		$query = "select $distinct"
			.( $onlyCant ? "tp.`pageName`" : "tp.* ".$select )
			." from `tiki_pages` as tp $join_tables $mid order by ".$this->convert_sortmode($sort_mode);

		$result = $this->query($query, $bindvars);

		$cant = 0;
		$n = -1;
		$ret = array();
		while ($res = $result->fetchRow()) {
			if( $initial ) {
				$valid = false;
				foreach( (array) $initial as $candidate ) {
					if( stripos( $res['pageName'], $candidate ) === 0 ) {
						$valid = true;
						break;
					}
				}

				if( ! $valid )
					continue;
			}
			//WYSIWYCA
			$res['perms'] = $this->get_perm_object($res['pageName'], 'wiki page', $res, false);
			if ( $res['perms']['tiki_p_view'] != 'y' ) continue;

			$n++;
			if ( ! $need_everything && $offset != -1 && $n < $offset ) continue;

			if ( ! $onlyCant && ( $need_everything || $maxRecords == -1 || $cant < $maxRecords ) ) {
				if ( $onlyName ) $res = array('pageName' => $res['pageName']);
				else {
					$page = $res['pageName'];
					$res['len'] = $res['page_size'];
					unset($res['page_size']);
					$res['flag'] = $res['flag'] == 'L' ? 'locked' : 'unlocked';
					if ($forListPages && $prefs['wiki_list_versions'] == 'y')
						$res['versions'] = $this->getOne("select count(*) from `tiki_history` where `pageName`=?",array($page));
					if ($forListPages && $prefs['wiki_list_links'] == 'y')
						$res['links'] = $this->getOne("select count(*) from `tiki_links` where `fromPage`=?",array($page));
					if ($forListPages && $prefs['wiki_list_backlinks'] == 'y')
						$res['backlinks'] = $this->getOne("select count(*) from `tiki_links` where `toPage`=? and `fromPage` not like 'objectlink:%'",array($page));
					// backlinks do not include links from non-page objects TODO: full feature allowing this with options
				}
				$ret[] = $res;
			}
			$cant++;
		}
		if ( ! $need_everything ) $cant += $offset;

		// If sortmode is versions, links or backlinks sort using the ad-hoc function and reduce using old_offset and old_maxRecords
		if ( $need_everything ) {
			switch ( $old_sort_mode ) {
				case 'versions_asc': usort($ret, 'compare_versions'); break;
				case 'versions_desc': usort($ret, 'r_compare_versions'); break;
				case 'links_desc': usort($ret, 'compare_links'); break;
				case 'links_asc': usort($ret, 'r_compare_links'); break;
				case 'backlinks_desc': usort($ret, 'compare_backlinks'); break;
				case 'backlinks_asc': usort($ret, 'r_compare_backlinks'); break;
			}
			$ret = array_slice($ret, $offset, $maxRecords);
		}

		$retval = array();
		$retval['data'] = $ret;
		$retval['cant'] = $cant;
		return $retval;
	}


	// Function that checks for:
	// - tiki_p_admin
	// - the permission itself
	// - individual permission
	// - category permission
	// if O.K. this function shall replace similar constructs in list_pages and other functions above.
	// $categperm is the category permission that should grant $perm. if none, pass 0
	function user_has_perm_on_object($user,$object,$objtype,$perm,$categperm='tiki_p_view_categorized') {
		global $prefs, $userlib;
		static $cacheUserPerm;
		$keyCache = "$user/$object/$objtype/$perm";
		if (!empty($cacheUserPerm[$keyCache])) {
			return $cacheUserPerm[$keyCache];
		}
		// superadmin
		if($userlib->user_has_permission($user, 'tiki_p_admin') || $user == 'admin') {
			$cacheUserPerm[$keyCache] = true;
			return(TRUE);
		}
		if ($userlib->object_has_one_permission($object, $objtype)) {
			// wiki permissions override category permissions
			//handle multiple permissions
			if(is_array($perm)) {
				foreach($perm as $p) {
					if(!$userlib->object_has_permission($user, $object, $objtype,$p)) {
						$cacheUserPerm[$keyCache] = false;
						return(FALSE);
					}
				}
			} else {
				if (!$userlib->object_has_permission($user, $object, $objtype,$perm)) {
					$cacheUserPerm[$keyCache] = false;
					return(FALSE);
				}
			}
			$cacheUserPerm[$keyCache] = true;
			return (TRUE);
		} elseif ($prefs['feature_categories'] == 'y' && $categperm !== 0) {
			// no wiki permissions so now we check category permissions
			global $categlib;
			if (!is_object($categlib)) {
				include_once('lib/categories/categlib.php');
			}
			unset($tiki_p_view_categorized); // unset this var in case it was set previously
			$perms_array = $categlib->get_object_categories_perms($user, $objtype, $object);
			if ($perms_array) {
				$is_categorized = TRUE;
				foreach ($perms_array as $p => $value) {
					$$p = $value;
				}
				if ($tiki_p_admin_categories == 'y' && $tiki_p_view_categorized == 'n')
					$tiki_p_view_categorized = 'y';
			} else {
				$is_categorized = FALSE;
			}
			if ($is_categorized && !empty($categperm) && $$categperm != 'y') {
				$cacheUserPerm[$keyCache] = false;
				return (FALSE);
			}
			// Proposed by sewilco: Put this block into a comment 
			// if you want Do not ignore Group perm on categorized object.
			if ($is_categorized && !empty($categperm) && $$categperm == 'y') {
				$cacheUserPerm[$keyCache] = true;
				return (TRUE);
			}
			
			// if it has no category perms or the user does not have
			// the perms, continue to check individual perms!
		}
		// no individual and no category perms. So has the user the perm itself?
		if (is_array($perm)) {
			foreach($perm as $p) {
				if(!$userlib->user_has_permission($user, $p)) {
					$cacheUserPerm[$keyCache] = false;
					return(FALSE);
				}
			}
		} else {
			if(!$userlib->user_has_permission($user, $perm)) {
				$cacheUserPerm[$keyCache] = false;
				return(FALSE);
			}
		}
		$cacheUserPerm[$keyCache] = true;
		return(TRUE);
	}

	/* get all the perm of an object either in a table or global+smarty set
	 * OPTIMISATION: better to test tiki_p_admin outside for global=false
	 * TODO: all the objectTypes
	 * TODO: replace switch with object
	 * global = true set the global perm and smarty var, otherwise return an array of perms
	 */
	function get_perm_object($objectId, $objectType, $info='', $global=true) {
		global $tiki_p_admin, $user, $prefs, $userlib, $smarty;
		$ret = array();
		if (empty($objectId)) {
			if (!$global) {
				$perms = $userlib->get_permissions(0, -1, 'permName_desc', '', $this->get_permGroup_from_objectType($objectType));
				foreach ($perms['data'] as $perm) {
					$ret[$perm['permName']] = 'y';
				}
			}
			return $ret;
		}

		if ($tiki_p_admin == 'y') {
			if (!$global) {
				$perms = $userlib->get_permissions(0, -1, 'permName_desc', '', $this->get_permGroup_from_objectType($objectType));
				foreach ($perms['data'] as $perm) {
					$ret[$perm['permName']] = 'y';
				}
				global $categlib; include_once('lib/categories/categlib.php');
				if ($userlib->object_has_one_permission($objectId, $objectType) || ($prefs['feature_categories'] == 'y' && $categlib->get_object_categories_perms($user, $objectType, $objectId))) {
					$ret['has_special_perm'] = 'y';
				}
			}
			return $ret;
			/* else : all the perms have already been set in tiki-setup_base */
		} elseif ($perms = $this->get_local_perms($user, $objectId, $objectType, $info, $global)) {
			return $ret;
		} elseif ($userlib->object_has_one_permission($objectId, $objectType)) {
			$perms = $userlib->get_permissions(0, -1, 'permName_desc', '', $this->get_permGroup_from_objectType($objectType));
			$userPerms = $userlib->get_object_permissions_for_user($objectId, $objectType, $user);

			$permAdmin = $this->get_adminPerm_from_objectType($objectType);
			if (in_array($permAdmin, $userPerms)) { // has perm admin - so inherit all the perms
				foreach ($perms['data'] as $perm) {
					$perm = $perm['permName'];
					$ret[$perm] = 'y';
					if ($global) {
						global $$perm;
						$$perm = 'y';
						$smarty->assign("$perm", 'y');
					}
				}
				return $ret;
			}
			foreach ($perms['data'] as $perm) { // foreach perm of the same group of perms
				$permName = $perm['permName'];
				global $$permName;
				$permAdmin = $this->get_adminPerm_from_objectType($objectType);
				if (in_array($permName, $userPerms)) {
					$ret[$permName] = 'y';
					if ($global) {
						$$permName = 'y';
						$smarty->assign("$permName", 'y');
					}
				} else {
					$ret[$permName] = 'n';
					if ($global) {
						$$permName = 'n';
						$smarty->assign("$permName", 'n');
					}
				}
			}
			$ret['has_special_perm'] = 'y';
			return $ret; // special perms - do not look further
		} elseif ($prefs['feature_categories'] == 'y') {
			global $categlib; include_once('lib/categories/categlib.php');
			$perms = $categlib->get_object_categories_perms($user, $objectType, $objectId);
			if (!empty($perms)) {
				$result = $this->get_perm_from_categPerms($perms, $objectType);
				foreach ($result as $perm=>$value) {
					if ($global) {
						global $$perm;
						$$perm = $value;
						$smarty->assign($perm, $value);
					} else {
						$ret[$perm] = $value;
					}
				}
				$ret['has_special_perm'] = 'y';
				return $ret; // categ perm - do not look further
			}
		}
		if (!$global) {
			$perms = $userlib->get_permissions(0, -1, 'permName_desc', '', $this->get_permGroup_from_objectType($objectType));
			foreach ($perms['data'] as $perm) {
				global $$perm['permName'];
				$ret[$perm['permName']] = $$perm['permName'];
			}
		}
		return $ret;
	}

	function get_permGroup_from_objectType($objectType) {

		switch ($objectType) {
			case 'tracker':
				return 'trackers';
			case 'image gallery':
			case 'image':
				return 'image galleries';
			case 'file gallery':
			case 'file':
				return 'file galleries';
			case 'article':
			case 'submission':
				return 'cms';
			case 'forum':
				return 'forums';
			case 'blog':
			case 'blog post':
				return 'blogs';
			case 'wiki page':
			case 'history':
				return 'wiki';
			case 'faq':
				return 'faqs';
			case 'survey':
				return 'surveys';
			case 'newsletter':
				return 'newsletters';
				/* TODO */
			default:
				return $objectType;
		}
	}

	function get_adminPerm_from_objectType($objectType) {

		switch ($objectType) {
			case 'tracker':
				return 'tiki_p_admin_trackers';
			case 'image gallery':
			case 'image':
				return 'tiki_p_admin_galleries';
			case 'file gallery':
			case 'file':
				return 'tiki_p_admin_file_galleries';
			case 'article':
			case 'submission':
				return 'tiki_p_admin_cms';
			case 'forum':
				return 'tiki_p_admin_forum';
			case 'blog':
			case 'blog post':
				return 'tiki_p_blog_admin';
			case 'wiki page':
			case 'history':
				return 'tiki_p_admin_wiki';
			case 'faq':
				return 'tiki_p_admin_faqs';
			case 'survey':
				return 'tiki_p_admin_surveys';
			case 'newsletter':
				return 'tiki_p_admin_newsletters';
				/* TODO */
			default:
				return "tiki_p_admin_$objectType";
		}
	}

	/* this function will change if we got a table categ<->perm
	 */
	function get_perm_from_categPerms($categPerms, $objectType) {
		global $userlib;
		$ret = array();
		$perms = $userlib->get_permissions(0, -1, 'permName_desc', '', $this->get_permGroup_from_objectType($objectType));
		foreach ($perms['data'] as $perm) {
			global $$perm['permName'];
			$ret[$perm['permName']] = $$perm['permName'];
		}
		if (empty($categPerms['tiki_p_view_categorized'])) {
			$categPerms['tiki_p_view_categorized'] = 'n';
		}
		if (empty($categPerms['tiki_p_edit_categorized'])) {
			$categPerms['tiki_p_edit_categorized'] = 'n';
		}
		if (empty($categPerms['tiki_p_admin_categories'])) {
			$categPerms['tiki_p_admin_categories'] = 'n';
		}
		switch ($objectType) {
			case 'tracker':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_view_trackers'] = 'y';
				} else {
					$ret['tiki_p_view_trackers'] = 'n';
				}
				if ($categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_modify_tracker_items'] = 'y';
					$ret['tiki_p_create_tracker_items'] = 'y';
				} else {
					$ret['tiki_p_modify_tracker_items'] = 'n';
					$ret['tiki_p_create_tracker_items'] = 'n';
				}
				break;
			case 'image gallery':
			case 'image':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_view_image_gallery'] = 'y';
					$ret['tiki_p_download_files'] = 'y';
				} else {
					$ret['tiki_p_view_image_gallery'] = 'n';
					$ret['tiki_p_download_files'] = 'n';
				}
				if ($categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_upload_images'] = 'y';
				} else {
					$ret['tiki_p_upload_images'] = 'n';
				}
				break;
			case 'file gallery':
			case 'file':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_view_file_gallery'] = 'y';
					$ret['tiki_p_view_fgal_explorer'] = 'y';
					$ret['tiki_p_view_fgal_path'] = 'y';
				} else {
					$ret['tiki_p_view_file_gallery'] = 'n';
				}
				if ($categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_upload_files'] = 'y';
				} else {
					$ret['tiki_p_upload_files'] = 'n';
				}
				break;
			case 'article':
			case 'submission':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_read_article'] = 'y';
				} else {
					$ret['tiki_p_read_article'] = 'n';
				}
				if ($categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_edit_article'] = 'y';
					$ret['tiki_p_submit_article'] = 'y';
				} else {
					$ret['tiki_p_edit_article'] = 'n';
					$ret['tiki_p_submit_article'] = 'n';
				}
				break;
			case 'forum':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_forum_read'] = 'y';
				} else {
					$ret['tiki_p_forum_read'] = 'n';
				}
				if ($categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_forum_post_topic'] = 'y';
					$ret['tiki_p_forum_post'] = 'y';
				} else {
					$ret['tiki_p_forum_post_topic'] = 'n';
					$ret['tiki_p_forum_post'] = 'n';
				}
				break;
			case 'blog':
			case 'blog post':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_read_blog'] = 'y';
				} else {
					$ret['tiki_p_read_blog'] = 'n';
				}
				if ($categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_create_blogs'] = 'y';
					$ret['tiki_p_blog_post'] = 'y';
				} else {
					$ret['tiki_p_create_blogs'] = 'n';
					$ret['tiki_p_blog_post'] = 'n';
				}
				break;
			case 'wiki page':
			case 'history':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_view'] = 'y';
					global $tiki_p_wiki_view_source; $ret['tiki_p_wiki_view_source'] = $tiki_p_wiki_view_source;
					global $tiki_p_wiki_view_comments; $ret['tiki_p_wiki_view_comments'] = $tiki_p_wiki_view_comments;
					global $tiki_p_wiki_view_attachments; $ret['tiki_p_wiki_view_attachments'] = $tiki_p_wiki_view_attachments;
				} else {
					foreach($perms['data'] as $p) {
						if ($p['permName'] != 'tiki_p_use_as_template')
							$ret[$p['permName']] = 'n';
					}
				}
				if ($categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_edit'] = 'y';
					$ret['tiki_p_remove'] = 'y';
					$ret['tiki_p_wiki_attach_files'] = 'y';
				} else {
					$ret['tiki_p_edit'] = 'n';
					$ret['tiki_p_remove'] = 'n';
					$ret['tiki_p_wiki_attach_files'] = 'n';
				}
				break;
			case 'faq':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_view_faqs'] = 'y';
				} else {
					$ret['tiki_p_view_faqs'] = 'n';
				}
				break;
			case 'survey':
				break;
			case 'newsletter':
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret['tiki_p_subscribe_newsletters'] = 'y';
				} else {
					$ret['tiki_p_subscribe_newsletters'] = 'n';
				}
				break;

				/* TODO */
			default:
				if ($categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret["tiki_p_edit_$objectType"] = 'y';
				} else {
					$ret["tiki_p_edit_$objectType"] = 'n';
				}
				if ($categPerms['tiki_p_view_categorized'] == 'y' || $categPerms['tiki_p_edit_categorized'] == 'y' || $categPerms['tiki_p_admin_categories'] == 'y') {
					$ret["tiki_p_view_$objectType"] = 'y';
				} else {
					$ret["tiki_p_view_$objectType"] = 'n';
				}
				break;
		}
		return $ret;
	}

	/* deal all the special perm */
	function get_local_perms($user, $objectId, $objectType, $info, $global) {
		global $userlib, $smarty, $prefs;
		$ret = array();
		switch ($objectType) {
			case 'wiki page': case 'wiki':
				if ( $prefs['wiki_creator_admin'] == 'y' && !empty($user) && isset($info) && $info['creator'] == $user ) { //can admin his page
					$perms = $userlib->get_permissions(0, -1, 'permName_desc', '', $this->get_permGroup_from_objectType($objectType));
					foreach ($perms['data'] as $perm) {
						$perm = $perm['permName'];
						$ret[$perm] = 'y';
						if ($global) {
							global $$perm;
							$$perm = 'y';
							$smarty->assign("$perm", 'y');
						}
					}
					return $ret;
				}
				if ($prefs['feature_wiki_userpage'] == 'y' && !empty($user) && strcasecmp($prefs['feature_wiki_userpage_prefix'], substr($objectId, 0, strlen($prefs['feature_wiki_userpage_prefix']))) == 0) {
					if (strcasecmp($objectId, $prefs['feature_wiki_userpage_prefix'].$user) == 0) { //can edit his page
						if (!$global) {
							$perms = $userlib->get_permissions(0, -1, 'permName_desc', '', $this->get_permGroup_from_objectType($objectType));
							foreach ($perms['data'] as $perm) {
								global $$perm['permName'];
								if ($perm['permName'] == 'tiki_p_view' || $perm['permName'] == 'tiki_p_edit') {
									$ret[$perm['permName']] = 'y';
								} else {
									$ret[$perm['permName']] = $$perm['permName'];
								}
							}
						} else {
							global $tiki_p_edit, $tiki_p_view;
							$tiki_p_view = 'y';
							$smarty->assign('tiki_p_view', 'y');
							$tiki_p_edit = 'y';
							$smarty->assign('tiki_p_edit', 'y');
						}
					} else {
						if (!$global) {
							$ret['tiki_p_edit'] = 'n';
						} else {
							global $tiki_p_edit;
							$tiki_p_edit = 'n';
							$smarty->assign('tiki_p_edit', 'n');
						}
					}
					if (!$global) {
						$ret['tiki_p_rename'] = 'n';
						$ret['tiki_p_rollback'] = 'n';
						$ret['tiki_p_lock'] = 'n';
						$ret['tiki_p_assign_perm_wiki_page'] = 'n';
					} else {
						global $tiki_p_rename, $tiki_p_rollback, $tiki_p_lock, $tiki_p_assign_perm_wiki_page;
						$tiki_p_rename = $tiki_p_rollback = $tiki_p_lock = $tiki_p_assign_perm_wiki_page = 'n';
						$smarty->assign('tiki_p_rename', 'n');
						$smarty->assign('tiki_p_rollback', 'n');
						$smarty->assign('tiki_p_lock', 'n');
						$smarty->assign('tiki_p_assign_perm_wiki_page', 'n');
					}
				}
				break;
			default:
				break;
		}
		return false;
	}

	// This method overrides the prefs with those specified in database
	//   and should only be used when populating the prefs array in session vars (during tiki-setup.php process)
	function get_db_preferences() {

		$needLoading = false;
		$needCache = false;

		// modified to cache for non-logged in users (case where logged out users have no session)
		if (isset($_SESSION['s_prefs'])) {
			$needLoading = true;
		} else {
			//logged out
			global $cachelib; require_once("lib/cache/cachelib.php");
			if ($cachelib->isCached("tiki_preferences_cache")) {
				return unserialize($cachelib->getCached("tiki_preferences_cache"));
			} else {
				$needLoading = true;
				$needCache = true;
			}
		}	

		if( $needLoading ) {
			$defaults = get_default_prefs();
			$modified = array();

			// logged in
			$result = $this->query("select `name` ,`value` from `tiki_preferences`");
			while ( $res = $result->fetchRow() ) {
				$name = $res['name'];
				$value = $res['value'];

				if( !isset($defaults[$name]) || $defaults[$name] != $value )
					$modified[$name] = $value;
			}

			$modified['lastReadingPrefs'] = $modified['lastUpdatePrefs'];		
		}

		if( $needCache ) {
			$cachelib->cacheItem("tiki_preferences_cache",serialize($modified));
		}

		return $modified;
	}

	function get_preferences( $names, $exact_match = false, $no_return = false ) {
		global $prefs;

		$preferences = array();
		if ( $exact_match ) {
			if ( is_array($names) ) {
				$this->_get_values('tiki_preferences', 'name', $names, $prefs);
				if ( ! $no_return ) foreach ( $names as $name ) $preferences[$name] = $prefs[$name];
			} else {
				$this->get_preference($names);
				if ( ! $no_return ) $preferences = array( $names => $prefs[$names] );
			}
		} else {
			if ( is_array($names) ) {
				//Only handle $filtername as array with exact_matches
				return false;
			} else {
				$query = "select `name`, `value` from `tiki_preferences` where `name` like ?";
				$result = $this->query($query, array($names));
				while ( $res = $result->fetchRow() ) $preferences[$res["name"]] = $res["value"];
			}
		}
		return $preferences;
	}

	function get_preference($name, $default = '') {
		global $prefs;
		return isset($prefs[$name]) ? $prefs[$name] : $default;
	}

	function delete_preference($name) {
		global $prefs;
		$query = "delete from `tiki_preferences` where `name`=?";
		$this->query($query,array($name));
		$this->set_lastUpdatePrefs();
	}

	function set_preference($name, $value) {
		global $user_overrider_prefs, $user_preferences, $user, $prefs;

		global $cachelib; require_once("lib/cache/cachelib.php");
		$cachelib->invalidate('tiki_preferences_cache');

		global $menulib; include_once('lib/menubuilder/menulib.php');
		$menulib->empty_menu_cache();

		$this->set_lastUpdatePrefs();

		$query = "delete from `tiki_preferences` where `name`=?";
		$result = $this->query($query,array($name),-1,-1,false);
		$query = "insert into `tiki_preferences`(`name`,`value`) values(?,?)";
		if (is_array($value)) {
			$result = $this->query($query,array($name,serialize($value)));
		} else {
			$result = $this->query($query,array($name,$value));
		}
		if ( isset($prefs) ) {
			if ( in_array($name, $user_overrider_prefs) ) {
				$prefs['site_'.$name] = $value;
				$_SESSION['s_prefs']['site_'.$name] = $value;
			} elseif ( isset($user_preferences[$user][$name] ) ) {
				$prefs[$name] = $user_preferences[$user][$name];
				$_SESSION['s_prefs'][$name] = $user_preferences[$user][$name];
			} else {
				$prefs[$name] = $value;
				$_SESSION['s_prefs'][$name] = $value;
			}
			++$prefs['lastUpdatePrefs'];
			$_SESSION['s_prefs']['lastUpdatePrefs'] = $prefs['lastUpdatePrefs'];
		}
		return true;
	}

	function set_lastUpdatePrefs() {
		$query = "update `tiki_preferences` set `value`=`value`+1 where `name`=?";
		$this->query($query, array('lastUpdatePrefs'));
	}

	function _get_values($table, $field_name, $var_names = null, &$global_ref, $query_cond = '', $bindvars = null) {
		if ( empty($table) || empty($field_name) ) return false; 

		$needed = array();
		$defaults = null;

		if ( is_array($var_names) ) {

			// Detect if var names are specified as keys (then values are considered as var defaults)
			//   by looking at the type of the first key
			$defaults = ! is_integer(key($var_names));

			// Check if we need to get the value from DB by looking in the global $user_preferences array
			// (this is able to handle more than one var at a time)
			//   ... and store the default values as well, just in case we needs them later
			if ( $defaults ) {
				foreach ( $var_names as $var => $default ) {
					if ( ! isset($global_ref[$var]) ) $needed[$var] = $default;
				}
			} else {
				foreach ( $var_names as $var ) {
					if ( ! isset($global_ref[$var]) ) $needed[$var] = null;
				}
			}

		} elseif ( $var_names !== null ) {
			return false;
		}

		$cond_query = '';
		if ( is_null($bindvars) ) $bindvars = array();
		if ( count($needed > 0 ) ) {
			foreach ( $needed as $var => $def ) {
				if ( $cond_query != '' ) {
					$cond_query .= ' or ';
				} elseif ( $query_cond != '' ) {
					$cond_query = ' and ';
				}
				$cond_query .= "`$field_name`=?";
				$bindvars[] = $var;
			}
		}
		$query = "select `$field_name`, `value` from `$table` where $query_cond $cond_query";
		$result = $this->query($query, $bindvars);

		if ( $result ) {
			while ( $res = $result->fetchRow() ) {
				// store the db value in the global array
				$global_ref[$res[$field_name]] = $res['value'];
				// remove vars that have a value in db from the $needed array to avoid affecting them a default value
				unset($needed[$res[$field_name]]);
			}
		}

		// set defaults values if needed and if there is no value in database and if it's default was not null
		if ( $defaults ) {
			foreach ( $needed as $var => $def ) {
				if ( ! is_null($def) ) $global_ref[$var] = $def;
			}
		}
		return true;
	}


	function get_user_preferences($my_user, $names = null) {
		global $user_preferences;

		// $my_user must be specified
		if ( ! is_string($my_user) || $my_user == '' ) return false;

		global $user_preferences;
		$global_ref =& $user_preferences[$my_user];
		$return = $this->_get_values('tiki_user_preferences', 'prefName', $names, $global_ref, '`user`=?', array($my_user));

		// Handle special display_timezone values
		if ( isset($user_preferences[$my_user]['display_timezone'])
				&& ! TikiDate::TimezoneIsValidId($user_preferences[$my_user]['display_timezone'])
			 ) {
			unset($user_preferences[$my_user]['display_timezone']);
		}
		return $return;
	}

	function get_user_preference($my_user, $name, $default = null) {
		global $user_preferences, $user;
		if ($user != $my_user && !isset($user_preferences[$my_user])) {
			$this->get_user_preferences($my_user);
		}
		if ( isset($user_preferences) && isset($user_preferences[$my_user]) && isset($user_preferences[$my_user][$name]) ) {
			return $user_preferences[$my_user][$name];
		}
		return $default;
	}

	function set_user_preference($my_user, $name, $value) {
		global $user_preferences, $cachelib, $prefs, $user, $user_overrider_prefs;

		require_once("lib/cache/cachelib.php");
		$cachelib->invalidate('user_details_'.$my_user);

		$user_preferences[$my_user][$name] = $value;

		if ( $my_user == $user ) {
			$prefs[$name] = $value;
			$_SESSION['s_prefs'][$name] = $value;
			if ( $name == 'theme' ) { // FIXME: Remove this exception
				$prefs['style'] = $value;
				$_SESSION['s_prefs']['style'] = $value;
				if ( $value == '' ) {
					$prefs['style'] = $prefs['site_style'];
					$_SESSION['s_prefs']['style'] = $prefs['site_style'];
				}
			} elseif ( $name == 'theme-option' ) { // FIXME: Remove this exception as well?
				$prefs['style_option'] = $value;
				$_SESSION['s_prefs']['style_option'] = $value;
				if ( $value == '' ) {
					$prefs['style_option'] = $prefs['site_style_option'];
					$_SESSION['s_prefs']['style_option'] = $prefs['site_style_option'];
				} else if ( $value == 'None' ) {
					$prefs['style_option'] = '';
					$_SESSION['s_prefs']['style_option'] = '';
				}
			} elseif ( $value == '' ) {
				if ( in_array($name, $user_overrider_prefs) ) {
					$prefs[$name] = $prefs['site_'.$name];
					$_SESSION['s_prefs'][$name] = $prefs['site_'.$name];
				} else {
					$_SESSION['need_reload_prefs'] = true;
				}
			}
		}

		if (!empty($my_user)) {
			$query = "delete from `tiki_user_preferences` where `user`=? and `prefName`=?";
			$bindvars=array($my_user,$name);
			$result = $this->query($query, $bindvars, -1,-1,false);
			$query = "insert into `tiki_user_preferences`(`user`,`prefName`,`value`) values(?, ?, ?)";
			$bindvars[]=$value;
			$result = $this->query($query, $bindvars);
		}

		return true;
	}

	// similar to set_user_preference, but set all at once.
	function set_user_preferences($my_user, &$preferences) {
		global $user_preferences, $cachelib, $prefs, $user;

		require_once("lib/cache/cachelib.php");
		$cachelib->invalidate('user_details_'.$my_user);

		$query = "delete from `tiki_user_preferences` where `user`=?";
		$result = $this->query($query, array($my_user), -1,-1,false);

		foreach ($preferences as $prefName => $value) {
			$query = "insert into `tiki_user_preferences`(`user`,`prefName`,`value`) values(?, ?, ?)";
			$result = $this->query($query, array($my_user,$prefName,$value));
		}
		$user_preferences[$my_user] =& $preferences;

		if ( $my_user == $user ) {
			$prefs =array_merge($prefs, $preferences);
			$_SESSION['s_prefs']=array_merge($_SESSION['s_prefs'], $preferences);
			$_SESSION['need_reload_prefs'] = true;
		}
		return true;
	}

	// This implements all the functions needed to use Tiki
	/*shared*/
	function page_exists($pageName, $casesensitive = false) {
		$page_info = $this->get_page_info($pageName, false);
		return ( $page_info !== false && ( ! $casesensitive || $page_info['pageName'] == $pageName ) ) ? 1 : 0;
	}

	function page_exists_desc( &$pageName, $searchAlias = false ) {
		$page_info = $this->get_page_info($pageName, false);
		
		if ( $page_info === false ) {
			if ( $searchAlias ) {
				global $semanticlib, $prefs;

				if ( $prefs['feature_wiki_pagealias'] == 'y' ) {
					require_once 'lib/wiki/semanticlib.php';

					$links = $semanticlib->getLinksUsing(
						explode( ',', $prefs['wiki_pagealias_tokens'] ),
						array( 'toPage' => $pageName ) );

					if ( count($links) > 0 ) {
						// May be multiple (inconsistencies), just use the first one
						$pageName = $links[0]['fromPage'];
						return $this->page_exists_desc( $pageName );
					}
				}
			}

			return false;
		}

		return empty($page_info['description']) ? $pageName : $page_info['description'];
	}

	function page_exists_modtime($pageName) {
		$page_info = $this->get_page_info($pageName, false);
		if ( $page_info === false ) return false;
		return empty($page_info['lastModif']) ? 0 : $page_info['lastModif'];
	}

	function add_hit($pageName) {
		$query = "update `tiki_pages` set `hits`=`hits`+1 where `pageName` = ?";
		$result = $this->query($query, array($pageName));
		return true;
	}

	/** Create a wiki page
		@param array $hash- lock_it,contributions, contributors
	 **/
	function create_page($name, $hits, $data, $lastModif, $comment, $user = 'admin', $ip = '0.0.0.0', $description = '', $lang='', $is_html = false, $hash=null, $wysiwyg=NULL, $wiki_authors_style='') {
		global $smarty, $prefs, $dbTiki, $quantifylib;
		include_once ("lib/commentslib.php");

		$commentslib = new Comments($dbTiki);

		if( ! $is_html ) {
			$data = str_replace( '<x>', '', $data );
		}

		if (!$user) $user = 'anonymous';
		if (empty($wysiwyg)) $wysiwyg = $prefs['wysiwyg_default'];
		// Collect pages before modifying data
		$pages = $this->get_pages($data, true);

		// This *really* shouldn't be necessary now that the
		// query itself has been fixed up, and it causes much
		// badness to the phpwiki import.  -rlpowell
		//  $name = addslashes($name);
		//  $description = addslashes($description);
		//  $data = addslashes($data);
		//  $comment = addslashes($comment);

		if (!isset($_SERVER["SERVER_NAME"])) {
			$_SERVER["SERVER_NAME"] = $_SERVER["HTTP_HOST"];
		}

		if ($this->page_exists($name))
			return false;

		$html=$is_html?1:0;
		if ($html && $prefs['feature_purifier'] != 'n') {
			require "lib/htmlpurifier/HTMLPurifier.auto.php";
			$purifier = new HTMLPurifier();
			$edit_data = $purifier->purify($edit_data);
		}
		$mid = ''; $midvar = '';
		$bindvars = array($name, (int)$hits, $data, (int)$lastModif, $comment, 1, $user, $ip, $description, $user, (int)strlen($data), $html, $this->now, $wysiwyg, $wiki_authors_style);
		if ($lang) {
			$mid .= ',`lang`';
			$midvar .= ',?';
			$bindvars[] = $lang;
		}
		if (!empty($hash['lock_it']) && ($hash['lock_it'] == 'y' || $hash['lock_it'] == 'on')) {
			$mid .= ',`flag`,`lockedby`';
			$midvar .= ',?,?';
			$bindvars[] = 'L';
			$bindvars[] = $user;
		} elseif (empty($hash['lock_it']) || $hash['lock_it'] == 'n') {
			$mid .= ',`flag`,`lockedby`';
			$midvar .= ',?,?';
			$bindvars[] = '';
			$bindvars[] = '';
		}
		if (empty($hash['contributions'])) {
			$hash['contributions'] = '';
		}
		if (empty($hash['contributors'])) {
			$hash2 = '';
		} else {
			foreach ($hash['contributors'] as $c) {
				$hash3['contributor'] = $c;
				$hash2[] = $hash3;
			}
		}
		$query = "insert into `tiki_pages`(`pageName`,`hits`,`data`,`lastModif`,`comment`,`version`,`user`,`ip`,`description`,`creator`,`page_size`,`is_html`,`created`, `wysiwyg`, `wiki_authors_style` $mid) values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,? $midvar)";
		$result = $this->query($query, $bindvars);

		$page_id = $this->get_page_id_from_name( $name );

		if( $prefs['quantify_changes'] == 'y' && $prefs['feature_multilingual'] == 'y' ) {
			include_once 'lib/wiki/quantifylib.php';
			$quantifylib->recordChangeSize( $page_id, 1, '', $data );
		}

		$this->clear_links($name);

		// Pages are collected before adding slashes
		foreach ($pages as $a_page => $types) {
			$this->replace_link($name, $a_page, $types);
		}

		// Update the log
		if (strtolower($name) != 'sandbox') {
			global $logslib; include_once("lib/logs/logslib.php");
			$logslib->add_action("Created", $name, 'wiki page', 'add='.strlen($data), '', '', '', '', $hash['contributions'], $hash2);
			//get_strings tra("Created");

			//  Deal with mail notifications.
			include_once('lib/notifications/notificationemaillib.php');

			$foo = parse_url($_SERVER["REQUEST_URI"]);
			$machine = $this->httpPrefix(). dirname( $foo["path"] );
			sendWikiEmailNotification('wiki_page_created', $name, $user, $comment, 1, $data, $machine, '', false, $hash['contributions']);
			if ($prefs['feature_contribution'] == 'y') {
				global $contributionlib; include_once('lib/contribution/contributionlib.php');
				$contributionlib->assign_contributions($hash['contributions'], $name, 'wiki page', $description, $name, "tiki-index.php?page=".urlencode($name));
			}
		}

		//if there are links to this page, clear cache to avoid linking to edition
		$result = $this->query("select `fromPage` from `tiki_links` where `toPage`=?",array($name));
		while ($res = $result->fetchRow()) {
			$this->invalidate_cache($res['fromPage']);
		}

		if ($prefs['feature_score'] == 'y') {
			$this->score_event($user, 'wiki_new');
		}

		if ( $prefs['feature_search'] == 'y' && $prefs['feature_search_fulltext'] != 'y' && $prefs['search_refresh_index_mode'] == 'normal' ) {
			require_once('lib/search/refresh-functions.php');
			refresh_index('pages', $name);
		}
		return true;
	}

	function get_user_pages($user, $max, $who='user') {
		$query = "select `pageName` from `tiki_pages` where `$who`=?";

		$result = $this->query($query,array($user),$max);
		$ret = array();

		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}
		return $ret;
	}

	function get_user_galleries($user, $max) {
		$query = "select `name` ,`galleryId`  from `tiki_galleries` where `user`=? order by `name` asc";

		$result = $this->query($query,array($user),$max);
		$ret = array();

		while ($res = $result->fetchRow()) {
			if ($this->user_has_perm_on_object($user, $res['galleryId'], 'image gallery', 'tiki_p_view_image_gallery')) {
				$ret[] = $res;
			}
		}
		return $ret;
	}

	function get_page_info($pageName, $retrieve_datas = true, $skipCache = false) {
		$pageNameEncode = urlencode($pageName);
		if ( !$skipCache && isset($this->cache_page_info[$pageNameEncode])
			&& ( ! $retrieve_datas || isset($this->cache_page_info[$pageNameEncode]['data']) )
		) {
			return $this->cache_page_info[$pageNameEncode];
		}

		if ( $retrieve_datas ) {
			$query = "SELECT * FROM `tiki_pages` WHERE `pageName`=?";
		} else {
			$query = "SELECT `page_id`, `pageName`, `hits`, `description`, `lastModif`, `comment`, `version`, `user`, `ip`, `flag`, `points`, `votes`, `wiki_cache`, `cache_timestamp`, `pageRank`, `creator`, `page_size`, `lang`, `lockedby`, `is_html`, `created`, `wysiwyg`, `wiki_authors_style` FROM `tiki_pages` WHERE `pageName`=?";
		}
		$result = $this->query($query, array($pageName));

		if ( ! $result->numRows() ) {
			return false;
		} else {
			$row = $result->fetchRow();

			// Be sure to have the correct character case (because DB is caseinsensitive)
			$pageNameEncode = urlencode($row['pageName']);

			$this->cache_page_info[$pageNameEncode] = $row;

			global $user, $prefs;
			if ( $user && $prefs['feature_wiki_save_draft'] == 'y' ) {
				$query = "select * from `tiki_page_drafts` where `user`=? and `pageName`=?";
				$result = $this->query($query, array($user, $pageName));
				if ( $result->numRows() ) {
					$this->cache_page_info[$pageNameEncode]['draft'] = $result->fetchRow();
				}
			}
			return $this->cache_page_info[$pageNameEncode];
		}
	}

	function get_page_info_from_id($page_id) {
		$query = "select * from `tiki_pages` where `page_id`=?";
		$result = $this->query($query, array($page_id));

		if (!$result->numRows())
			return false;
		else
			return $result->fetchRow();
	}


	function get_page_name_from_id($page_id) {
		$query = "select `pageName`  from `tiki_pages` where `page_id`=?";
		return $this->getOne($query, array((int)$page_id));
	}

	function get_page_id_from_name($page) {
		$query = "select `page_id` from `tiki_pages` where `pageName`=?";
		return $this->getOne($query, array($page));
	}

	function how_many_at_start($str, $car) {
		$cant = 0;
		$i = 0;
		while (($i < strlen($str)) && (isset($str{$i})) && ($str{$i}== $car)) {
			$i++;
			$cant++;
		}
		return $cant;
	}

	function parse_data_raw($data) {
		$data = $this->parse_data($data);
		$data = str_replace("tiki-index", "tiki-index_raw", $data);
		return $data;
	}

	function add_pre_handler($name) {
		if (!in_array($name, $this->pre_handlers)) {
			$this->pre_handlers[] = $name;
		}
	}

	function add_pos_handler($name) {
		if (!in_array($name, $this->pos_handlers)) {
			$this->pos_handlers[] = $name;
		}
	}

	// add a post edit filter which is called when a wiki page is edited and before
	// it is committed to the database (see tiki-handlers.php on its usage)
	function add_postedit_handler($name)
	{
		if(!in_array($name,$this->postedit_handlers)) {
			$this->postedit_handlers[]=$name;
		}
	}

	// apply all the post edit handlers to the wiki page data
	function apply_postedit_handlers($data) {
		// Process editpage_handlers here
		foreach($this->postedit_handlers as $handler) {
			$data = $handler($data);
		}
		return $data;
	}

	// This function handles wiki codes for those special HTML characters
	// that textarea won't leave alone.
	function parse_htmlchar(&$data) {
		// cleaning some user input
		$data = preg_replace('/&(?![a-z]+;|#\d+;)/i', '&amp;', $data);

		// oft-used characters (case insensitive)
		$data = preg_replace("/~bs~/i", "&#92;", $data);
		$data = preg_replace("/~hs~/i", "&nbsp;", $data);
		$data = preg_replace("/~amp~/i", "&amp;", $data);
		$data = preg_replace("/~ldq~/i", "&ldquo;", $data);
		$data = preg_replace("/~rdq~/i", "&rdquo;", $data);
		$data = preg_replace("/~lsq~/i", "&lsquo;", $data);
		$data = preg_replace("/~rsq~/i", "&rsquo;", $data);
		$data = preg_replace("/~c~/i", "&copy;", $data);
		$data = preg_replace("/~--~/", "&mdash;", $data);
		$data = preg_replace("/ -- /", " &mdash; ", $data);
		$data = preg_replace("/~lt~/i", "&lt;", $data);
		$data = preg_replace("/~gt~/i", "&gt;", $data);

		// HTML numeric character entities
		$data = preg_replace("/~([0-9]+)~/", "&#$1;", $data);
	}

	// Reverses parse_first.
	function replace_preparse(&$data, &$preparsed, &$noparsed) {
		$data1 = $data;
		$data2 = "";

		// Cook until done.  Handles nested cases.
		while( $data1 != $data2 ) {
			$data1 = $data;
			if (isset($noparsed["key"]) and count($noparsed["key"]) and count($noparsed["key"]) == count($noparsed["data"])) {
				$data = str_replace($noparsed["key"], $noparsed["data"], $data);
			}

			if (isset($preparsed["key"]) and count($preparsed["key"]) and count($preparsed["key"]) == count($preparsed["data"])) {
				$data = str_replace($preparsed["key"], $preparsed["data"], $data);
			}
			$data2 = $data;
		}
	}

	function plugin_match(&$data, &$plugins) {
		global $pluginskiplist;
		if( !is_array( $pluginskiplist ) )
			$pluginskiplist = array();

		$matcher_fake = array("~pp~","~np~","&lt;pre&gt;");
		$matcher = "/\{([A-Z0-9_]+) *\(|\{([a-z]+)(\s|\})|~pp~|~np~|&lt;[pP][rR][eE]&gt;/";

		$plugins = array();
		preg_match_all( $matcher, $data, $tmp, PREG_SET_ORDER );
		foreach ( $tmp as $p ) {
			if ( in_array(strtolower($p[0]), $matcher_fake)
				|| ( isset($p[1]) && ( in_array($p[1], $matcher_fake) || $this->plugin_exists($p[1]) ) )
				|| ( isset($p[2]) && ( in_array($p[2], $matcher_fake) || $this->plugin_exists($p[2]) ) )
			) {
				$plugins = $p;
				break;
			}
		}

		// Check to make sure there was a match.
		if( count( $plugins ) > 0 && count( $plugins[0] )  > 0 ) {
			$pos = 0;
			while( in_array( $plugins[0], $pluginskiplist ) ) {
				$pos = strpos( $data, $plugins[0], $pos ) + 1;
				if( ! preg_match( $matcher, substr($data, $pos), $plugins ) )
					return;
			}

			// If it is a true plugin
			if( $plugins[0]{0} == "{" ) {
				$pos = strpos( $data, $plugins[0] ); // where plugin starts
				$pos_end = $pos+strlen($plugins[0]); // where character after ( is

				// Here we're going to look for the end of the arguments for the plugin.

				$i = $pos_end;
				$last_data = strlen($data);

				// We start with one open curly brace, and one open paren.
				$curlies = 1;

				// If model with (
				if( strlen( $plugins[1] ) ) {
					$parens = 1;
					$plugins['type'] = 'long';
				} else {
					$parens = 0;
					$plugins[1] = $plugins[2];
					unset($plugins[3]);
					$plugins['type'] = 'short';
				}

				// While we're not at the end of the string, and we still haven't found both closers
				while( $i < $last_data ) {
					//print "<pre>Data char: $data[$i], $curlies, $parens\n.</pre>\n";
					if( $data[$i] == "{" ) {
						$curlies++;
					} elseif( $data[$i] == "(" ) {
						$parens++;
					} elseif( $data[$i] == "}" ) {
						$curlies--;
						if( $plugins['type'] == 'short' )
							$lastParens = $i;
					} elseif( $data[$i] == ")" ) {
						$parens--;
						if( $plugins['type'] == 'long' )
							$lastParens = $i;
					}

					// If we found the end of the match...
					if( $curlies == 0 && $parens == 0 ) {
						break;
					}

					$i++;
				}

				if( $curlies == 0 && $parens == 0 ) {
					$plugins[2] = (string) substr($data, $pos_end, $lastParens - $pos_end);
					$plugins[0] = $plugins[0] . (string) substr($data, $pos_end, $i - $pos_end + 1);
					/*
						 print "<pre>Match found: ";
						 print( $plugins[2] );
						 print "</pre>";
					 */
				}

				$plugins['arguments'] = $this->plugin_split_args( $plugins[2] );
			} else {
				$plugins[1] = $plugins[0];
				$plugins[2] = "";
			}
		}

		/*
			 print "<pre>Plugin match end:";
			 print_r( $plugins );
			 print "</pre>";
		 */

	}

	function plugin_split_args( $params_string ) {
		// the following str_replace line is to decode the &gt; char when html is turned off
		// perhaps the plugin syntax should be changed in 1.8 not to use any html special chars
		$params_string = str_replace('&gt;', '>', $params_string);
		$params_string = str_replace('&lt;', '<', $params_string);
		$params_string = str_replace('&quot;', '"', $params_string);
		$params_string = str_replace('&amp;', '&', $params_string);

		$arguments = array();

		// Handle parameters one by one
		while( false !== $pos = strpos( $params_string, '=' ) ) {
			$name = substr( $params_string, 0, $pos );
			$name = ltrim( $name, ', ' );
			$value = '';

			// Consider =>
			if( $params_string{$pos + 1} == '>' )
				$pos++;

			// Cut off the name part
			$params_string = substr( $params_string, $pos + 1 );
			$params_string = ltrim( $params_string );

			if( !empty($params_string) && $params_string{0} == '"' ) {
				$quote = 0;
				// Parameter between quotes, find closing quote not escaped by a \
				while( false !== $quote = strpos( $params_string, '"', $quote + 1 ) ) {
					if( $params_string{$quote - 1} != "\\" )
						break;
				}

				// Closing quote found
				if( $quote !== false ) {
					$value = substr( $params_string, 1, $quote - 1 );
					$arguments[$name] = str_replace( '\"', '"', $value );

					$params_string = substr( $params_string, $quote + 1 );
					continue;
				}

				// Not found, fallback as if opening quote was part of the string
			}

			// If last parameter, consider next as end of string
			if( preg_match( "/[\s,]\w+=/", $params_string, $parts ) ) {
				$end = strpos( $params_string, $parts[0] );
				$value = substr( $params_string, 0, $end );
				$params_string = substr( $params_string, $end );
			} else {
				$value = $params_string;
				$params_string = '';
			}

			$value = rtrim( $value, "\n\t\r\0, " );
			$arguments[$name] = $value;
		}

		return $arguments;
	}

	// This recursive function handles pre- and no-parse sections and plugins
	function parse_first(&$data, &$preparsed, &$noparsed, $options=null, $real_start_diff='0') {
		global $dbTiki, $smarty, $tiki_p_edit, $prefs, $pluginskiplist;
		if( ! is_array( $pluginskiplist ) )
			$pluginskiplist = array();

		if( strlen( $data ) <= 1 ) {
			return;
		}
		
		if (!isset($options['parseimgonly'])) {
			$options['parseimgonly'] = false;
		}

		// Find the plugins
		$this->plugin_match( $data, $plugins );

		$data1 = $data;
		$data2 = "";

		// Cook until done.
		while( count($plugins) > 0 && ( $data1 != $data2 ) ) {
			$data1 = $data;
			$plugin_start = $plugins[0];

			if( count($plugins) > 1 ) {
				$plugin = $plugins[1];
			}

			// print "<pre>plugin: :".htmlspecialchars( $plugin ) .":</pre>";

			if ($plugin == 'img' || !$options['parseimgonly']) {	// parse images only for fckeditor switch to html
				$pos = strpos( $data, $plugins[0] ); // where the plugin starts
	
				// where the part after the plugin arguments starts
				$pos_middle = $pos + strlen( $plugins[0] );
	
				// print "<pre>pos's: :$pos, $pos_middle:</pre>";
	
				// process "short" plugins here: {plugin par1=>val1} - melmut
				if( isset($plugins['type']) && $plugins['type'] == 'short' && preg_match("/ *\}$/",$plugin_start) ) {
					$plugin_end='';
					$pos_end = $pos + strlen($plugin_start);
				// process "short" plugins here: {PLUGIN(par1=>val1)/} - melmut
				} elseif( preg_match("/\/ *\}$/",$plugin_start) ) {
					$plugin_end='';
					$pos_end = $pos + strlen($plugin_start);
				} elseif( ! ( strpos( $plugin_start, '~pp~' ) === false ) ) {
					$plugin_end = '~/pp~';
					$pos_end = strpos($data, $plugin_end, $pos); // where plugin data ends
				} elseif( ! ( strpos( $plugin_start, '~np~' ) === false ) ) {
					$plugin_end = '~/np~';
					$pos_end = strpos($data, $plugin_end, $pos); // where plugin data ends
				} elseif( preg_match( "/^ *&lt;[pP][rR][eE]&gt;/", $plugin_start ) ) {
					preg_match("/&lt;\/[pP][rR][eE]&gt;/", $data, $plugin_ends, 0, $pos); // where plugin data ends
					$plugin_end = $plugin_ends[0];
					$pos_end = strpos($data, $plugin_end, $pos); // where plugin data ends
				} else {
					$plugin_end = '{' . $plugin;
					$count=1;
					while($count) { // this takes care of possible nested plugins with same name
						$pos_end = strpos($data, $plugin_end, $pos_middle);
						if ($pos_end === false) {
							$pos_end = strlen($data);
							break;
						}
						$pos_middle = $pos_end+strlen($plugin_end);
						if ($data{$pos_middle} == '}') $count--;
						else if ($data{$pos_middle} == '(') $count++;
					}
					$plugin_end .= '}'; // where plugin data ends
				}
	
				/*
					 print "<pre>pos's2: :$pos, $pos_middle, $pos_end:</pre>";
					 print "<pre>plugin_end: :".htmlspecialchars( $plugin_end ) .":</pre>";
				 */
	
				// Extract the plugin data
				if ($pos_end === false) {
					$pos_end = strlen($data);
				}
				$plugin_data_len = $pos_end - $pos - strlen($plugins[0]);
				$plugin_data = substr($data, $pos + strlen($plugin_start), $plugin_data_len);
	
				/*
					 print "<pre>data: :".htmlspecialchars( $plugin_data ) .":</pre>";
					 print "<pre>end: :".htmlspecialchars( $plugin_end ) .":</pre>";
				 */
	
				if( preg_match( "/^ *&lt;[pP][rR][eE]&gt;|^ *~pp~|^ *~np~/", $plugin_start ) ) {
					// ~pp~ type "plugins"
					$key = "§".md5($this->genPass())."§";
					$noparsed["key"][] = preg_quote($key);
					// comment out the following line: create problem with TRACKERLIST and popup because the <\/td> are changed
					//$plugin_data = str_replace('\\','\\\\',$plugin_data);
					//if( strstr( $plugin_data, '$' ) ) {
						//$plugin_data = str_replace('$', '\$', $plugin_data);
					//}
					if( $plugin_start == "~pp~" ) {
						$noparsed["data"][] = "<pre>" . $plugin_data . "</pre>";
					} elseif( preg_match( "/^ *&lt;[pP][rR][eE]&gt;/", $plugin_start ) ) {
						preg_match( "/^ *&lt;([pP][rR][eE])&gt;/", $plugin_start, $plugins );
						$plugin_start2 = $plugins[1];
						preg_match( "/^ *&lt;\/([pP][rR][eE])&gt;/", $plugin_end, $plugins );
						$plugin_end2 = $plugins[1];
						$noparsed["data"][] = "<" . $plugin_start2 . ">" . $plugin_data . "</" . $plugin_end2 . ">";
					} else {
						$noparsed["data"][] = $plugin_data;
					}
	
					// Replace plugin section with its output in data
					$data = substr_replace($data, $key, $pos, $pos_end - $pos + strlen($plugin_end));
				} else {
					// print "<pre>args1: :".htmlspecialchars( $plugins[2] ) .":</pre>";
					// Handle nested plugins in the arguments.
					$this->parse_first($plugins[2], $preparsed, $noparsed, $options);
					// print "<pre>args2: :".htmlspecialchars( $plugins[2] ) .":</pre>";
	
					// Normal plugins
					$plugin_name = strtolower($plugins[1]);
	
					// Construct argument list array
					$arguments = $plugins['arguments'];

					if (count($arguments) == 0) {
                        //TODO HACK: See bug 2499 http://dev.tikiwiki.org/tiki-view_tracker_item.php?itemId=2499
						$arguments = array('' => '');
					}

					if ($this->plugin_exists( $plugin_name )) {
	
						if( $this->plugin_enabled( $plugin_name ) ) {
	
							static $plugin_indexes = array();
	
							if( ! array_key_exists( $plugin_name, $plugin_indexes ) )
								$plugin_indexes[$plugin_name] = 0;
	
							$current_index = ++$plugin_indexes[$plugin_name];

							// save plugin_data for plugin edit JS later (needs to not be plugin-parsed)
							$plugin_data_saved = $plugin_data;

							// We store CODE stuff out of the way too, but then process it as a plugin as well.
							if( preg_match( '/^ *\{CODE\(/', $plugin_start ) ) {
								$ret = wikiplugin_code(
									$options['is_html'] ? $plugin_data : TikiLib::htmldecode($plugin_data),
									$arguments
								);

								// Pull the np out.
								preg_match( "/~np~(.*)~\/np~/s", $ret, $stuff );
	
								if( count( $stuff ) > 0 ) {
									$key = "§".md5($this->genPass())."§";
									$noparsed["key"][] =  preg_quote($key);
									$noparsed["data"][] = $stuff[1];
	
									$ret = preg_replace( "/~np~.*~\/np~/s", $key, $ret );
								}
	
							} else {
								
								// Handle nested plugins.
								$this->parse_first($plugin_data, $preparsed, $noparsed, $options, $real_start_diff + $pos+strlen($plugin_start));

								if( true === $status = $this->plugin_can_execute( $plugin_name, $plugin_data, $arguments ) ) {
									$ret = $this->plugin_execute( $plugin_name, $plugin_data, $arguments, $real_start_diff + $pos+strlen($plugin_start), false, $options);
								} else {
									global $tiki_p_plugin_viewdetail, $tiki_p_plugin_preview, $tiki_p_plugin_approve;
									$details = $tiki_p_plugin_viewdetail == 'y' && $status != 'rejected';
									$preview = $tiki_p_plugin_preview == 'y' && $details && ! $options['preview_mode'];
									$approve = $tiki_p_plugin_approve == 'y' && $details && ! $options['preview_mode'];

									if( $status != 'rejected' ) {
										$smarty->assign( 'plugin_fingerprint', $status );
										$status = 'pending';
									}

									$smarty->assign( 'plugin_name', $plugin_name );
									$smarty->assign( 'plugin_index', $current_index );

									$smarty->assign( 'plugin_status', $status );
									$smarty->assign( 'plugin_details', $details );
									$smarty->assign( 'plugin_preview', $preview );
									$smarty->assign( 'plugin_approve', $approve );

									$smarty->assign( 'plugin_body', $plugin_data );
									$smarty->assign( 'plugin_args', $arguments );

									$ret = '~np~' . $smarty->fetch('tiki-plugin_blocked.tpl') . '~/np~';
								}
							}
							//echo '<pre>'; debug_print_backtrace(); echo '</pre>';
							global $headerlib;
							$headerlib->add_jsfile( 'tiki-jsplugin.php' );
							if( $this->plugin_is_editable( $plugin_name ) && (empty($options['preview_mode']) || !$options['preview_mode']) && (empty($options['print']) || !$options['print']) ) {
								include_once('lib/smarty_tiki/function.icon.php');
								global $page;
								$id = 'plugin-edit-' . $plugin_name . $current_index;
						
								if ($prefs['feature_jquery'] == 'y') {
									$headerlib->add_js( "
	\$jq(document).ready( function() {
		if( \$jq('#$id') ) {
			show('$id');
			\$jq('#$id').click( function(event) {
				popup_plugin_form("
					. json_encode('editwiki')
					. ', '
					. json_encode($plugin_name) 
					. ', ' 
					. json_encode($current_index) 
					. ', ' 
					. json_encode($page) 
					. ', ' 
					. json_encode($arguments) 
					. ', ' 
					. json_encode(TikiLib::htmldecode($plugin_data_saved)) 
					. ", event.target);
			} );
		}
	} );
	" );
								} else if ($prefs['feature_mootools'] == 'y') {
									$headerlib->add_js( "
	window.addEvent('domready', function() {
		if( $('$id') ) {
			show('$id');
			$('$id').addEvent( 'click', function(event) {
				popup_plugin_form("
					. json_encode('editwiki')
					. ', '
					. json_encode($plugin_name) 
					. ', ' 
					. json_encode($current_index) 
					. ', ' 
					. json_encode($page) 
					. ', ' 
					. json_encode($arguments) 
					. ', ' 
					. json_encode(TikiLib::htmldecode($plugin_data_saved)) 
					. ", event.target);
			} );
		}
	} );
	" );
								}
								$ret = $ret.'~np~<a id="' .$id. '" href="javascript:void(1)" class="editplugin">'.smarty_function_icon(array('_id'=>'shape_square_edit', 'alt'=>tra('Edit Plugin').':'.$plugin_name), $smarty)."</a>~/np~";
							}
	
						} else {
							// Handle nested plugins.
							$this->parse_first($plugin_data, $preparsed, $noparsed, $options);
	
							$ret = tra( "__WARNING__: Plugin disabled $plugin!" ) . $plugin_data;
						}
	
						$skip = false;
					} else {
						if( $plugins['type'] == 'long' ) {
							// Handle nested plugins.
							$this->parse_first($plugin_data, $preparsed, $noparsed, $options);
							$ret = tra( "__WARNING__: No such module $plugin!" ) . $plugin_data;
	
							$skip = false;
						} else {
							// Short plugins need to be returned like normal plugins for backwards compat.
							$pluginskiplist[] = $plugins[0];
	
							$skip = true;
						}
					}
	
					if( ! $skip ) {
						// Handle pre- & no-parse sections and plugins inserted by this plugin
						$this->parse_first($ret, $preparsed, $noparsed, $options);
						//$ret = $this->parse_data($ret);
	
						// Replace plugin section with its output in data
						$data = substr_replace($data, $ret, $pos, $pos_end - $pos + strlen($plugin_end));
						$real_start_diff -= strlen($ret) - $pos_end - $pos + strlen($plugin_end);
					}
				}
			}
			
			// Find the plugins
			// note: [1] is plugin name, [2] is plugin arguments
			$this->plugin_match( $data, $plugins );

			$data2 = $data;

		} // while
		// print "<pre>real done data: :".htmlspecialchars( $data ) .":</pre>";
	}

	function plugin_get_list( $includeReal = true, $includeAlias = true ) {
		$real = array();
		$alias = array();

		foreach( glob( 'lib/wiki-plugins/wikiplugin_*.php' ) as $file )
		{
			$base = basename( $file );
			$plugin = substr( $base, 11, -4 );

			$real[] = $plugin;
		}

		global $prefs;
		if( isset($prefs['pluginaliaslist']) )
			$alias = @unserialize($prefs['pluginaliaslist']);

		if( $includeReal && $includeAlias )
			$plugins = array_merge( $real, $alias );
		elseif( $includeReal )
			$plugins = $real;
		elseif( $includeAlias )
			$plugins = $alias;
		else
			$plugins = array();

		sort($plugins);

		return $plugins;
	}

	function plugin_exists( $name, $include = false ) {
		$php_name = 'lib/wiki-plugins/wikiplugin_';
		$php_name .= strtolower($name) . '.php';

		$exists = file_exists( $php_name );

		if( $include && $exists )
			include_once $php_name;

		if( $exists )
			return true;
		elseif( $info = $this->plugin_alias_info( $name ) ) {
			// Make sure the underlying implementation exists

			return $this->plugin_exists( $info['implementation'], $include );
		}
	}

	function plugin_info( $name ) {
		if( ! $this->plugin_exists( $name, true ) )
			return false;

		$func_name_info = "wikiplugin_{$name}_info";

		if( ! function_exists( $func_name_info ) ) {
			if( $info = $this->plugin_alias_info( $name ) )
				return $info['description'];
			else
				return false;
		}

		return $func_name_info();
	}

	function plugin_alias_info( $name ) {
		global $prefs;
		$name = strtolower($name);
		$prefName = "pluginalias_$name";

		if( ! isset( $prefs[$prefName] ) )
			return false;

		return @unserialize( $prefs[$prefName] );
	}

	function plugin_alias_store( $name, $data ) {
		/*
			Input data structure:
			
			implementation: other plugin_name
			description:
				** Equivalent of plugin info function here **
			body:
				input: use|ignore
				default: body content to use
				params:
					token_name:
						input: token_name, default uses same name above
						default: value to use if missing
						encoding: none|html|url - default to none
			params:
				; Use input parameter directly
				token_name: default value

				; Custom input parameter replacement
				token_name:
					pattern: body content to use
					params:
						token_name:
							input: token_name, default uses same name above
							default: value to use if missing
							encoding: none|html|url - default to none
		*/

		$name = strtolower( $name );
		$data['plugin_name'] = $name;

		$prefName = "pluginalias_$name";
		$this->set_preference( $prefName, serialize( $data ) );
		
		global $prefs;
		$list = array();
		if( isset($prefs['pluginaliaslist']) )
			$list = unserialize($prefs['pluginaliaslist']);
		
		if( ! in_array( $name, $list ) ) {
			$list[] = $name;
			$this->set_preference( 'pluginaliaslist', serialize($list) );
		}

		foreach( glob( 'temp/cache/wikiplugin_*' ) as $file )
			unlink( $file );
		global $cachelib;
		$cachelib->invalidate('plugindesc');
	}

	function plugin_enabled( $name ) {
		if( ! $meta = $this->plugin_info( $name ) )
			return true; // Legacy plugins always execute

		global $prefs;

		if( isset( $meta['prefs'] ) )
			foreach( $meta['prefs'] as $pref )
				if( $prefs[$pref] != 'y' )
					return false;

		return true;
	}

	function plugin_is_inline( $name ) {
		if( ! $meta = $this->plugin_info( $name ) )
			return true; // Legacy plugins always inline 

		global $prefs;

		$inline = false;
		if( isset( $meta['inline'] ) && $meta['inline'] ) 
			return true; 

		$inline_pref = 'wikiplugininline_' .  $name;
		if( isset( $prefs[ $inline_pref ] ) && $prefs[ $inline_pref ] == 'y' )
			return true;	

		return false;
	}

	function plugin_can_execute( $name, $data = '', $args = array() ) {
		global $prefs;

		// If validation is disabled, anything can execute
		if( $prefs['wiki_validate_plugin'] != 'y' )
			return true;

		$meta = $this->plugin_info( $name );
		if( ! isset( $meta['validate'] ) )
			return true;

		$fingerprint = $this->plugin_fingerprint( $name, $meta, $data, $args );

		$val = $this->plugin_fingerprint_check( $fingerprint );
		if( strpos( $val, 'accept' ) === 0 )
			return true;
		elseif( strpos( $val, 'reject' ) === 0 )
			return 'rejected';
		else {
			global $tiki_p_plugin_approve, $tiki_p_plugin_preview, $user;
			if( $_SERVER['REQUEST_METHOD'] == 'POST'
				&& isset( $_POST['plugin_fingerprint'] ) 
				&& $_POST['plugin_fingerprint'] == $fingerprint
			) {
				if( $tiki_p_plugin_approve == 'y' ) {
					if( isset( $_POST['plugin_accept'] ) ) {
						global $page;
						$this->plugin_fingerprint_store( $fingerprint, 'accept' );
						$this->invalidate_cache( $page );
						return true;
					} elseif( isset( $_POST['plugin_reject'] ) ) {
						global $page;
						$this->plugin_fingerprint_store( $fingerprint, 'reject' );
						$this->invalidate_cache( $page );
						return 'rejected';
					}
				} 

				if( $tiki_p_plugin_preview == 'y' 
					&& isset( $_POST['plugin_preview'] ) ) {
					return true;
				}
			}

			return $fingerprint;
		}
	}

	function plugin_fingerprint_check( $fp ) {
		$limit = date( 'Y-m-d H:i:s', time() - 15*24*3600 );
		$result = $this->query( "SELECT status, IF(status='pending' AND last_update < ?, 'old', '') flag FROM tiki_plugin_security WHERE fingerprint = ?",
			array( $limit, $fp ) );

		$needUpdate = false;

		if( $row = $result->fetchRow() ) {
			$status = $row['status'];
			$flag = $row['flag'];

			if( $status == 'accept' || $status == 'reject' )
				return $status;

			if( $flag == 'old' )
				$needUpdate = true;
		} else {
			$needUpdate = true;
		}

		if( $needUpdate ) {
			global $page;
			if( $page ) {
				$objectType = 'wiki page';
				$objectId = $page;
			} else {
				$objectType = '';
				$objectId = '';
			}

			$this->query( "DELETE FROM tiki_plugin_security WHERE fingerprint = ?", array( $fp ) );
			$this->query( "INSERT INTO tiki_plugin_security (fingerprint, status, last_objectType, last_objectId) VALUES(?, ?, ?, ?)",
				array( $fp, 'pending', $objectType, $objectId ) );
		}

		return '';
	}

	function plugin_fingerprint_store( $fp, $type ) {
		global $prefs, $user, $page;
		if( $page ) {
			$objectType = 'wiki page';
			$objectId = $page;
		} else {
			$objectType = '';
			$objectId = '';
		}

		$this->query( "DELETE FROM tiki_plugin_security WHERE fingerprint = ?", array( $fp ) );
		$this->query( "INSERT INTO tiki_plugin_security (fingerprint, status, approval_by, last_objectType, last_objectId) VALUES(?, ?, ?, ?, ?)",
				array( $fp, $type, $user, $objectType, $objectId ) );
	}

	function plugin_clear_fingerprint( $fp ) {
		$this->query( "DELETE FROM tiki_plugin_security WHERE fingerprint = ?", array( $fp ) );
	}

	function list_plugins_pending_approval() {
		$result = $this->query("SELECT fingerprint, last_update, last_objectType, last_objectId FROM tiki_plugin_security WHERE status = 'pending' ORDER BY last_update DESC");

		$list = array();
		while( $row = $result->fetchRow() )
			$list[] = $row;

		return $list;
	}

	function plugin_fingerprint( $name, $meta, $data, $args ) {
		$validate = $meta['validate'];
		if( $validate == 'all' || $validate == 'body' )
			$validateBody = $data;
		else
			$validateBody = '';

		if( $validate == 'all' || $validate == 'arguments' ) {
			$validateArgs = $args;

			// Remove arguments marked as safe from the fingerprint
			foreach( $meta['params'] as $key => $info )
				if( isset( $validateArgs[$key] ) 
					&& isset( $info['safe'] ) 
					&& $info['safe']
				)
					unset( $validateArgs[$key] );

			// Parameter order needs to be stable
			ksort( $validateArgs );
		} else
			$validateArgs = array();

		$bodyLen = str_pad( strlen( $validateBody ), 6, '0', STR_PAD_RIGHT );
		$serialized = serialize( $validateArgs );
		$argsLen = str_pad( strlen( $serialized ), 6, '0', STR_PAD_RIGHT );

		$bodyHash = md5( $validateBody );
		$argsHash = md5( $serialized );

		return "$name-$bodyHash-$argsHash-$bodyLen-$argsLen";
	}

	function plugin_execute( $name, $data = '', $args = array(), $offset = 0, $validationPerformed = false, $parseOptions = array() ) {
		if( ! $this->plugin_exists( $name, true ) )
			return false;

		$func_name = 'wikiplugin_' . $name;
		
		if( ! $validationPerformed ) {
			$info = $this->plugin_info( $name );
			$default = TikiFilter::get('xss');

			// Apply filters on the body
			$filter = isset($info['filter']) ? TikiFilter::get($info['filter']) : $default;
			$data = $this->htmldecode($data);
			$data = $filter->filter($data);

			// Make sure all arguments are declared
			$params = $info['params'];

			if( ! isset( $info['extraparams'] ) && is_array($params) ) {
				$args = array_intersect_key( $args, $params );
			}

			// Apply filters on values individually
			if (!empty($args)) {
				foreach( $args as $argKey => &$argValue ) {
					$filter = isset($params[$argKey]['filter']) ? TikiFilter::get($params[$argKey]['filter']) : $default;
					$argValue = $this->htmldecode($argValue);
					$argValue = $filter->filter($argValue);
				}
			}
		}

		if( function_exists( $func_name ) ) {
			return $func_name( $data, $args, $offset, $parseOptions );
		} elseif( $info = $this->plugin_alias_info( $name ) ) {
			$name = $info['implementation'];

			// Do the body conversion
			if( isset($info['body']) ) {
				if( ( isset($info['body']['input']) && $info['body']['input'] == 'ignore' )
					|| empty( $data ) )
					$data = isset($info['body']['default']) ? $info['body']['default'] : '';

				if( isset($info['body']['params']) )
					$data = $this->plugin_replace_args( $data, $info['body']['params'], $args );
			} else {
				$data = '';
			}

			// Do parameter conversion
			$params = array();
			if( isset($info['params']) ) {
				foreach( $info['params'] as $key => $value ) {
					if( is_array( $value ) && isset($value['pattern']) && isset($value['params']) ) {
						$params[$key] = $this->plugin_replace_args( $value['pattern'], $value['params'], $args );
					} else {
						// Handle simple values
						if( isset($args[$key]) )
							$params[$key] = $args[$key];
						else
							$params[$key] = $value;
					}
				}
			}

			return $this->plugin_execute( $name, $data, $params, $offset, true, $parseOptions );
		}
	}

	function plugin_replace_args( $content, $rules, $args ) {
		$patterns = array();
		$replacements = array();

		foreach( $rules as $token => $info ) {
			$patterns[] = "%$token%";
			if( isset( $info['input'] ) && ! empty( $info['input'] ) )
				$token = $info['input'];

			if( isset( $args[$token] ) ) {
				$value = $args[$token];
			} else {
				$value = isset($info['default']) ? $info['default'] : '';
			}

			switch( isset($info['encoding']) ? $info['encoding'] : 'none' )
			{
			case 'html': $replacements[] = htmlentities( $value, ENT_QUOTES, 'UTF-8' ); break;
			case 'url': $replacements[] = rawurlencode( $value ); break;
			default: $replacements[] = $value;
			}
		}

		return str_replace( $patterns, $replacements, $content );
	}

	function plugin_is_editable( $name ) {
		global $tiki_p_edit, $prefs, $section;
		$info = $this->plugin_info( $name );
		// note that for 3.0 the plugin editor only works in wiki pages, but could be extended later
		return $section == 'wiki page' && $info && $tiki_p_edit == 'y' && $prefs['wiki_edit_plugin'] == 'y'
			&& !$this->plugin_is_inline( $name ) ;
	}

	function quotesplit( $splitter=',', $repl_string ) {
		$matches = preg_match_all( '/"[^"]*"/', $repl_string, $quotes );

		$quote_keys = array();
		if( $matches ) {
			foreach( array_unique( $quotes ) as $quote ) {
				$key = '§'.md5( $this->genPass() ).'§';
				$aux["key"] = $key;
				$aux["data"] = $quote;
				$quote_keys[] = $aux;
				$repl_string = str_replace( $quote[0], $key, $repl_string );
			}
		}

		$result = split($splitter, $repl_string);

		if( $matches ) {
			// Loop through the result sections
			while(list($rarg, $rval) = each($result)) {
				// Replace all stored strings
				foreach( $quote_keys as $qval ) {
					$replacement = $qval["data"][0];
					$result[$rarg] = str_replace( $qval["key"], $replacement, $rval );
				}
			}
		}
		return $result;
	}


	// Replace hotwords in given line
	function replace_hotwords($line, $words) {
		global $prefs;
		$hotw_nw = ($prefs['feature_hotwords_nw'] == 'y') ? "target='_blank'" : '';

		// Replace Hotwords
		if ($prefs['feature_hotwords'] == 'y') {
			foreach ($words as $word => $url) {
				// \b is a word boundary, \s is a space char
				$pregword = preg_replace("/\//","\/",$word);
				$line = preg_replace("/(=(\"|')[^\"']*[ \n\t\r\,\;'])$pregword([ \n\t\r\,\;][^\"']*(\"|'))/i","$1:::::$word,:::::$3",$line);
				$line = preg_replace("/([ \n\t\r\,\;']|^)$pregword($|[ \n\t\r\,\;])/i","$1<a class=\"wiki\" href=\"$url\" $hotw_nw>$word</a>$2",$line);
				$line = preg_replace("/:::::$pregword,:::::/i","$word",$line);
			}
		}
		return $line;
	}

	// Make plain text URIs in text into clickable hyperlinks
	function autolinks($text) {
		global $prefs;
		//	check to see if autolinks is enabled before calling this function
		//		if ($prefs['feature_autolinks'] == "y") {
		$attrib = '';
		if ($prefs['popupLinks'] == 'y')
			$attrib .= 'target="_blank" ';
		if ($prefs['feature_wiki_ext_icon'] == 'y') {
			$attrib .= 'class="wiki external" ';
			$ext_icon = "<img border=\"0\" class=\"externallink\" src=\"img/icons/external_link.gif\" alt=\" (external link)\" />";
		} else {
			$attrib .= 'class="wiki" ';
			$ext_icon = "";
		}

		// add a space so we can match links starting at the beginning of the first line
		$text = " " . $text;
		// match prefix://suffix, www.prefix.suffix/optionalpath, prefix@suffix
		$patterns = array();
		$replacements = array();
		$patterns[] = "#([\n ])([a-z0-9]+?)://([^<, \n\r]+)#i";
		$replacements[] = "\\1<a $attrib href=\"\\2://\\3\">\\2://\\3$ext_icon</a>";
		$patterns[] = "#([\n ])www\.([a-z0-9\-]+)\.([a-z0-9\-.\~]+)((?:/[^,< \n\r]*)?)#i";
		$replacements[] = "\\1<a $attrib href=\"http://www.\\2.\\3\\4\">www.\\2.\\3\\4$ext_icon</a>";
		$patterns[] = "#([\n ])([a-z0-9\-_.]+?)@([\w\-]+\.([\w\-\.]+\.)*[\w]+)#i";
		if ($prefs['feature_wiki_protect_email'] == 'y')
			$replacements[] = "\\1<script language=\"Javascript\" type=\"text/javascript\">protectEmail('\\2', '\\3', '@');</script><noscript>\\2 ".tra("at","",true)." \\3</noscript>";
		else
			$replacements[] = "\\1<a class='wiki' href=\"mailto:\\2@\\3\">\\2@\\3</a>";
		$patterns[] = "#([\n ])magnet\:\?([^,< \n\r]+)#i";
		$replacements[] = "\\1<a class='wiki' href=\"magnet:?\\2\">magnet:?\\2</a>";
		$text = preg_replace($patterns, $replacements, $text);
		// strip the space we added
		$text = substr($text, 1);
		return $text;

		//		} else {
		//			return $text;
		//		}
	}


	//Updates a dynamic variable found in some object
	/*Shared*/
 function update_dynamic_variable($name,$value) {
		$query = "delete from `tiki_dynamic_variables` where `name`=?";
		$this->query($query,array($name),-1,-1,false);
		$query = "insert into `tiki_dynamic_variables`(`name`,`data`) values(?,?)";
		$this->query($query,Array($name,$value));
		return true;
	}


	// split string into a list of
	function split_tag( $string, $cleanup = TRUE ) {
		$_splts = split('&quot;', $string);
		$inside = FALSE;
		$parts = array();
		$index=0;

		foreach ($_splts as $i)  {
			if ($cleanup) {
				$i = str_replace('}', '', $i);
				$i = str_replace('{', '', $i);
				$i = str_replace('\'', '', $i);
				$i = str_replace('"', '', $i);
				// IE silently removes null-byte html char \0, so let's remove it anyways
				$i = str_replace('\\0', '', $i);
			}

			if ($inside) {  // inside "foo bar" - append
				if ($index>0) {
					$parts[$index-1] .= $i;
				} else {    // else: first element (should never happen)
					$parts[] = $i;
				}
			} else {        //
				$_spl = split(" ", $i);
				foreach($_spl as $j) {
					$parts[$index++] = $j;
				}
			}
			$inside = ! $inside;
		}
		return $parts;
	}

	function split_assoc_array($parts, $assoc) {
		//$assoc = array();
		foreach($parts as $part) {
			$res=array();
			$assoc[$part] = '';
			preg_match("/(\w+)\s*=\s*(.*)/", $part, $res);
			if ($res) {
				$assoc[$res[1]] = $res[2];
			}
		}
		return $assoc;
	}

	/**
	 * close_blocks - Close out open paragraph, lists, and div's
	 *
	 * During parse_data, information is kept on blocks of text (paragraphs, lists, divs)
	 * that need to be closed out. This function does that, rather than duplicating the
	 * code inline.
	 *
	 * @param	$data			- Output data
	 * @param	$in_paragraph		- TRUE if there is an open paragraph
	 * @param	$listbeg		- array of open list terminators
	 * @param	$divdepth		- array indicating how many div's are open
	 * @param	$close_paragraph	- TRUE if open paragraph should be closed.
	 * @param	$close_lists		- TRUE if open lists should be closed.
	 * @param	$close_divs		- TRUE if open div's should be closed.
	 */
	/* private */
	function close_blocks(&$data, &$in_paragraph, &$listbeg, &$divdepth, $close_paragraph, $close_lists, $close_divs) {

		$closed = 0;	// Set to non-zero if something has been closed out
		// Close the paragraph if inside one.
		if ($close_paragraph && $in_paragraph) {
			$data .= "</p>";
			$in_paragraph = 0;
			$closed++;
		}
		// Close open lists
		if ($close_lists) {
			while (count($listbeg)) {
				$data .= array_shift($listbeg);
				$closed++;
			}
		}

		// Close open divs
		if ($close_divs) {
			$temp_max = count($divdepth);
			for ($i = 1; $i <= $temp_max; $i++) {
				$data .= '</div>';
				$closed++;
			}
		}

		if ($closed) {
			$data .= "\n";
		}
		return $closed;
	}

	//PARSEDATA
	// options defaults : is_html => false, absolute_links => false, language => ''
	function parse_data($data, $options = null) {
		// Don't bother if there's nothing...
		if (function_exists('mb_strlen')) {
			if( mb_strlen( $data ) < 1 ) {
				return;
			}
		}

		global $page_regex, $slidemode, $prefs, $ownurl_father, $tiki_p_admin_drawings, $tiki_p_edit_drawings, $tiki_p_edit_dynvar, $tiki_p_upload_picture, $page, $page_ref_id, $rsslib, $dbTiki, $structlib, $user, $tikidomain, $tikiroot;
		global $wikilib; include_once('lib/wiki/wikilib.php');

		// Handle parsing options
		if ( $options == null ) $options = array();
		$options['is_html'] = $is_html = isset($options['is_html']) ? $options['is_html'] : false;
		$options['absolute_links'] = $absolute_links = isset($options['absolute_links']) ? $options['absolute_links'] : false;
		$options['language'] = $language = isset($options['language']) ? $options['language'] : '';
		$options['noparseplugins'] = $noparseplugins = isset($options['noparseplugins']) ? $options['noparseplugins'] : false;
		$options['noheaderinc'] = $noheaderinc = isset($options['noheaderinc']) ? $options['noheaderinc'] : false;
		$options['page'] = isset($options['page']) ? $options['page'] : $page;
		$options['print'] = isset($options['print']) ? $options['print'] : false;
		$options['parseimgonly'] = isset($options['parseimgonly']) ? $options['parseimgonly'] : false;
		$options['preview_mode'] = isset($options['preview_mode']) ? (bool)$options['preview_mode'] : false;
		
		
		// if simple_wiki is true, disable some wiki syntax
		// basically, allow wiki plugins, wiki links and almost
		// everything between {}
		$simple_wiki = false;
		if ($prefs['feature_wysiwyg'] == 'y' and $is_html) {
			if ($prefs['wysiwyg_wiki_semi_parsed'] == 'y') {
				$simple_wiki = true;
			} elseif ($prefs['wysiwyg_wiki_parsed'] == 'n') {
				return $data;
			}
		}

		if( $prefs['feature_wiki_argvariable'] == 'y' ) {
			if (preg_match_all("/\\{\\{((\w+)(\\|([^\\}]+))?)\\}\\}/",$data,$args, PREG_SET_ORDER)) {
				$needles = array();
				$replacements = array();

				foreach( $args as $arg ) {
					$value = $arg[4];
					$name = $arg[2];

					switch( $name ) {
					case 'user':
						$value = $user;
						break;
					case 'page':
						$value = $options['page'];
						break;
					default:
						if( isset($_GET[$name]) )
							$value = $_GET[$name];
						break;
					}

					if( ! empty( $value ) ) {
						$needles[] = $arg[0];
						$replacements[] = $value;
					}
				}

				$data = str_replace( $needles, $replacements, $data );
			}
		}

		/* <x> XSS Sanitization handling */

		// Converts &lt;x&gt; (<x> tag using HTML entities) into the tag <x>. This tag comes from the input sanitizer (XSS filter).
		// This is not HTML valid and avoids using <x> in a wiki text,
		//   but hide '<x>' text inside some words like 'style' that are considered as dangerous by the sanitizer.
		$data = str_replace( array( '&lt;x&gt;', '~np~', '~/np~' ), array( '<x>', ' ~np~', '~/np~ ' ), $data );

		// Fix false positive in wiki syntax
		//   It can't be done in the sanitizer, that can't know if the input will be wiki parsed or not
		$data = preg_replace('/(\{img [^\}]+li)<x>(nk[^\}]+\})/i', '\\1\\2', $data);

		// Process pre_handlers here
		if (is_array($this->pre_handlers)) {
			foreach ($this->pre_handlers as $handler) {
				$data = $handler($data);
			}
		}

		// Handle pre- and no-parse sections and plugins
		$preparsed = array('data'=>array(),'key'=>array());
		$noparsed = array('data'=>array(),'key'=>array());
		if (!$noparseplugins) {
			$this->parse_first($data, $preparsed, $noparsed, $options);
		}

		// Handle |# anchor links by turning them into ALINK module calls.
		preg_match_all("/\(\(([^)]*\|#[^)]*)\)\)/", $data, $anchors);

		foreach( array_unique($anchors[1]) as $anchor_line ) {
			$parts1 = explode( "|#", $anchor_line );
			$anchor_page = "";
			$anchor_desc = "";
			$anchor = "";

			// Break out |desc bits from whatever section they happen to be in
			if( strpos( $parts1[0], "|" ) ) {
				$parts2 = explode( "|", $parts1[0] );
				$anchor_page = $parts2[0];
				$anchor_desc = $parts2[1];
				$anchor = $parts1[1];
			} elseif( strpos( $parts1[1], "|" ) ) {
				$parts2 = explode( "|", $parts1[1] );
				$anchor_page = $parts1[0];
				$anchor = $parts2[0];
				$anchor_desc = $parts2[1];
			} else {
				// No |desc bit
				$anchor_page = $parts1[0];
				$anchor_desc = $parts1[0];
				$anchor = $parts1[1];
			}

			if ( !$anchor_page && $options['page'] ) {
				$anchor_page = $options['page'];
				if ( !$anchor_desc )  $anchor_desc = $options['page'];
			}
			$repl = "{ALINK(pagename=>".$anchor_page.",aname=>".$anchor.")}".$anchor_desc."{ALINK}";
			$data = str_replace( "((".$anchor_line."))", $repl, $data);
		}

		if (!$noparseplugins) {
			$this->parse_first($data, $preparsed, $noparsed, $options);
		}

		// Handle ~pre~...~/pre~ sections
		$data = preg_replace(';~pre~(.*?)~/pre~;s', '<pre>$1</pre>', $data);

		// Strike-deleted text --text--
		if (!$simple_wiki) {
			$data = preg_replace("/--(.+?)--/", "<del>$1</del>", $data);
		}

		// Handle comment sections
		$data = preg_replace(';~tc~(.*?)~/tc~;s', '', $data);
		$data = preg_replace(';~hc~(.*?)~/hc~;s', '<!-- $1 -->', $data);
		// Replace special characters
		// done after url catching because otherwise urls of dyn. sites will be modified
		// not done in wysiwyg mode, i.e. $prefs['feature_wysiwyg'] set to something other than 'no' or not set at all
		//			if (!$simple_wiki and $prefs['feature_wysiwyg'] == 'n') 
		//above line changed by mrisch - special functions were not parsing when wysiwyg is set but wysiswyg is not enabled
		// further changed by nkoth - why not parse in wysiwyg mode as well, otherwise it won't parse for display/preview?
		// must be done before color as we can have ~hs~~hs
		if (!$simple_wiki) {
			$this->parse_htmlchar($data);
		}

		// Extract [link] sections (to be re-inserted later)
		$noparsedlinks = array();

		if (!$simple_wiki) {
			// Replace colors ~~foreground[,background]:text~~
			// must be done before []as the description may contain color change
			$data = preg_replace("/\~\~([^\:\,]+)(,([^\:]+))?:(.*)\~\~/u", "<span style=\"color:$1; background:$3\">$4</span>", $data);
		}
		// This section matches [...].
		// Added handling for [[foo] sections.  -rlpowell
		if (!$simple_wiki) {
			preg_match_all("/(?<!\[)(\[[^\[][^\]]+\])/", $data, $noparseurl);

			foreach (array_unique($noparseurl[1])as $np) {
				$key = '§'.md5($this->genPass()).'§';

				$aux["key"] = $key;
				$aux["data"] = $np;
				$noparsedlinks[] = $aux;
				$data = preg_replace('/(^|[^a-zA-Z0-9])'.preg_quote($np,'/').'([^a-zA-Z0-9]|$)/', '\1'.$key.'\2', $data);
			}
		}

		// BiDi markers
		$bidiCount = 0;
		$bidiCount = preg_match_all("/(\{l2r\})/", $data, $pages);
		$bidiCount += preg_match_all("/(\{r2l\})/", $data, $pages);

		$data = preg_replace("/\{l2r\}/", "<div dir='ltr'>", $data);
		$data = preg_replace("/\{r2l\}/", "<div dir='rtl'>", $data);
		$data = preg_replace("/\{lm\}/", "&lrm;", $data);
		$data = preg_replace("/\{rm\}/", "&rlm;", $data);
		// smileys
		$data = $this->parse_smileys($data);

		// linebreaks using %%%
		$data = str_replace("%%%", "<br />", $data);

		// Replace dynamic variables
		// Dynamic variables are similar to dynamic content but they are editable
		// from the page directly, intended for short data, not long text but text
		// will work too
		//     Now won't match HTML-style '%nn' letter codes and some special utf8 situations...
		if (preg_match_all("/%([^% 0-9A-Z][^% 0-9A-Z][^% ]*)%/",$data,$dvars)) {
			// remove repeated elements
			$dvars = array_unique($dvars[1]);
			// Now replace each dynamic variable by a pair composed of the
			// variable value and a text field to edit the variable. Each
			foreach($dvars as $dvar) {
				$query = "select `data` from `tiki_dynamic_variables` where `name`=?";
				$result = $this->query($query,Array($dvar));
				if($result->numRows()) {
					$value = $result->fetchRow();
					$value = $value["data"];
				} else {
					//Default value is NULL
					$value = "NaV";
				}
				// Now build 2 divs
				$id = 'dyn_'.$dvar;

				if(isset($tiki_p_edit_dynvar)&& $tiki_p_edit_dynvar=='y') {
					$span1 = "<span  style='display:inline;' id='dyn_".$dvar."_display'><a class='dynavar' onclick='javascript:toggle_dynamic_var(\"$dvar\");' title='".tra('Click to edit dynamic variable','',true).": $dvar'>$value</a></span>";
					$span2 = "<span style='display:none;' id='dyn_".$dvar."_edit'><input type='text' name='dyn_".$dvar."' value='".$value."' />".'<input type="submit" name="_dyn_update" value="'.tra('Update variables','',true).'"/></span>';
				} else {
					$span1 = "<span class='dynavar' style='display:inline;' id='dyn_".$dvar."_display'>$value</span>";
					$span2 = '';
				}
				$html = $span1.$span2;
				//It's important to replace only once
				$dvar_preg = preg_quote( $dvar );
				$data = preg_replace("+%$dvar_preg%+",$html,$data,1);
				//Further replacements only with the value
				$data = str_replace("%$dvar%",$value,$data);
			}
			//At the end put an update button
			//<br /><div align="center"><input type="submit" name="dyn_update" value="'.tra('Update variables','',true).'"/></div>
			$data='<form method="post" name="dyn_vars">'."\n".$data.'</form>';
		}

		if (!$simple_wiki) {
			// Replace boxes
			$data = preg_replace("/\^([^\^]+)\^/", "<div class=\"simplebox\">$1</div>", $data);
			// Underlined text
			$data = preg_replace("/===(.+?)===/", "<span style=\"text-decoration:underline;\">$1</span>", $data);
			// Center text
			$data = preg_replace("/::(.+?)::/", "<div style=\"text-align: center;\">$1</div>", $data);
		}

		// definitively put out the protected words ))protectedWord((
		preg_match_all("/\)\)(\S*?)\(\(/", $data, $matches);
		$noParseWikiLinksK = array();
		$noParseWikiLinksT = array();
		foreach ($matches[0] as $mi=>$match) {
			do {
				$randNum = chr(0xff).rand(0, 1048576).chr(0xff);
			} while (strstr($data, $randNum));
			$data = str_replace($match, $randNum, $data);
			$noParseWikiLinksK[] = $randNum;
			$noParseWikiLinksT[] = $matches[1][$mi];
		}

		// New syntax for wiki pages ((name|desc)) Where desc can be anything
		// preg_match_all("/\(\(($page_regex)\|(.+?)\)\)/", $data, $pages);
		// match ((name|desc)) as well as ((name|))
		preg_match_all("/\(([a-z0-9-]+)?\(($page_regex)\|([^\)]*?)\)\)/", $data, $pages);

		$temp_max = count($pages[1]);
		for ($i = 0; $i < $temp_max; $i++) {
			$exactMatch = $pages[0][$i];
			$replacement = $this->get_wiki_link_replacement( $pages[2][$i], array( 
				'description' => $pages[6][$i], 
				'reltype' => $pages[1][$i] ) );

			$data = str_replace($exactMatch, $replacement, $data);
		}

		// New syntax for wiki pages ((name)) Where name can be anything
		preg_match_all("/\(([a-z0-9-]+)?\( *($page_regex) *\)\)/", $data, $pages);

		foreach ($pages[2] as $idx => $page_parse) {
			$exactMatch = $pages[0][$idx];
			$replacement = $this->get_wiki_link_replacement( $page_parse, array( 'reltype' => $pages[1][$idx] ) );

			$data = str_replace($exactMatch, $replacement, $data);
		}

		// Links to internal pages
		// If they are parenthesized then don't treat as links
		// Prevent ))PageName(( from being expanded \"\'
		//[A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*
		if ( ! $simple_wiki && $prefs['feature_wiki'] == 'y' && $prefs['feature_wikiwords'] == 'y' ) {
			// The first part is now mandatory to prevent [Foo|MyPage] from being converted!
			if ($prefs['feature_wikiwords_usedash'] == 'y') {
				preg_match_all("/(?<=[ \n\t\r\,\;]|^)([A-Z][a-z0-9_\-\x80-\xFF]+[A-Z][a-z0-9_\-\x80-\xFF]+[A-Za-z0-9\-_\x80-\xFF]*)(?=$|[ \n\t\r\,\;\.])/", $data, $pages);
			} else {
				preg_match_all("/(?<=[ \n\t\r\,\;]|^)([A-Z][a-z0-9\x80-\xFF]+[A-Z][a-z0-9\x80-\xFF]+[A-Za-z0-9\x80-\xFF]*)(?=$|[ \n\t\r\,\;\.])/", $data, $pages);
			}
			//TODO to have a real utf8 Wikiword where the capitals can be a utf8 capital
			$words = ( $prefs['feature_hotwords'] == 'y' ) ? $this->get_hotwords() : array();
			foreach ( array_unique($pages[1]) as $page_parse ) {
				if ( ! array_key_exists($page_parse, $words) ) {
					$repl = $this->get_wiki_link_replacement( $page_parse, array(
						'plural' => $prefs['feature_wiki_plurals'] == 'y' ) );

					$data = preg_replace("/(?<=[ \n\t\r\,\;]|^)$page_parse(?=$|[ \n\t\r\,\;\.])/", "$1" . $repl . "$2", $data);
				}
			}
		}

		// Reinsert ))Words((
		$data = str_replace($noParseWikiLinksK, $noParseWikiLinksT, $data);

		// reinsert hash-replaced links into page
		foreach ($noparsedlinks as $np) {
			$data = str_replace($np["key"], $np["data"], $data);
		}

		// *****
		// This section handles external links of the form [url] and such.
		// *****

		$links = $this->get_links($data);
		$notcachedlinks = $this->get_links_nocache($data);
		$cachedlinks = array_diff($links, $notcachedlinks);
		$this->cache_links($cachedlinks);

		// Note that there're links that are replaced
		foreach ($links as $link) {
			$target = '';
			$class = 'class="wiki"';
			$ext_icon = '';
			$rel='';

			if ($prefs['popupLinks'] == 'y') {
				$target = 'target="_blank"';
			}

			if (!isset($_SERVER['SERVER_NAME']) && isset($_SERVER['HTTP_HOST'])) {
				$_SERVER['SERVER_NAME'] = $_SERVER['HTTP_HOST'];
			}
			if (empty($_SERVER['SERVER_NAME']) || strstr($link, $_SERVER["SERVER_NAME"]) || !strstr($link, '://')) {
				$target = '';
		} else {
			$class = 'class="wiki external"';
			if ($prefs['feature_wiki_ext_icon'] == 'y') {
				$ext_icon = "<img border=\"0\" class=\"externallink\" src=\"img/icons/external_link.gif\" alt=\" (external link)\" />";
			}
			$rel='external';
		}

		// The (?<!\[) stuff below is to give users an easy way to
		// enter square brackets in their output; things like [[foo]
		// get rendered as [foo]. -rlpowell

		if ($prefs['cachepages'] == 'y' && $this->is_cached($link)) {
			//use of urlencode for using cached versions of dynamic sites
			$cosa = "<a class=\"wikicache\" target=\"_blank\" href=\"tiki-view_cache.php?url=".urlencode($link)."\">(cache)</a>";

			//$link2 = str_replace("/","\/",$link);
			//$link2 = str_replace("?","\?",$link2);
			//$link2 = str_replace("&","\&",$link2);
			$link2 = str_replace("/", "\/", preg_quote($link));
			$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)\|([^\]\|]+)\|([^\]]+)\]/"; //< last param expected here is always nocache
			$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$2 $rel\">$1</a>$ext_icon", $data);
			$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)\|([^\]]+)\]/";//< last param here ($2) is used for relation (rel) attribute (e.g. shadowbox) or nocache
			preg_match($pattern, $data, $matches);
			if (isset($matches[2]) && $matches[2]=='nocache') {
				$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$1</a>$ext_icon", $data);
			} else {
				$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$2 $rel\">$1</a>$ext_icon $cosa", $data);
			}
			$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)\]/";
			$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$1</a>$ext_icon $cosa", $data);
			$pattern = "/(?<!\[)\[$link2\]/";
			$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$link</a>$ext_icon $cosa", $data);
		} else {
			//$link2 = str_replace("/","\/",$link);
			//$link2 = str_replace("?","\?",$link2);
			//$link2 = str_replace("&","\&",$link2);
			$link2 = str_replace("/", "\/", preg_quote($link));
			$data = str_replace("|nocache", "", $data);

			$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)\|([^\]]+)\]/";
			$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$2 $rel\">$1</a>$ext_icon", $data);
			$pattern = "/(?<!\[)\[$link2\|([^\]\|]+)([^\]])*\]/";
			$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$1</a>$ext_icon", $data);
			$pattern = "/(?<!\[)\[$link2\]/";
			$data = preg_replace($pattern, "<a $class $target href=\"$link\" rel=\"$rel\">$link</a>$ext_icon", $data);
		}
		}

		// Handle double square brackets.  -rlpowell
		$data = str_replace( "[[", "[", $data );

		/*
		 * Wiki Tables syntax
		 */
		// tables in old style
		if ($prefs['feature_wiki_tables'] != 'new') {
			if (preg_match_all("/\|\|(.*)\|\|/", $data, $tables)) {
				$maxcols = 1;
				$cols = array();
				$temp_max = count($tables[0]);
				for ($i = 0; $i < $temp_max; $i++) {
					$rows = explode('||', $tables[0][$i]);
					$temp_max2 = count($rows);
					for ($j = 0; $j < $temp_max2; $j++) {
						$cols[$i][$j] = explode('|', $rows[$j]);
						if (count($cols[$i][$j]) > $maxcols)
							$maxcols = count($cols[$i][$j]);
					}
				} // for ($i ...

				$temp_max3 = count($tables[0]);
				for ($i = 0; $i < $temp_max3; $i++) {
					$repl = '<table class="wikitable">';

					$temp_max4 = count($cols[$i]);
					for ($j = 0; $j < $temp_max4; $j++) {
						$ncols = count($cols[$i][$j]);

						if ($ncols == 1 && !$cols[$i][$j][0])
							continue;

						$repl .= '<tr>';

						for ($k = 0; $k < $ncols; $k++) {
							$repl .= '<td class="wikicell" ';

							if ($k == $ncols - 1 && $ncols < $maxcols)
								$repl .= ' colspan="' . ($maxcols - $k).'"';

							$repl .= '>' . $cols[$i][$j][$k] . '</td>';
						} // // for ($k ...

						$repl .= '</tr>';
					} // for ($j ...

					$repl .= '</table>';
					$data = str_replace($tables[0][$i], $repl, $data);
				} // for ($i ...
			} // if (preg_match_all("/\|\|(.*)\|\|/", $data, $tables))
		} else {
			// New syntax for tables
			// REWRITE THIS CODE
			if (!$simple_wiki) {
				if (preg_match_all("/\|\|(.*?)\|\|/s", $data, $tables)) {
					$maxcols = 1;
					$cols = array();
					$temp_max5 = count($tables[0]);
					for ($i = 0; $i < $temp_max5; $i++) {
						$rows = split("\n|\<br\/\>", $tables[0][$i]);
						$col[$i] = array();
						$temp_max6 = count($rows);
						for ($j = 0; $j < $temp_max6; $j++) {
							$rows[$j] = str_replace('||', '', $rows[$j]);
							$cols[$i][$j] = explode('|', $rows[$j]);
							if (count($cols[$i][$j]) > $maxcols)
								$maxcols = count($cols[$i][$j]);
						}
					}

					$temp_max7 = count($tables[0]);
					for ($i = 0; $i < $temp_max7; $i++) {
						$repl = '<table class="wikitable">';
						$temp_max8 = count($cols[$i]);
						for ($j = 0; $j < $temp_max8; $j++) {
							$ncols = count($cols[$i][$j]);

							if ($ncols == 1 && !$cols[$i][$j][0])
								continue;

							$repl .= '<tr>';

							for ($k = 0; $k < $ncols; $k++) {
								$repl .= '<td class="wikicell" ';
								if ($k == $ncols - 1 && $ncols < $maxcols)
									$repl .= ' colspan="' . ($maxcols - $k).'"';

								$repl .= '>' . $cols[$i][$j][$k] . '</td>';
							}
							$repl .= '</tr>';
						}
						$repl .= '</table>';
						$data = str_replace($tables[0][$i], $repl, $data);
					}
				}
			}
		}

		if (!$simple_wiki) {
			$this->parse_data_process_maketoc( $data, $options);

		} // closing if ($simple_wiki)

		// Close BiDi DIVs if any
		for ($i = 0; $i < $bidiCount; $i++) {
			$data .= "</div>";
		}

		// Put removed strings back.
		$this->replace_preparse($data, $preparsed, $noparsed);

		// Process pos_handlers here
		foreach ($this->pos_handlers as $handler) {
			$data = $handler($data);
		}
		return $data;
	}

	function parse_data_process_maketoc( &$data, $options) {

		global $prefs;

		$need_maketoc = strpos($data, "{maketoc");
		$need_autonumbering = ( preg_match('/^\!+[\-\+]?#/m', $data) > 0 );

		$anch = array();
		global $anch;
		$pageNum = 1;

		// 08-Jul-2003, by zaufi
		// HotWords will be replace only in ordinal text
		// It looks __really__ goofy in Headers or Titles

		if ( $prefs['feature_hotwords'] == 'y' ) {
			// Get list of HotWords
			$words = $this->get_hotwords();
		}

		// Now tokenize the expression and process the tokens
		// Use tab and newline as tokenizing characters as well  ////
		$lines = explode("\n", $data);
		$data = '';
		$listbeg = array();
		$divdepth = array();
		$hdr_structure = array();
		$show_title_level = array();
		$last_hdr = array();
		$nb_last_hdr = 0;
		$nb_hdrs = 0;
		$inTable = 0;
		$inPre = 0;
		$inComment = 0;
		$inTOC = 0;
		$inScript = 0;
		$title_text = '';

		// loop: process all lines
		$in_paragraph = 0;
		foreach ($lines as $line) {
			$current_title_num = '';
			$numbering_remove = 0;

			$line = rtrim($line); // Trim off trailing white space
			// Check for titlebars...
			// NOTE: that title bar should start at the beginning of the line and
			//	   be alone on that line to be autoaligned... otherwise, it is an old
			//	   styled title bar...
			if (substr(ltrim($line), 0, 2) == '-=' && substr($line, -2, 2) == '=-') {
				// Close open paragraph and lists, but not div's
				$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);
				//
				$align_len = strlen($line) - strlen(ltrim($line));

				// My textarea size is about 120 space chars.
				//define('TEXTAREA_SZ', 120);

				// NOTE: That strict math formula (split into 3 areas) gives
				//	   bad visual effects...
				// $align = ($align_len < (TEXTAREA_SZ / 3)) ? "left"
				//		: (($align_len > (2 * TEXTAREA_SZ / 3)) ? "right" : "center");
				//
				// Going to introduce some heuristic here :)
				// Visualy (remember that space char is thin) center starts at 25 pos
				// and 'right' from 60 (HALF of full width!) -- thats all :)
				//
				// NOTE: Guess align only if more than 10 spaces before -=title=-
				if ($align_len > 10) {
					$align = ($align_len < 25) ? "left" : (($align_len > 60) ? "right" : "center");

					$align = ' style="text-align: ' . $align . ';"';
				} else {
					$align = '';
				}

				//
				$line = trim($line);
				$line = '<div class="titlebar"' . $align . '>' . substr($line, 2, strlen($line) - 4). '</div>';
				$data .= $line . "\n";
				// TODO: Case is handled ...  no need to check other conditions
				//	   (it is apriori known that they are all false, moreover sometimes
				//	   check procedure need > O(0) of compexity)
				//	   -- continue to next line...
				//	   MUST replace all remaining parse blocks to the same logic...
				continue;
			}

			// Replace old styled titlebars
			if (strlen($line) != strlen($line = preg_replace("/-=(.+?)=-/", "<div class='titlebar'>$1</div>", $line))) {
				// Close open paragraph, but not lists (why not?) or div's
				$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
				$data .= $line . "\n";

				continue;
			}

			// check if we are inside a ~hc~ block and, if so, ignore
			// monospaced and do not insert <br />
			$inComment += substr_count(strtolower($line), "<!--");
			$inComment -= substr_count(strtolower($line), "-->");

			// check if we are inside a ~pre~ block and, if so, ignore
			// monospaced and do not insert <br />
			$inPre += substr_count(strtolower($line), "<pre");
			$inPre -= substr_count(strtolower($line), "</pre");

			// check if we are inside a table, if so, ignore monospaced and do
			// not insert <br />
			$inTable += substr_count(strtolower($line), "<table");
			$inTable -= substr_count(strtolower($line), "</table");

			// check if we are inside an ul TOC list, if so, ignore monospaced and do
			// not insert <br />
			$inTOC += substr_count(strtolower($line), "<ul class=\"toc");
			$inTOC -= substr_count(strtolower($line), "</ul");

			// check if we are inside a script not insert <br />
			$inScript += substr_count(strtolower($line), "<script ");
			$inScript -= substr_count(strtolower($line), "</script>");

			// If the first character is ' ' and we are not in pre then we are in pre
			if (substr($line, 0, 1) == ' ' && $prefs['feature_wiki_monosp'] == 'y' && $inTable == 0 && $inPre == 0 && $inComment == 0 && !$options['is_html']) {
				// Close open paragraph and lists, but not div's
				$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);

				// If the first character is space then make font monospaced.
				// For fixed formatting, use ~pp~...~/pp~
				$line = '<tt>' . $line . '</tt>';
			}

			if ($prefs['feature_hotwords'] == 'y') {
				// Replace Hotwords before begin
				$line = $this->replace_hotwords($line, $words);
			}

			// Make plain URLs clickable hyperlinks
			if ($prefs['feature_autolinks'] == 'y') {
				$line = $this->autolinks($line);
			}

			// Replace monospaced text
			$line = preg_replace("/(^|\s)-\+(.*?)\+-/", "$1<code>$2</code>", $line);
			// Replace bold text
			$line = preg_replace("/__(.*?)__/", "<b>$1</b>", $line);
			// Replace italic text
			$line = preg_replace("/\'\'(.*?)\'\'/", "<i>$1</i>", $line);
			// Replace definition lists
			$line = preg_replace("/^;([^:]*):([^\/\/].*)/", "<dl><dt>$1</dt><dd>$2</dd></dl>", $line);
			$line = preg_replace("/^;(<a [^<]*<\/a>):([^\/\/].*)/", "<dl><dt>$1</dt><dd>$2</dd></dl>", $line);

			// This line is parseable then we have to see what we have
			if (substr($line, 0, 3) == '---') {
				// This is not a list item --- close open paragraph and lists, but not div's
				$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 0);
				$line = '<hr />';
			} else {
				$litype = substr($line, 0, 1);
				if ($litype == '*' || $litype == '#') {
					// Close open paragraph, but not lists or div's
					$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
					$listlevel = $this->how_many_at_start($line, $litype);
					$liclose = '</li>';
					$addremove = 0;
					if ($listlevel < count($listbeg)) {
						while ($listlevel != count($listbeg)) $data .= array_shift($listbeg);
						if (substr(current($listbeg), 0, 5) != '</li>') $liclose = '';
					} elseif ($listlevel > count($listbeg)) {
						$listyle = '';
						while ($listlevel != count($listbeg)) {
							array_unshift($listbeg, ($litype == '*' ? '</ul>' : '</ol>'));
							if ($listlevel == count($listbeg)) {
								$listate = substr($line, $listlevel, 1);
								if (($listate == '+' || $listate == '-') && !($litype == '*' && !strstr(current($listbeg), '</ul>') || $litype == '#' && !strstr(current($listbeg), '</ol>'))) {
									$thisid = 'id' . microtime() * 1000000;
									$data .= '<br /><a id="flipper' . $thisid . '" class="link" href="javascript:flipWithSign(\'' . $thisid . '\')">[' . ($listate == '-' ? '+' : '-') . ']</a>';
									$listyle = ' id="' . $thisid . '" style="display:' . ($listate == '+' ? 'block' : 'none') . ';"';
									$addremove = 1;
								}
							}
							$data.=($litype=='*'?"<ul$listyle>":"<ol$listyle>");
						}
						$liclose='';
					}
					if ($litype == '*' && !strstr(current($listbeg), '</ul>') || $litype == '#' && !strstr(current($listbeg), '</ol>')) {
						$data .= array_shift($listbeg);
						$listyle = '';
						$listate = substr($line, $listlevel, 1);
						if (($listate == '+' || $listate == '-')) {
							$thisid = 'id' . microtime() * 1000000;
							$data .= '<br /><a id="flipper' . $thisid . '" class="link" href="javascript:flipWithSign(\'' . $thisid . '\')">[' . ($listate == '-' ? '+' : '-') . ']</a>';
							$listyle = ' id="' . $thisid . '" style="display:' . ($listate == '+' ? 'block' : 'none') . ';"';
							$addremove = 1;
						}
						$data .= ($litype == '*' ? "<ul$listyle>" : "<ol$listyle>");
						$liclose = '';
						array_unshift($listbeg, ($litype == '*' ? '</li></ul>' : '</li></ol>'));
					}
					$line = $liclose . '<li>' . substr($line, $listlevel + $addremove);
					if (substr(current($listbeg), 0, 5) != '</li>') array_unshift($listbeg, '</li>' . array_shift($listbeg));
				} elseif ($litype == '+') {
					// Close open paragraph, but not list or div's
					$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
					$listlevel = $this->how_many_at_start($line, $litype);
					// Close lists down to requested level
					while ($listlevel < count($listbeg)) $data .= array_shift($listbeg);

					// Must append paragraph for list item of given depth...
					$listlevel = $this->how_many_at_start($line, $litype);
					if (count($listbeg)) {
						if (substr(current($listbeg), 0, 5) != '</li>') {
							array_unshift($listbeg, '</li>' . array_shift($listbeg));
							$liclose = '<li>';
						} else $liclose = '<br />';
					} else $liclose = '';
					$line = $liclose . substr($line, count($listbeg));
				} else {
					// This is not a list item - close open lists,
					// but not paragraph or div's. If we are
					// closing a list, there really shouldn't be a
					// paragraph open anyway.
					$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 0, 1, 0);
					// Get count of (possible) header signs at start
					$hdrlevel = $this->how_many_at_start($line, '!');
					// If 1st char on line is '!' and its count less than 6 (max in HTML)
					if ($litype == '!' && $hdrlevel > 0 && $hdrlevel <= 6) {

						/*
						 * Handle headings autonumbering syntax (i.e. !#Text, !!#Text, ...)
						 * Note :
						 *    this needs to be done even if the current header has no '#'
						 *    in order to generate the right numbers when they are not specified for every headers.
						 *    This is the case, for example, when you want to add numbers to headers of level 2 but not to level 1
						 */

						$line_lenght = strlen($line);

						// Generate an array containing the squeleton of maketoc (based on headers levels)
						//   i.e. hdr_structure will contain something lile this :
						//     array( 1, 2, 2.1, 2.1.1, 2.1.2, 2.2, ... , X.Y.Z... )
						//

						$hdr_structure[$nb_hdrs] = '';

						// Generate the number (e.g. 1.2.1.1) of the current title, based on the previous title number :
						//   - if the current title deepest level is lesser than (or equal to)
						//     the deepest level of the previous title : then we increment the last level number,
						//   - else : we simply add new levels with value '1' (only if the previous level number was shown),
						//
						if ( $nb_last_hdr > 0 && $hdrlevel <= $nb_last_hdr ) {
							$hdr_structure[$nb_hdrs] = array_slice($last_hdr, 0, $hdrlevel);
							if ( !empty($show_title_level[$hdrlevel]) || ! $need_autonumbering ) {
								//
								// Increment the level number only if :
								//     - the last title of the same level number has a displayed number
								//  or - no title has a displayed number (no autonumbering)
								//
								$hdr_structure[$nb_hdrs][$hdrlevel - 1]++;
							}
						} else {
							if ( $nb_last_hdr > 0 ) {
								$hdr_structure[$nb_hdrs] = $last_hdr;
							}
							for ( $h = 0 ; $h < $hdrlevel - $nb_last_hdr ; $h++ ) {
								$hdr_structure[$nb_hdrs][$h + $nb_last_hdr] = '1';
							}
						}
						$show_title_level[$hdrlevel] = ereg('^!+[\+\-]?#', $line);

						// Update last_hdr info for the next header
						$last_hdr = $hdr_structure[$nb_hdrs];
						$nb_last_hdr = count($last_hdr);

						$current_title_real_num = implode('.', $hdr_structure[$nb_hdrs]).'. ';

						// Update the current title number to hide all parents levels numbers if the parent has no autonumbering
						$hideall = false;
						for ( $j = $hdrlevel ; $j > 0 ; $j-- ) {
							if ( $hideall || ! $show_title_level[$j] ) {
								unset($hdr_structure[$nb_hdrs][$j - 1]);
								$hideall = true;
							}
						}

						// Store the title number to use only if it has to be shown (if the '#' char is used)
						$current_title_num = $show_title_level[$hdrlevel] ? implode('.', $hdr_structure[$nb_hdrs]).'. ' : '';

						$nb_hdrs++;


						// Close open paragraph (lists already closed above)
						$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
						// Close lower level divs if opened
						for (;current($divdepth) >= $hdrlevel; array_shift($divdepth)) $data .= '</div>';

						// Remove possible hotwords replaced :)
						//   Umm, *why*?  Taking this out lets page
						//   links in headers work, which can be nice.
						//   -rlpowell
						// $line = strip_tags($line);

						// OK. Parse headers here...
						$anchor = '';
						$aclose = '';
						$aclose2 = '';
						$addremove = $show_title_level[$hdrlevel] ? 1 : 0; // If needed, also remove '#' sign from title beginning

						// May be special signs present after '!'s?
						$divstate = substr($line, $hdrlevel, 1);
						if ($divstate == '+' || $divstate == '-') {
							// OK. Must insert flipper after HEADER, and then open new div...
							$thisid = 'id' . ereg_replace('[^a-zA-z0-9]', '',urlencode($options['page'])) .$nb_hdrs;
							$aclose = '<a id="flipper' . $thisid . '" class="link" href="javascript:flipWithSign(\'' . $thisid . '\')">[' . ($divstate == '-' ? '+' : '-') . ']</a>';
							$aclose2 = '<div id="' . $thisid . '" class="showhide_heading" style="display:' . ($divstate == '+' ? 'block' : 'none') . ';">';
							$aclose2 = $aclose2 . '<script type="text/javascript">'."\n".'<!--//--><![CDATA[//><!--'."\n".'setheadingstate(\''. $thisid .'\')'."\n".' //--><!]]>'."\n".'</script>';
							array_unshift($divdepth, $hdrlevel);
							$addremove += 1;
						}

						// Generate the final title text
						$title_text_base = substr($line, $hdrlevel + $addremove);
						$title_text = $current_title_num.$title_text_base;

						// create stable anchors for all headers
						// use header but replace non-word character sequences
						// with one underscore (for XHTML 1.0 compliance)
						// Workaround pb with plugin replacement and header id
						//  first we remove hash from title_text for headings beginning
						//  with images and HTML tags
						$thisid = ereg_replace('§[a-z0-9]{32}§', '', $title_text);
						$thisid = ereg_replace('</?[^>]+>', '', $thisid);
						$thisid = ereg_replace('[^a-zA-Z0-9\:\.\-\_]+', '_', $thisid);
						$thisid = ereg_replace('^[^a-zA-Z]*', '', $thisid);
						if (empty($thisid)) $thisid = 'a'.md5($title_text);

						// Add a number to the anchor if it already exists, to avoid duplicated anchors
						if ( isset($all_anchors[$thisid]) ) {
							$all_anchors[$thisid]++;
							$thisid .= '_'.$all_anchors[$thisid];
						} else {
							$all_anchors[$thisid] = 1;
						}

						// Collect TOC entry if any {maketoc} is present on the page
						//if ( $need_maketoc !== false ) {
						$anch[] =  array(
										'id' => $thisid,
										'hdrlevel' => $hdrlevel,
										'pagenum' => $pageNum,
										'title' => $title_text_base,
										'title_displayed_num' => $current_title_num,
										'title_real_num' => $current_title_real_num
										);
						//}
						global $tiki_p_edit, $section;
						if ($prefs['wiki_edit_section'] == 'y' && $section == 'wiki page' && $tiki_p_edit == 'y' and ( $prefs['wiki_edit_section_level'] == 0 or $hdrlevel <= $prefs['wiki_edit_section_level']) && (empty($options['print']) || !$options['print']) ){
							global $smarty;
							include_once('lib/smarty_tiki/function.icon.php');
							$button = '<div class="icon_edit_section"><a href="tiki-editpage.php?';
							if (!empty($options['page'])) {
								$button .= 'page='.urlencode($options['page']).'&amp;';
							}
							$button .= 'hdr='.$nb_hdrs.'">'.smarty_function_icon(array('_id'=>'page_edit_section', 'alt'=>tra('Edit Section')), $smarty).'</a></div>';
						} else {
							$button = '';
						}

						// Use $hdrlevel + 1 because the page title is H1, so none of the other headers should be.
						// Except when page title is off
						// Or when in wysiwyg mode
						$headerInc = 0;
						if( $prefs['feature_page_title'] == 'y' && ! $options['noheaderinc'] )
							++$headerInc;

						if ( $prefs['feature_wiki_show_hide_before'] == 'y' ) {
							$line = $button.'<h'.($hdrlevel+$headerInc).' class="showhide_heading" id="'.$thisid.'">'.$aclose.' '.$title_text.'</h'.($hdrlevel+$headerInc).'>'.$aclose2;
						} else {
							$line = $button.'<h'.($hdrlevel+$headerInc).' class="showhide_heading" id="'.$thisid.'">'.$title_text.'</h'.($hdrlevel+$headerInc).'>'.$aclose.$aclose2;
						}
					} elseif (!strcmp($line, $prefs['wiki_page_separator'])) {
						// Close open paragraph, lists, and div's
						$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 1);
						// Leave line unchanged... tiki-index.php will split wiki here
						$line = $prefs['wiki_page_separator'];
						$pageNum += 1;
					} else {
						/** Usual paragraph.
						 *
						 * If the
						 * $prefs['feature_wiki_paragraph_formatting']
						 * is on, then consecutive lines of
						 * text will be gathered into a block
						 * that is surrounded by HTML
						 * paragraph tags. One or more blank
						 * lines, or another special Wiki line
						 * (e.g., heading, titlebar, etc.)
						 * signifies the end of the
						 * paragraph. If the paragraph
						 * formatting feature is off, the
						 * original Tikiwiki behavior is used,
						 * in which each line in the source is
						 * terminated by an explicit line
						 * break (br tag).
						 *
						 * @since Version 1.9
						 */
						if ($inTable == 0 && $inPre == 0 && $inComment == 0 && $inTOC == 0 && $inScript == 0
								// Don't put newlines at comments' end!
								&& ! substr_count(strtolower($line), "-->")
							 ) {
							if ($prefs['feature_wiki_paragraph_formatting'] == 'y') {
								if ($in_paragraph && ( 0 == strcmp("", trim($line)) || substr(trim($line),0,5) == '</div' || substr(trim($line),0,4) == '<div')) {
									// If still in paragraph, on meeting first blank line or end of div or start of div created by plugins; close a paragraph
									$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 0, 0);
								} elseif (!$in_paragraph && (0 != strcmp("", trim($line))) && substr(trim($line),0,4) != '<div') {
									// If not in paragraph, first non-blank line; start a paragraph; if not start of div created by plugins
									$data .= "<p>";
									$in_paragraph = 1;
								} elseif ($in_paragraph && $prefs['feature_wiki_paragraph_formatting_add_br'] == 'y' && substr(trim($line),0,5) != '</div' && substr(trim($line),0,4) != '<div') {
									// A normal in-paragraph line if not close of div created by plugins
									$line = '<br />' . $line;
								} else {
									// A normal in-paragraph line or a consecutive blank line.
									// Leave it as is.
								}
							} else {
								$line .= '<br />';
							}
						}
					}
				}
			}
			$data .= $line . "\n";
		}

		// Close open paragraph, lists, and div's
		$this->close_blocks($data, $in_paragraph, $listbeg, $divdepth, 1, 1, 1);

		/*
		 * Replace special "maketoc" plugins
		 *  Valid arguments :
		 *    - type (look of the maketoc),
		 *    - maxdepth (max level displayed),
		 *    - title (replace the default title),
		 *    - showhide (if set to y, add the Show/Hide link)
		 *    - nolinks (if set to y, don't add links on toc entries)
		 *    - nums : 
		 *       * 'n' means 'no title autonumbering' in TOC,
		 *       * 'force' means :
		 *	    ~ same as 'y' if autonumbering is used in the page,
		 *	    ~ 'number each toc entry as if they were all autonumbered'
		 *       * any other value means 'same as page's headings autonumbering',
		 *
		 *  (Note that title will be translated if a translation is available)
		 *
		 *  Examples: {maketoc}, {maketoc type=box maxdepth=1 showhide=y}, {maketoc title="Page Content" maxdepth=3}, ...
		 *  Obsolete syntax: {maketoc:box}
		 */
		$new_data = '';
		$search_start = 0;
		while ( ($maketoc_start = strpos($data, "{maketoc", $search_start)) !== false ) {
			$maketoc_length = strpos($data, "}", $maketoc_start) + 1 - $maketoc_start;
			$maketoc_string = substr($data, $maketoc_start, $maketoc_length);

			// Handle old type definition for type "box" (and preserve environment for the title also)
			if ( $maketoc_length > 12 && strtolower(substr($maketoc_string, 8, 4)) == ':box' ) {
				$maketoc_string = "{maketoc type=box showhide=y title='".tra('index', $options['language'], true).'"'.substr($maketoc_string, 12);
			}

			$maketoc_string = str_replace('&quot;', '"', $maketoc_string);
			$maketoc_regs = array();

			if ( $maketoc_length == 9 || preg_match_all("/([^\s=\(]+)=([^\"\s=\)\}]+|\"[^\"]*\")/", $maketoc_string, $maketoc_regs) ) {

				if ( $maketoc_start > 0 ) {
					$new_data .= substr($data, 0, $maketoc_start);
				}

				// Set maketoc default values
				$maketoc_args = array(
						'type' => '',
						'maxdepth' => 0, // No limit
						'title' => tra('Table of contents', $options['language'], true),
						'showhide' => '',
						'nolinks' => '',
						'nums' => ''
						);

				// Build maketoc arguments list (and remove " chars if they are around the value)
				if ( isset($maketoc_regs[1]) ) {
					$nb_args = count($maketoc_regs[1]);
					for ( $a = 0; $a < $nb_args ; $a++ ) {
						$maketoc_args[strtolower($maketoc_regs[1][$a])] = trim($maketoc_regs[2][$a], '"');
					}
				}

				if ( $maketoc_args['title'] != '' ) {
					// Translate maketoc title
					$maketoc_summary = ' summary="'.tra($maketoc_args['title'], $options['language'], true).'"';
					$maketoc_title = "<div id='toctitle'><h3>".tra($maketoc_args['title'], $options['language']).'</h3></div>';
				} else {
					$maketoc_summary = '';
					$maketoc_title = '';
				}

				// Build maketoc
				switch ( $maketoc_args['type'] ) {
					case 'box': 
						$maketoc_header = '';
						$maketoc = "<table id='toc' class='toc'$maketoc_summary>\n<tr><td>$maketoc_title<ul>";
						$maketoc_footer = "</ul></td></tr></table>\n";
						$link_class = 'toclink';
						break;
					default: 
						$maketoc = '';
						$maketoc_header = "<span id='toc'>".$maketoc_title;
						$maketoc_footer = '</span>';
						$link_class = 'link';
				}
				if ( count($anch) and $need_maketoc !== false) {
					foreach ( $anch as $tocentry ) {
						if ( $maketoc_args['maxdepth'] > 0 && $tocentry['hdrlevel'] > $maketoc_args['maxdepth'] ) {
							continue;
						}

						// Generate the toc entry title (with nums)
						if ( $maketoc_args['nums'] == 'n' ) {
							$tocentry_title = '';
						} elseif ( $maketoc_args['nums'] == 'force' && ! $need_autonumbering ) {
							$tocentry_title = $tocentry['title_real_num'];
						} else {
							$tocentry_title = $tocentry['title_displayed_num'];
						}
						$tocentry_title .= $tocentry['title'];

						// Generate the toc entry link
						$tocentry_link = '#'.$tocentry['id'];
						if ( $tocentry['pagenum'] > 1 ) {
							$tocentry_link = $_SERVER['PHP_SELF'].'?page='.$options['page'].'&pagenum='.$tocentry['pagenum'].$tocentry_link;
						}
						if ( $maketoc_args['nolinks'] != 'y' ) {
							$tocentry_title = "<a href='$tocentry_link' class='link'>".$tocentry_title.'</a>';
						}

						if ( $maketoc != '' ) $maketoc.= "\n";
						switch ( $maketoc_args['type'] ) {
							case 'box':
								$maketoc .= "<li class='toclevel-".$tocentry['hdrlevel']."'>".$tocentry_title."</li>";
								break;
							default:
								$maketoc .= str_repeat('*', $tocentry['hdrlevel']).$tocentry_title;
						}
					}
					$maketoc = $this->parse_data($maketoc);
					$maketoc = ereg_replace("^<ul>", '<ul class="toc">', $maketoc);

					if ( $link_class != 'link' ) {
						$maketoc = ereg_replace("'link'", "'$link_class'", $maketoc);
					}
				}
				$maketoc = $maketoc_header.$maketoc.$maketoc_footer;

				// Add a Show/Hide link
				if ( isset($maketoc_args['showhide']) && $maketoc_args['showhide'] == 'y' ) {
					$maketoc .= "<script type='text/javascript'>\n"
						. "//<![CDATA[\n"
						. " if (window.showTocToggle) { var tocShowText = '".tra('Show','',true)."'; var tocHideText = '".tra('Hide','',true)."'; showTocToggle(); }\n"
						. "//]]>;\n"
						. "</script>\n";
				}

				$new_data .= $maketoc;
				$data = substr($data, $maketoc_start + $maketoc_length);
				$search_start = 0; // Reinitialize search start cursor, since data now begins after the last replaced maketoc
			} else {
				$search_start = $maketoc_start + $maketoc_length;
			}
		}
		$data = $new_data.$data;
		// Add icon to edit the text before the first section (if there is some)
		if ($prefs['wiki_edit_section'] == 'y' && isset($section) && $section == 'wiki page' && $tiki_p_edit == 'y' && (empty($options['print']) || !$options['print'])  && strpos($data, '<div class="icon_edit_section">') != 0){
			global $smarty;
			include_once('lib/smarty_tiki/function.icon.php');
			$button = '<div class="icon_edit_section"><a href="tiki-editpage.php?';
			if (!empty($options['page'])) {
				$button .= 'page='.urlencode($options['page']).'&amp;';
			}
			$button .= 'hdr=0">'.smarty_function_icon(array('_id'=>'page_edit_section', 'alt'=>tra('Edit Section')), $smarty).'</a></div>';
			$data = $button.$data;
		}
	}

	function get_wiki_link_replacement( $pageLink, $extra = array() ) {
		global $prefs, $wikilib, $semanticlib;
		
		$displayLink = $pageLink;

		// HTML entities encoding breaks page lookup
		$pageLink = html_entity_decode( $pageLink, ENT_COMPAT, 'UTF-8' );

		$description = null;
		$reltype = null;
		$processPlural = false;
		$bestLang = ($prefs['feature_multilingual'] == 'y' && $prefs['feature_best_language'] == 'y')? "&amp;bl=y" : "";

		if( array_key_exists( 'description', $extra ) )
			$description = $extra['description'];
		if( array_key_exists( 'reltype', $extra ) )
			$reltype = $extra['reltype'];
		if( array_key_exists( 'plural', $extra ) )
			$processPlural = (boolean) $extra['plural'];

		// Replace links to external wikis
		if (strpos($pageLink, ':')) {
			$wexs = explode(':', $pageLink);

			if (count($wexs) == 2) {
				$wkname = $wexs[0];

				if ($this->getOne("select count(*) from `tiki_extwiki` where `name`=?",array($wkname)) == 1) {
					$wkurl = $this->getOne("select `extwiki`  from `tiki_extwiki` where `name`=?",array($wkname));

					$wkurl = '<a href="' . str_replace('$page', urlencode($wexs[1]), $wkurl). '" class="wiki external ' . $reltype . '">' . $wexs[1] . '</a>';
					return $wkurl;
				}
			}
		}

		// 24-Jun-2003, by zaufi
		// TODO: future optimize: get page description and modification time at once.
		// text[0] = link description (previous format)
		// text[1] = timeout in seconds (new field)
		// text[2..N] = drop
		$text = explode("|", $description);

		if ($desc = $this->page_exists_desc($pageLink, true)) {
			// why the preg_replace? ex: ((page||Page-Desc)) the desc must stay Page-Desc, and not ))Page-Desc((
			$uri_ref = $wikilib->sefurl($pageLink).$bestLang;

			// check to see if desc is blank in ((page|desc))
			if (strlen(trim($text[0])) > 0) {
				$linktext = $text[0];
			} elseif ($desc != $pageLink && $description !== null) {
				// desc is blank; use the page description instead
				$linktext = $displayLink . ': ' . $desc;
			} else {
				// there is no page description
				$linktext = $displayLink;
			}

			$repl = '<a title="'.$desc.'" href="'.$uri_ref.'" class="wiki ' . $reltype . '">' . $linktext . '</a>';

			// Check is timeout expired?
			if (isset($text[1]) && (time() - intval($this->page_exists_modtime($pageLink))) < intval($text[1])) {
				// Append small 'new' image. TODO: possible 'updated' image more suitable...
				$repl .= '&nbsp;<img src="img/icons/new.gif" border="0" alt="'.tra("new","",true).'" />';
			}

			return $repl;
		}

		if( $processPlural ) {
			$plural_tmp = $pageLink;
			// Plurals like policy / policies
			$plural_tmp = preg_replace("/ies$/", "y", $plural_tmp);
			// Plurals like address / addresses
			$plural_tmp = preg_replace("/sses$/", "ss", $plural_tmp);
			// Plurals like box / boxes
			$plural_tmp = preg_replace("/([Xx])es$/", "$1", $plural_tmp);
			// Others, excluding ending ss like address(es)
			$plural_tmp = preg_replace("/([A-Za-rt-z])s$/", "$1", $plural_tmp);

			if($desc = $this->page_exists_desc($plural_tmp, true)) {
				$repl = "<a title='".$desc."' href='".$wikilib->sefurl($plural_tmp).$bestLang."' class='wiki'>$displayLink</a>";
				return $repl;
			}
		}

		$uri_ref = "tiki-editpage.php?page=" . urlencode($pageLink);
		if( $prefs['feature_multilingual'] == 'y' && isset( $GLOBALS['pageLang'] ) ) {
			$uri_ref .= '&amp;lang=' . urlencode($GLOBALS['pageLang']);
		}

		$repl = (strlen(trim($text[0])) > 0 ? $text[0] : $pageLink) . '<a href="'.$uri_ref.'" title="'.tra("Create page:","",true)." ".urlencode($pageLink).'" class="wiki wikinew">?</a>';

		return $repl;
	}

	function parse_smileys($data) {
		global $prefs;

		if ($prefs['feature_smileys'] == 'y') {
			$data = preg_replace("/\(:([^:]+):\)/", "<img alt=\"$1\" src=\"img/smiles/icon_$1.gif\" />", $data);
		}
		return $data;
	}

	function get_pages($data,$withReltype = false) {
		global $page_regex, $prefs;

		preg_match_all("/\(([a-z0-9-]+)?\( *($page_regex) *\)\)/", $data, $normal);
		preg_match_all("/\(([a-z0-9-]+)?\( *($page_regex) *\|(.+?)\)\)/", $data, $withDesc);

		if ($prefs['feature_wikiwords'] == 'y') {
			preg_match_all("/([ \n\t\r\,\;]|^)?([A-Z][a-z0-9_\-]+[A-Z][a-z0-9_\-]+[A-Za-z0-9\-_]*)($|[ \n\t\r\,\;\.])/", $data, $wikiLinks);

			$pageList = array_merge( $normal[2], $withDesc[2], $wikiLinks[2] );
			if( $withReltype ) {
				$relList = array_merge(
					$normal[1], 
					$withDesc[1], 
					count($wikiLinks[2]) ? array_fill( 0, count($wikiLinks[2]), null ) : array()
				);
			}
		} else {
			$pageList = array_merge( $normal[2], $withDesc[2] );
			if( $withReltype ) {
				$relList = array_merge(
					$normal[1], 
					$withDesc[1]
				);
			}
		}

		if( $withReltype ) {
			$complete = array();
			foreach( $pageList as $idx => $name ) {
				if( ! array_key_exists( $name, $complete ) )
					$complete[$name] = array();
				if( ! empty( $relList[$idx] ) && ! in_array( $relList[$idx], $complete[$name] ) )
					$complete[$name][] = $relList[$idx];
			}

			return $complete;
		} else {
			return array_unique( $pageList );
		}
	}

	function clear_links($page) {
		$query = "delete from `tiki_links` where `fromPage`=?";
		$result = $this->query($query, array($page));
	}

	function replace_link($pageFrom, $pageTo, $types = array()) {
		$query = "delete from `tiki_links` where `fromPage`=? and `toPage`=?";
		$result = $this->query($query, array($pageFrom,$pageTo));

		if( count($types) == 0 ) {
			$query = "insert into `tiki_links`(`fromPage`,`toPage`) values(?, ?)";
			$result = $this->query($query, array($pageFrom,$pageTo));
		} else {
			sort($types);
			$query = "insert into `tiki_links`(`fromPage`,`toPage`, `reltype`) values(?, ?, ?)";
			$result = $this->query($query, array( $pageFrom, $pageTo, implode(',', $types) ));
		}
	}

	function invalidate_cache($page) {
		unset( $this->cache_page_info[urlencode($page)] );
		$query = "update `tiki_pages` set `cache_timestamp`=? where `pageName`=?";
		$this->query($query, array(0,$page) );
	}

	/** Update a wiki page
		@param array $hash- lock_it,contributions, contributors
	 **/
	function update_page($pageName, $edit_data, $edit_comment, $edit_user, $edit_ip, $edit_description = '', $minor = false, $lang='', $is_html=false, $hash=null, $saveLastModif=null, $wysiwyg='', $wiki_authors_style) {
		global $smarty, $prefs, $dbTiki, $histlib, $quantifylib;
		include_once ("lib/wiki/histlib.php");
		include_once ("lib/commentslib.php");

		if( $wysiwyg == 'y' ) {
			$is_html = 1;
		}

		if( ! $is_html ) {
			$edit_data = str_replace( '&lt;x&gt;', '', $edit_data );
		}

		$commentslib = new Comments($dbTiki);

		if (!$edit_user) $edit_user = 'anonymous';

		$this->invalidate_cache($pageName);
		// Collect pages before modifying edit_data (see update of links below)
		$pages = $this->get_pages($edit_data, true);

		if (!$this->page_exists($pageName))
			return false;

		// Get this page information
		$info = $this->get_page_info($pageName);

		// Use largest version +1 in history table rather than tiki_page because versions used to be bugged
		// tiki_history is also bugged as not all changes get stored in the history, like minor changes
		// and changes that do not modify the body of the page. Both numbers are wrong, but the largest of
		// them both is right.
		$old_version = max(
				$info["version"],
				$histlib->get_page_latest_version($pageName) + 1
				);

		$lastModif = $info["lastModif"];
		$user = $info["user"];
		if (!$user) $user = 'anonymous';
		$ip = $info["ip"];
		$comment = $info["comment"];
		$description = $info['description'];
		$data = $info["data"];
		$version = $old_version + 1;

		if( $prefs['quantify_changes'] == 'y' && $prefs['feature_multilingual'] == 'y' ) {
			include_once 'lib/wiki/quantifylib.php';
			$quantifylib->recordChangeSize( $info['page_id'], $version, $info['data'], $edit_data );
		}

		$html=$is_html?1:0;
		if ($html && $prefs['feature_purifier'] != 'n') {
			require "lib/htmlpurifier/HTMLPurifier.auto.php";
			$purifier = new HTMLPurifier();
			$edit_data = $purifier->purify($edit_data);
		}
		$mid = '';

		if( is_null( $saveLastModif ) ) {
			$saveLastModif = $this->now;
		}

		$bindvars = array($edit_description,$edit_data,$edit_comment,(int) $saveLastModif,$version,$edit_user,$edit_ip,(int)strlen($data),$html,$wysiwyg, $wiki_authors_style);
		if ($lang) {
			$mid .= ', `lang`=? ';
			$bindvars[] = $lang;
		}
		if (!empty($hash['lock_it']) && ($hash['lock_it'] == 'y' || $hash['lock_it'] == 'on')) {
			$mid .= ', `flag`=?, `lockedby`=? ';
			$bindvars[] = 'L';
			$bindvars[] = $user;
		} else if (empty($hash['lock_it']) || $hash['lock_it'] == 'n') {
			$mid .= ', `flag`=?, `lockedby`=? ';
			$bindvars[] = '';
			$bindvars[] = '';
		}
		if (empty($hash['contributions'])) {
			$hash['contributions'] = '';
		}
		if (empty($hash['contributors'])) {
			$hash2 = '';
		} else {
			foreach ($hash['contributors'] as $c) {
				$hash3['contributor'] = $c;
				$hash2[] = $hash3;
			}
		}
		$bindvars[] = $pageName;
		$query = "update `tiki_pages` set `description`=?, `data`=?, `comment`=?, `lastModif`=?, `version`=?, `user`=?, `ip`=?, `page_size`=?, `is_html`=?, `wysiwyg`=?, `wiki_authors_style`=?  $mid where `pageName`=?";
		$result = $this->query($query,$bindvars);

		// Parse edit_data updating the list of links from this page
		$this->clear_links($pageName);

		// Pages collected above
		foreach ($pages as $page => $types) {
			$this->replace_link($pageName, $page, $types);
		}

		if (strtolower($pageName) != 'sandbox' && !$minor) {
			$maxversions = $prefs['maxVersions'];

			if ($maxversions && ($nb = $histlib->get_nb_history($pageName)) > $maxversions) {
				// Select only versions older than keep_versions days
				$keep = $prefs['keep_versions'];

				$oktodel = $saveLastModif - ($keep * 24 * 3600);
				$query = "select `pageName` ,`version`, `historyId` from `tiki_history` where `pageName`=? and `lastModif`<=? order by `lastModif` asc";
				$result = $this->query($query,array($pageName,$oktodel),$nb - $maxversions);
				$toelim = $result->numRows();

				while ($res = $result->fetchRow()) {
					$page = $res["pageName"];
					$version = $res["version"];
					$query = "delete from `tiki_history` where `pageName`=? and `version`=?";
					$this->query($query,array($pageName,$version));
					if ($prefs['feature_contribution'] == 'y') {
						global $contributionlib; include_once('lib/contribution/contributionlib.php');
						$contributionlib->remove_history($res['historyId']);
					}
				}
			}
		}

		// This if no longer checks for minor-ness of the change; sendWikiEmailNotification does that.
		if( $prefs['feature_wiki_history_full'] == 'y' || $data != $edit_data || $description != $edit_description || $comment != $edit_comment ) {
			if (strtolower($pageName) != 'sandbox') {
				$query = "insert into `tiki_history`(`pageName`, `version`, `lastModif`, `user`, `ip`, `comment`, `data`, `description`,`is_html`)
					values(?,?,?,?,?,?,?,?,?)";
# echo "<pre>";print_r(get_defined_vars());echo "</pre>";die();
				$result = $this->query($query,array($pageName,(int) $old_version,(int) $lastModif,$user,$ip,$comment,$data,$description,(int)$info['is_html']));

				if ($prefs['feature_contribution'] == 'y') {// transfer page contributions to the history
					global $contributionlib; include_once('lib/contribution/contributionlib.php');
					$query = 'select max(`historyId`) from `tiki_history`where `pageName`=? and `version`=?';
					$historyId = $this->getOne($query, array($pageName,(int) $old_version));
					$contributionlib->change_assigned_contributions($pageName, 'wiki page', $historyId, 'history', '', $pageName.'/'.$old_version, "tiki-pagehistory.php?page=$pageName&preview=$old_version");
				}
			}
			if (strtolower($pageName) != 'sandbox') {
				global $logslib; include_once('lib/logs/logslib.php');
				include_once('lib/diff/difflib.php');
				$bytes = diff2($data , $edit_data, 'bytes');
				$logslib->add_action('Updated', $pageName, 'wiki page', $bytes, $edit_user, $edit_ip, '', $this->now, $hash['contributions'], $hash2);
				if ($prefs['feature_contribution'] == 'y') {
					global $contributionlib; include_once('lib/contribution/contributionlib.php');
					$contributionlib->assign_contributions($hash['contributions'], $pageName, 'wiki page', $description, $pageName, "tiki-index.php?page=".urlencode($pageName));
				}
			}

			if ($prefs['feature_multilingual'] == 'y' && $lang ) {
				// Need to update the translated objects table when an object's language changes.
				$this->query( "UPDATE tiki_translated_objects SET lang = ? WHERE objId = ? AND type = 'wiki page'",
						array( $lang, $info['page_id'] ) );
			}

			if ($prefs['wiki_watch_minor'] != 'n' || !$minor) {
				//  Deal with mail notifications.
				include_once('lib/notifications/notificationemaillib.php');
				global $histlib; include_once ("lib/wiki/histlib.php");
				$old = $histlib->get_version($pageName, $old_version);
				$foo = parse_url($_SERVER["REQUEST_URI"]);
				$machine = $this->httpPrefix(). dirname( $foo["path"] );
				require_once('lib/diff/difflib.php');
				$diff = diff2($old["data"] , $edit_data, "unidiff");
				sendWikiEmailNotification('wiki_page_changed', $pageName, $edit_user, $edit_comment, $old_version, $edit_data, $machine, $diff, $minor, $hash['contributions']);
			}

			$query = "delete from `tiki_page_drafts` where `user`=? and `pageName`=?";
			$this->query($query, array($GLOBALS['user'], $pageName));

			if ($prefs['feature_score'] == 'y') {
				$this->score_event($user, 'wiki_edit');
			}

		}
		if ( $prefs['feature_search'] == 'y' && $prefs['feature_search_fulltext'] != 'y' && $prefs['search_refresh_index_mode'] == 'normal' ) {
			require_once('lib/search/refresh-functions.php');
			refresh_index('pages', $pageName);
		}
	}

	function update_page_version($pageName, $version, $edit_data, $edit_comment, $edit_user, $edit_ip, $lastModif, $description = '', $lang='') {
		global $smarty;

		if (strtolower($pageName) == 'sandbox')
			return;

		// Collect pages before modifying edit_data
		$pages = $this->get_pages($edit_data, true);

		if (!$this->page_exists($pageName))
			return false;

		$query = "delete from `tiki_history` where `pageName`=? and `version`=?";
		$result = $this->query($query, array($pageName,(int) $version));
		$query = "insert into `tiki_history`(pageName, version, lastModif, user, ip, comment, data,description) values(?,?,?, ?,?,?, ?,?)";
		$result = $this->query($query, array($pageName,(int) $version, (int) $lastModif, $edit_user, $edit_ip, $edit_comment, $edit_data, $description)
				);

		//print("version: $version<br />");
		// Get this page information
		$info = $this->get_page_info($pageName);

		if ($version >= $info["version"]) {
			if ($lang) { // not sure it is necessary
				$query = "update `tiki_pages` set `data`=?, `comment`=?, `lastModif`=?, `version`=?, `user`=?, `ip`=?, `description`=?,`page_size`=?,`lang`=?  where `pageName`=?";
				$result = $this->query($query, array($edit_data, $edit_comment, (int) $this->now, (int) $version, $edit_user, $edit_ip, $description, (int) strlen($edit_data), $lang, $pageName));
			} else {
				$query = "update `tiki_pages` set `data`=?, `comment`=?, `lastModif`=?, `version`=?, `user`=?, `ip`=?, `description`=?,`page_size`=? where `pageName`=?";
				$result = $this->query($query, array($edit_data, $edit_comment, (int) $this->now, (int) $version, $edit_user, $edit_ip, $description, (int) strlen($edit_data), $pageName));
			}
			// Parse edit_data updating the list of links from this page
			$this->clear_links($pageName);

			// Pages are collected at the top of the function before adding slashes
			foreach ($pages as $page => $types) {
				$this->replace_link($pageName, $page, $types);
			}
		}
	}

	function get_display_timezone($_user = false) {
		global $prefs, $user;

		if ( $_user === false || $_user == $user ) {
			// If the requested timezone is the current user timezone
			$tz = $prefs['display_timezone'];
		} elseif ( $_user ) {
			// ... else, get the user timezone preferences from DB
			$tz = $this->get_user_preference($_user, 'display_timezone');
			if ( ! TikiDate::TimezoneIsValidId($tz) ) {
				$tz = $prefs['server_timezone'];
			}
		}
		return $tz;
	}

	function get_long_date_format() {
		global $prefs;
		return $prefs['long_date_format'];
	}

	function get_short_date_format() {
		global $prefs;
		return $prefs['short_date_format'];
	}

	function get_long_time_format() {
		global $prefs;
		return $prefs['long_time_format'];
	}

	function get_short_time_format() {
		global $prefs;
		return $prefs['short_time_format'];
	}

	function get_long_datetime_format() {
		static $long_datetime_format = false;

		if (!$long_datetime_format) {
			$t = trim($this->get_long_time_format());
			if (!empty($t)) {
				$t = ' ['.$t.']';
			}
			$long_datetime_format = $this->get_long_date_format().$t;
		}

		return $long_datetime_format;
	}

	function get_short_datetime_format() {
		static $short_datetime_format = false;

		if (!$short_datetime_format) {
			$t = trim($this->get_short_time_format());
			if (!empty($t)) {
				$t = ' ['.$t.']';
			}
			$short_datetime_format = $this->get_short_date_format().$t;
		}

		return $short_datetime_format;
	}

	function date_format2($format, $timestamp = false, $_user = false, $input_format = DATE_FORMAT_UNIXTIME) {
		global $tikilib;
		return $tikilib->date_format($format, $timestamp, $_user, $input_format, false);
	}

	function date_format($format, $timestamp = false, $_user = false, $input_format = DATE_FORMAT_UNIXTIME, $is_strftime_format = true) {
		global $tikidate, $tikilib;
		if ( ! $timestamp ) {
			$timestamp = time();
		}

		$tikidate->setTZbyID('UTC');
		$tikidate->setDate($timestamp, $input_format);

		$tz = $tikilib->get_display_timezone($_user);

		// If user timezone is not also in UTC, convert the date
		if ( $tz != 'UTC' ) {
			$tikidate->convertTZByID($tz);
		}

		return $tikidate->format($format, $is_strftime_format);
	}

	function make_time($hour,$minute,$second,$month,$day,$year) {
		global $tikidate, $tikilib, $prefs;
		$display_tz = $tikilib->get_display_timezone();
		if ( $display_tz == '' ) $display_tz = 'UTC';
		$tikidate->setTZbyID($display_tz);
		$tikidate->setLocalTime($day,$month,$year,$hour,$minute,$second,0);
		return $tikidate->getTime();
	}

	function get_long_date($timestamp, $user = false) {
		return $this->date_format($this->get_long_date_format(), $timestamp, $user);
	}

	function get_short_date($timestamp, $user = false) {
		return $this->date_format($this->get_short_date_format(), $timestamp, $user);
	}

	function get_long_time($timestamp, $user = false) {
		return $this->date_format($this->get_long_time_format(), $timestamp, $user);
	}

	function get_short_time($timestamp, $user = false) {
		return $this->date_format($this->get_short_time_format(), $timestamp, $user);
	}

	function get_long_datetime($timestamp, $user = false) {
		return $this->date_format($this->get_long_datetime_format(), $timestamp, $user);
	}

	function get_short_datetime($timestamp, $user = false) {
		return $this->date_format($this->get_short_datetime_format(), $timestamp, $user);
	}

	/**
		Per http://www.w3.org/TR/NOTE-datetime
	 */
	function get_iso8601_datetime($timestamp, $user = false) {
		return $this->date_format('%Y-%m-%dT%H:%M:%S%O', $timestamp, $user);
	}

	function get_compact_iso8601_datetime($timestamp, $user = false) {
		// no dashes and no tz info - latter should be fixed
		return $this->date_format('%Y%m%dT%H%M%S', $timestamp, $user);
	}

	function list_languages($path = false, $short=null, $all=false) {
		$languages = array();

		if (!$path)
			$path = "lang";

		if (!is_dir($path))
			return array();

		$h = opendir($path);

		while ($file = readdir($h)) {
			if (strpos($file,'.') === false && $file != 'CVS' && $file != 'index.php' && is_dir("$path/$file") && file_exists("$path/$file/language.php")) {
				$languages[] = $file;
			}
		}

		closedir ($h);

		// Format and return the list
		return TikiLib::format_language_list($languages, $short, $all);
	}

	function is_valid_language( $language ) {
		return preg_match("/^[a-zA-Z-_]*$/", $language)
			&& file_exists('lang/' . $language . '/language.php');
	}

	/**
	 * @return  array of css files in the style dir
	 */
	function list_styles() {
		global $tikidomain, $csslib;

		$sty = array();
		$style_base_path = $this->get_style_path();	// knows about $tikidomain
		
		if ($style_base_path) {
			$sty = $csslib->list_css($style_base_path);
		}
		
		if ($tikidomain) {
			$sty = array_unique(array_merge($sty, $csslib->list_css('styles')));
		}
		foreach($sty as &$s) {	// add the .css back onto the end of the style names
			$s .= '.css';		// i started to change this but it hits too many places
		}						// Another TODO for 4.0 (sorry)
		sort($sty);
		return $sty;
		
		/* What is this $tikidomain section?
		 * Some files that call this method used to list styles without considering
		 * $tikidomain, now they do. They're listed below:
		 *
		 *  tiki-theme_control.php
		 *  tiki-theme_control_objects.php
		 *  tiki-theme_control_sections.php
		 *  tiki-my_tiki.php
		 *  modules/mod-switch_theme.php
		 *
		 *  lfagundes
		 *  
		 *  Tiki 3.0 - now handled by get_style_path()
		 *  jonnybradley
		 */

	}

	/**
	 * @param $a_style - main style (e.g. "thenews.css")
	 * @return array of css files in the style options dir
	 */
	function list_style_options($a_style='') {
		global $prefs, $csslib;

		if (empty($a_style)) {
			$a_style = $prefs['style'];
		}

		$sty = array();
		$option_base_path = $this->get_style_path($a_style).'options/';
		
		if (is_dir($option_base_path)) {
			$sty = $csslib->list_css($option_base_path);
		}

		if (count($sty)) {
			foreach($sty as &$s) {	// add .css back as above
				$s .= '.css';
			}
			sort($sty);
			array_unshift ( $sty, tra('None'));
			return $sty;
		} else {
			return false;
		}
	}
	
	/**
	 * @param $stl - main style (e.g. "thenews.css")
	 * @return string - style passed in up to - | or . char (e.g. "thenews")
	 */
	function get_style_base($stl) {
		$parts = split("-|\.", $stl);
		if (count($parts) > 0) {
			return $parts[0];
		} else {
			return '';
		}
	}
	
	/**
	 * @param $stl - main style (e.g. "thenews.css" - can be empty to return main styles dir)
	 * @param $opt - optional option file name (e.g. "purple.css")
	 * @param $filename - optional filename to look for (e.g. "purple.png")
	 * @return path to dir or file if found or empty if not - e.g. "styles/mydomain.tld/thenews/options/purple/"
	 */
	function get_style_path($stl = '', $opt = '', $filename = '') {
		global $tikidomain;

		$path = '';
		$dbase = '';
		if ($tikidomain && is_dir("styles/$tikidomain")) {
			$dbase = $tikidomain.'/';
		}
		
		$sbase = '';
		if (!empty($stl)) {
			$sbase = $this->get_style_base($stl).'/';
		}
		if (!is_dir('styles/'.$dbase.$sbase)) {	// if the style dir doesn't exist in tikidomain, use root/styles
			$dbase = '';
		}
		
		$obase = '';
		if (!empty($opt)) {
			$obase = 'options/';
			if ($opt != $filename) {	// exception for getting option.css as it doesn't live in it's own dir
				$obase .= substr($opt, 0, strlen($opt) - 4).'/';
			}
		}
		
		if (is_dir('styles/'.$dbase.$sbase)) {
			if (empty($filename)) {
				if (is_dir('styles/'.$dbase.$sbase.$obase)) {
					$path = 'styles/'.$dbase.$sbase.$obase;
				} else {
					$path = 'styles/'.$dbase.$sbase;	// fall back to "parent" style dir if no option one
				}
			} else {
				if (is_file('styles/'.$dbase.$sbase.$obase.$filename)) {
					$path = 'styles/'.$dbase.$sbase.$obase.$filename;
				} else if (is_file('styles/'.$dbase.$sbase.$filename)) {	// try "parent" style dir if no option one
					$path = 'styles/'.$dbase.$sbase.$filename;
				} else if (is_file('styles/'.$sbase.$obase.$filename)) {	// try non-tikidomain dirs if not found
					$path = 'styles/'.$sbase.$obase.$filename;
				} else if (is_file('styles/'.$sbase.$filename)) {
					$path = 'styles/'.$sbase.$filename;	// fall back to "parent" style dir if no option one
				}
			}
		}
		return $path;
	}

	// Comparison function used to sort languages by their name in the
	// current locale.
	function formatted_language_compare($a, $b) {
		return strcmp($a['name'], $b['name']);
	}
	// Returns a list of languages formatted as a twodimensionel array
	// with 'value' being the language code and 'name' being the name of
	// the language.
	// if $short is 'y' returns only the localized language names array
	function format_language_list($languages, $short=null, $all=false) {
		// The list of available languages so far with both English and
		// translated names.
		global $langmapping, $prefs;
		include_once("lang/langmapping.php");
		$formatted = array();

		// run through all the language codes:
		if (isset($short) && $short == "y") {
			foreach ($languages as $lc) {
				if ( empty($prefs['available_languages'] ) || (!$all and in_array($lc,$prefs['available_languages']))) {
					if (isset($langmapping[$lc]))
						$formatted[] = array('value' => $lc, 'name' => $langmapping[$lc][0]);
					else
						$formatted[] = array('value' => $lc, 'name' => $lc);
				}
				usort($formatted, array('TikiLib', 'formatted_language_compare'));
			}
			return $formatted;
		}
		foreach ($languages as $lc) {
			if (empty($prefs['available_languages']) || (!$all and in_array($lc,$prefs['available_languages'])) or $all) {
				if (isset($langmapping[$lc])) {
					// known language
					if ($langmapping[$lc][0] == $langmapping[$lc][1]) {
						// Skip repeated text, 'English (English, en)' looks silly.
						$formatted[] = array(
								'value' => $lc,
								'name' => $langmapping[$lc][0] . " ($lc)"
								);
					} else {
						$formatted[] = array(
								'value' => $lc,
								'name' => $langmapping[$lc][1] . " (" . $langmapping[$lc][0] . ', ' . $lc . ")"
								);
					}
				} else {
					// unknown language
					$formatted[] = array(
							'value' => $lc,
							'name' => tra("Unknown language"). " ($lc)"
							);
				}
			}
		}

		// Sort the languages by their name in the current locale
		usort($formatted, array('TikiLib', 'formatted_language_compare'));
		return $formatted;
	}

	function get_language($user = false) {
		global $prefs;
		static $language = false;

		if (!$language) {
			if ($user) {
				$language = $this->get_user_preference($user, 'language', 'default');
				if (!$language || $language == 'default') {
					$language = $prefs['language'];
				}
			} else {
				$language = $prefs['language'];
			}
		}
		return $language;
	}

	function read_raw($text) {
		$file = split("\n",$text);
		$back = '';
		foreach ($file as $line) {
			$r = $s = '';
			if (substr($line,0,1) != "#") {
				if( ereg("^\[([A-Z0-9]+)\]",$line,$r) ) {
					$var = strtolower($r[1]);
				}
				if (isset($var) and (ereg("^([-_/ a-zA-Z0-9]+)[ \t]+[:=][ \t]+(.*)",$line,$s))) {
					$back[$var][trim($s[1])] = trim($s[2]);
				}
			}
		}
		return $back;
	}


	function httpScheme() {
		global $url_scheme;     
		return $url_scheme;
	}

	function httpPrefix() {
		global $url_scheme, $url_host, $url_port;
		return $url_scheme.'://'.$url_host.(($url_port!='')?":$url_port":'');    
	}

	function distance($lat1,$lon1,$lat2,$lon2) {
		// This function uses a pure spherical model
		// it could be improved to use the WGS84 Datum
		// Franck Martin
		$lat1rad=deg2rad($lat1);
		$lon1rad=deg2rad($lon1);
		$lat2rad=deg2rad($lat2);
		$lon2rad=deg2rad($lon2);
		$distance=6367*acos(sin($lat1rad)*sin($lat2rad)+cos($lat1rad)*cos($lat2rad)*cos($lon1rad-$lon2rad));
		return($distance);
	}

	/**
	 * returns a list of usergroups where the user is a member and the group has the right perm
	 * sir-b
	 **/
	function get_groups_to_user_with_permissions($user,$perm) {
		$userid = $this->get_user_id($user);
		$query = "SELECT DISTINCT `users_usergroups`.`groupName` AS `groupName`";
		$query.= "FROM  `users_grouppermissions`, `users_usergroups` ";
		$query.= "WHERE `users_usergroups`.`userId` = ? AND ";
		$query.= "`users_grouppermissions`.`groupName` = `users_usergroups`.`groupName` AND ";
		$query.= "`users_grouppermissions`.`permName` = ? ";
		$query.= "ORDER BY `groupName`";
		$result = $this->query($query, array((int)$userid, $perm));
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}
		return $ret;
	}

	function other_value_in_tab_line($tab, $valField1, $field1, $field2) {
		foreach ($tab as $line) {
			if ($line[$field1] == $valField1)
				return $line[$field2];
		}
	}

	function get_attach_hash_file_name($file_name) {
		global $prefs;
		do {
			$fhash = '§'.md5($file_name.date('U').rand()).'§';
		} while (file_exists($prefs['w_use_dir'].$fhash));
		return $fhash;
		}
	function attach_file($file_name, $file_tmp_name, $store_type) {
		global $prefs;
		$tmp_dest = $prefs['tmpDir'] . "/" . $file_name.".tmp";
		if (!move_uploaded_file($file_tmp_name, $tmp_dest))
			return array("ok"=>false, "error"=>tra('Errors detected'));
		$fp = fopen($tmp_dest, "rb");
		$data = '';
		$fhash = '';
		$chunk = '';
		if ($store_type == 'dir') {
			$fhash = $this->get_attach_hash_file_name($file_name);
			$fw = fopen($prefs['w_use_dir'].$fhash, "wb");
			if (!$fw)
				return array("ok"=>false, "error"=>tra('Cannot write to this file:').$prefs['w_use_dir'].$fhash);
		}
		while(!feof($fp)) {
			$chunk = fread($fp, 8192*16);

			if ($store_type == 'dir') {
				fwrite($fw, $chunk);
			}
			$data .= $chunk;
		}
		fclose($fp);
		unlink($tmp_dest);
		if ($store_type == 'dir') {
			fclose($fw);
			$data = "";
		}
		return array("ok"=>true, "data"=>$data, "fhash"=>$fhash);
	}

	/* to get the length of a data without the quoted part (very
		 approximative)  */
	function strlen_quoted($data) {
		global $prefs;
		$data = preg_replace('/{QUOTE\([^\)]*\)}.*{QUOTE}/Ui', '', $data);
		if ($prefs['feature_use_quoteplugin'] != 'y') {
			$data = preg_replace('/^>.*\\n?/m', '', $data);
		}
		return strlen($data);
	}

	function list_votes($id, $offset=0, $maxRecords=-1, $sort_mode='user_asc', $find='', $table='', $column='', $from='', $to='') {
		$mid = 'where  `id`=?';
		$bindvars[] = $id;
		$select = '';
		$join = '';
		if (!empty($find)) {
			$mid .= ' and (`user` like ? or `title` like ? or `ip` like ?)';
			$bindvars[] = '%'.$find.'%';
			$bindvars[] = '%'.$find.'%';
			$bindvars[] = '%'.$find.'%';
		}
		if (!empty($from) && !empty($to)) {
			$mid .= ' and ((time >= ? and time <= ?) or time = ?)';
			$bindvars[] = $from;
			$bindvars[] = $to;
			$bindvars[] = 0;
		}
		if (!empty($table) && !empty($column)) {
			$select = ", `$table`.`$column` as title";
			$join = "left join `$table` on (`tiki_user_votings`.`optionId` = `$table`.`optionId`)";
		}
		$query = "select * $select from `tiki_user_votings` $join $mid order by ".$this->convert_sortmode($sort_mode);
		$query_cant = "select count(*) from `tiki_user_votings` $join $mid";
		$result = $this->query($query, $bindvars, $maxRecords, $offset);
		$cant = $this->getOne($query_cant, $bindvars);
		$ret = array();
		while ($res = $result->fetchRow()) {
			$ret[] = $res;
		}
		$retval = array();
		$retval["data"] = $ret;
		$retval["cant"] = $cant;
		return $retval;
	}

	/* get explicit message on upload problem */
	function uploaded_file_error($iError) {
		switch($iError) {
			case 0: return tra('You are not allowed to upload this type of file.');
			case 1: return tra('Cannot upload this file maximum upload size exceeded').'(upload_max_filesize)';
			case 2: return tra('Cannot upload this file maximum upload size exceeded');
			case 3: return tra('The file you are trying upload was only partially uploaded.');
			case 4: return tra('You must select a file.');
			default: return tra('The file you are trying upload was only partially uploaded.');
		}
	}

	function get_flags($with_names = false, $translate = false, $sort_names = false) {
		$flags = array();
		$h = opendir("img/flags/");
		while ($file = readdir($h)) {
			if (strstr($file, ".gif")) {
				$parts = explode('.', $file);
				$flags[] = $parts[0];
			}
		}
		closedir ($h);
		sort($flags);

		if ( $with_names ) {
			$ret = array();
			foreach ( $flags as $f ) {
				$ret[$f] = strtr($f, '_', ' ');
				if ( $translate ) {
					$ret[$f] = tra($ret[$f]);
				}
			}
			if ( $sort_names ) {
				asort($ret, SORT_STRING);
			}
			return $ret;
		}
		return $flags;
	}

	function get_snippet($data, $is_html='n', $highlight='', $length=240) {
		global $prefs;
		if ($prefs['search_parsed_snippet'] == 'y') {
			$_REQUEST['redirectpage'] = 'y'; //do not interpret redirect
			$data = $this->parse_data($data, array('is_html' => $is_html));
			$data = strip_tags($data);
		}
		return substr($data, 0, $length);
	}

	function htmldecode($string, $quote_style = ENT_COMPAT, $translation_table = HTML_ENTITIES) {
		if ( $translation_table == HTML_ENTITIES && version_compare(phpversion(), '5', '>=') ) {
			// Use html_entity_decode with UTF-8 only with PHP 5.0 or later, since
			//   this function was available in PHP4 but _without_ multi-byte charater sets support
			$string = html_entity_decode($string, $quote_style, 'utf-8');

		} elseif ( $translation_table == HTML_SPECIALCHARS && version_compare(phpversion(), '5.1.0', '>=') ) {
			// Only available in PHP 5.1.0 or later
			$string = htmlspecialchars_decode($string, $quote_style);

		} else {
			// For compatibility purposes with php < 5
			$trans_tbl = array_flip(get_html_translation_table($translation_table));

			// Not translating double quotes
			if ($quote_style & ENT_NOQUOTES) {
				// Remove double quote from translation table
				unset($trans_tbl['&quot;']);
			}

			$string = strtr($string, $trans_tbl);
			if (function_exists('recode_string')) {
				$string = recode_string('iso-8859-15..utf-8', $string);
			}
		}

		$string = preg_replace('~&#x([0-9a-f]+);~ei', 'chr(hexdec("\\1"))', $string);
		$string = preg_replace('~&#([0-9]+);~e', 'chr(\\1)', $string);

		return $string;
	}

	function take_away_accent($str) {
		$accents = explode(' ', 'À Á Â Ã Ä Å Ç È É Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö Ù Ú Û Ü Ý ß à á â ã ä å ç è é ê ë ì í î ï ñ ò ó ô õ ö ù ú û ü ý Æ æ');
		$convs =   explode(' ', 'A A A A A A C E E E E I I I I D N O O O O O U U U U Y s a a a a a a c e e e e i i i i n o o o o o u u u u y AE ae');
		return str_replace($accents, $convs, $str);
	}

	/* return the positions in data where the hdr-nth header is find
	 */
function get_wiki_section($data, $hdr) {
	$start = 0;
	$end = strlen($data);
	$lines = explode("\n", $data);
	$header = 0;
	$pp_level = 0;
	$np_level = 0;
	for ($i = 0; $i < count($lines); ++$i) {
		$pp_level += preg_match ('/~pp~/',$lines[$i]);
		$pp_level -= preg_match ('/~\/pp~/',$lines[$i]);
		$np_level += preg_match ('/~np~/',$lines[$i]);
		$np_level -= preg_match ('/~\/np~/',$lines[$i]);
		// We test if we are inside nonparsed or pre section to ignore !*
		if ($pp_level%2 == 0 and $np_level%2 == 0) {
			if (substr($lines[$i], 0, 1) == '!') {
				++$header;
				if ($header == $hdr) { // we are on it - now find the next header at same or lower level
					$level = $this->how_many_at_start($lines[$i], '!');
					$end = strlen($lines[$i]) + 1;
					for (++$i; $i < count($lines); ++$i) {
						if (substr($lines[$i], 0, 1) == '!' && $level >= $this->how_many_at_start($lines[$i], '!')) {
							return (array($start, $end));
						}
						$end += strlen($lines[$i]) + 1;
					}
					break;
				}
			}
		}
		$start += strlen($lines[$i]) + 1;
	}
	return (array($start, $end));
}

/**
 * \brief Function to embed a flash object (using JS method by default when JS in user's browser is detected)
 *
 * So far it's being called from wikiplugin_flash.php and tiki-edit_banner.php
 *
 * @param javascript = y or n to force to generate a version with javascript or not, ='' user prefs
 */
	function embed_flash($params, $javascript='', $flashvars = false) {
		global $prefs;
		global $headerlib; include_once('lib/headerlib.php');
		if (! isset($params['movie']) ) {
			return false;
		}
		$defaults = array(
						  'width' => 425,
						  'height' => 350,
						  'quality' => 'high',
						  'version' => '9.0.0',
						  );
		$params = array_merge( $defaults, $params );
		
		if ( ((empty($javascript) && $prefs['javascript_enabled'] == 'y') || $javascript == 'y')) {
			$myId = (!empty($params['id'])) ? ($params['id']) : 'wp-flash-' . md5($params['movie']);
			$movie = '"'.$params['movie'].'"';
			$div = json_encode( $myId );
			$width = (int) $params['width'];
			$height = (int) $params['height'];
			$version = json_encode( $params['version'] );
			unset( $params['movie'], $params['width'], $params['height'], $params['version'] );
			$params = json_encode($params);
			
			if (!$flashvars) {
				$flashvars = '{}';
			} else {
				$flashvars = json_encode($flashvars);
				$flashvars = str_replace('\\/', '/', $flashvars);
			}
			$js = <<<JS
swfobject.embedSWF( $movie, $div, $width, $height, $version, 'lib/swfobject/expressInstall.swf', $flashvars, $params, {} );
JS;
			$headerlib->add_jsfile( 'lib/swfobject/swfobject.js' );
			return "<div id=\"$myId\">" . tra('Flash player not available.') . "</div><script type=\"text/javascript\">\n<!--//--><![CDATA[//><!--\n$js\n//--><!]]>\n</script>\n";
		} else { // link on the movie will not work with IE6
			extract ($params,EXTR_SKIP);
			$asetup = "<object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0\" width=\"$width\" height=\"$height\">";
			$asetup .= "<param name=\"movie\" value=\"$movie\" />";
			$asetup .= "<param name=\"quality\" value=\"$quality\" />";
			$asetup .= "<param name=\"wmode\" value=\"transparent\" />";
			$asetup .= "<embed src=\"$movie\" quality=\"$quality\" pluginspage=\"http://www.macromedia.com/go/getflashplayer\" type=\"application/x-shockwave-flash\" width=\"$width\" height=\"$height\" wmode=\"transparent\"></embed></object>";
			return $asetup;
		}
	}

	// TikiWiki version of parse_str, that:
	//  - uses a workaround for a bug in PHP 5.2.0
	//  - Handle the value of magic_quotes_gpc to stripslashes when needed (as already done for GET/POST/... in tiki-setup_base.php)
	function parse_str($str, &$arr) {
		parse_str($str, $arr);

		/* From PHP Manual comments (quoting Vladimir Kornea):
		 *   parse_str() contained a bug (#39763) in PHP 5.2.0 that caused it to apply magic quotes twice.
		 * This bug was marked as fixed in the release notes of PHP 5.2.1, but there were apparently some
		 * issues with getting the fix through CVS on time, as our install of PHP 5.2.1 was still affected by it.
		 */
		if ( version_compare(PHP_VERSION, '5.2.0', '>=') && version_compare(PHP_VERSION, '5.2.1', '<') ) {
			$arr = array_map('stripslashes', $arr);
		}

		// parse_str's behavior also depends on magic_quotes_gpc...
		global $magic_quotes_gpc;
		if ( $magic_quotes_gpc ) remove_gpc($arr);
	}

	function bindvars_to_sql_in(&$bindvars, $remove_duplicates = false, $cast_to_int = false) {
		if ( ! is_array($bindvars) ) return false;
		$query = ' IN (';
		$bindvars2 = array();
		foreach ( $bindvars as $id ) {
			if ( $cast_to_int ) $id = (int)$id;
			if ( $remove_duplicates && in_array($id, $bindvars2) ) continue;
			$bindvars2[] = $id;
			if ( $query == '' ) $query .= ',';
			$query .= '?';
		}
		if ( $remove_duplicates ) $bindvars = $bindvars2;
		return ' IN (' . $query . ')';
	}
}
// end of class ------------------------------------------------------

// function to check if a file or directory is in the path
// returns FALSE if incorrect
// returns the canonicalized absolute pathname otherwise
function inpath($file,$dir) {
	$realfile=realpath($file);
	$realdir=realpath($dir);
	if (!$realfile) return (FALSE);
	if (!$realdir) return (FALSE);
	if (substr($realfile,0,strlen($realdir))!= $realdir) {
		return(FALSE);
	} else {
		return($realfile);
	}
}

function compare_links($ar1, $ar2) {
	return $ar1["links"] - $ar2["links"];
}

function compare_backlinks($ar1, $ar2) {
	return $ar1["backlinks"] - $ar2["backlinks"];
}

function r_compare_links($ar1, $ar2) {
	return $ar2["links"] - $ar1["links"];
}

function r_compare_backlinks($ar1, $ar2) {
	return $ar2["backlinks"] - $ar1["backlinks"];
}

function compare_images($ar1, $ar2) {
	return $ar1["images"] - $ar2["images"];
}

function r_compare_images($ar1, $ar2) {
	return $ar2["images"] - $ar1["images"];
}

function compare_files($ar1, $ar2) {
	return $ar1["files"] - $ar2["files"];
}

function r_compare_files($ar1, $ar2) {
	return $ar2["files"] - $ar1["files"];
}

function compare_versions($ar1, $ar2) {
	return $ar1["versions"] - $ar2["versions"];
}

function r_compare_versions($ar1, $ar2) {
	return $ar2["versions"] - $ar1["versions"];
}

function compare_changed($ar1, $ar2) {
	return $ar1["lastChanged"] - $ar2["lastChanged"];
}

function r_compare_changed($ar1, $ar2) {
	return $ar2["lastChanged"] - $ar1["lastChanged"];
}

function chkgd2() {
	if (!isset($_SESSION['havegd2'])) {
#   TODO test this logic in PHP 4.3
#   if (version_compare(phpversion(), "4.3.0") >= 0) {
#  $_SESSION['havegd2'] = true;
#   } else {
	ob_start();
	phpinfo (INFO_MODULES);
	$_SESSION['havegd2'] = preg_match('/GD Version.*2.0/', ob_get_contents());
	ob_end_clean();
# }
	}

	return $_SESSION['havegd2'];
}


function detect_browser_language() {

	// Get supported languages
	if (isset($_SERVER['HTTP_ACCEPT_LANGUAGE']))
		$supported = preg_split('/\s*,\s*/', preg_replace('/;q=[0-9.]+/','',$_SERVER['HTTP_ACCEPT_LANGUAGE']));
	else
		return '';

	// Get available languages
	$available = array();
	$available_aprox = array();

	if (is_dir("lang")) {
		$dh = opendir("lang");
		while ($lang = readdir($dh)) {
			if (!strpos($lang,'.') and is_dir("lang/$lang") and file_exists("lang/$lang/language.php")) {
				$available[strtolower($lang)] = $lang;
				$available_aprox[substr(strtolower($lang), 0, 2)] = $lang;
			}
		}
	}

	// Check better language
	// Priority has been changed in 2.0 to that defined in RFC 4647
	$aproximate_lang = '';
	foreach ($supported as $supported_lang) {
		$lang = strtolower($supported_lang);
		if (in_array($lang, array_keys($available))) {
			// exact match is always good 
			return $available[$lang];
		} elseif (in_array($lang, array_keys($available_aprox))) {
			// otherwise if supported language matches any available dialect, ok also
			return $available_aprox[$lang];
		} elseif ($aproximate_lang == '') {
			// otherwise if supported dialect matches language, store as possible fallback 
			$lang = substr($lang, 0, 2);
			if (in_array($lang, array_keys($available_aprox))) {
				$aproximate_lang = $available_aprox[$lang];
			}
		}
	}

	return $aproximate_lang;
}

function alterprefs() {
	global $tikilib;
	if (!$tikilib->query( "ALTER TABLE `tiki_preferences` MODIFY `value` BLOB", array())) {
		$smarty->assign("msg", tra('Altering database table failed'));
		$smarty->display("error.tpl");
		die;
	}
	return true;
}

function validate_email($email,$checkserver='n') {
	global $prefs;
	$valid_syntax = eregi($prefs['valid_email_regex'], $email);
	if (!$valid_syntax) {
		return false;
	} elseif ($checkserver == 'y') {
		include_once('Net/DNS.php');
		$resolver = new Net_DNS_Resolver();
		$domain = substr(strstr($email,'@'),1);
		$answer = $resolver->query($domain,'MX');
		if (!$answer) {
			return false;
		} else {
			foreach ($answer->answer as $server) {
				$mxserver[$server->preference] = $server->exchange;
			}
			krsort($mxserver);
			foreach ($mxserver as $server) {
				$test = fsockopen($server,25,$errno,$errstr,15);
				if ($test) {
					fclose($test);
					return true;
				}
				fclose($test);
			}
			return false;
		}
	} else {
		return true;
	}
}

function tiki_get_remote_file( $url ) {
	if( ini_get( 'allow_url_fopen' ) )
		return file_get_contents( $url );
	elseif( function_exists( 'curl_init' ) ) {
		$ch = curl_init( $url );
		curl_setopt( $ch, CURLOPT_HEADER, false );
		curl_setopt( $ch, CURLOPT_NOBODY, false );
		curl_setopt( $ch, CURLOPT_FOLLOWLOCATION, false );
		curl_setopt( $ch, CURLOPT_RETURNTRANSFER, true );

		return curl_exec( $ch );
	} else {
		return false;
	}
}

/* Editor configuration
	 Local Variables:
	 tab-width: 4
	 c-basic-offset: 4
End:
 * vim: fdm=marker tabstop=4 shiftwidth=4 noet:
 */
?>
