Administrator / auto-life

  <?php
  /**
  * @author:  Bunzia Alexander <nifus@mail.ru> <http://www.weblancer.net/users/nifus/>
  * @copyright: Copyright (c) 2010, Bunzia Alexander
  * @version: 1.0
  * @license: http://www.gnu.org/copyleft/gpl.html GNU/GPL
  */
  
  
  /**
  *	Базовый класс для управления ns списками
  *	Класс формирования запросов к ns-таблице
  */
  class ns_tree_q extends query{
  
  	private $id='c_id';
  	public $left = 'c_left';
  	public $right = 'c_right';
  	public $level = 'c_level';
  	
  
  	public function __construct($table_name,$alias='c') {
  	global $MAIN_DB;
  			$this -> set_table( $table_name );
  			
  			$this -> set_alias($alias);
  			
  	}
  	
  		//	выбираем запись по уникальному ключу id	
  	public function where_id($v){
  		$v = intval($v);
  		if ( empty($v)  ){
  			return FALSE;
  		}
  		return $this -> set_where( $this -> alias.'.c_id',$v);
  	}
  		
  	
  		//	выбираем записи уровня v
  	public	function where_level($v){
  		$v = intval($v);
  		if ( empty($v) ){
  			return false;
  		}
  		return $this -> set_where( $this -> alias.'.c_level',$v);
  	}
  	
  		//	выбираем записи в которых столбец k больше значения v
  	public	function where_more($k,$v){
  		if ( empty($k) ){
  			return false;
  		}
  		return $this -> set_anothe_where( $this -> alias.'.'.$k.'>'.$v);
  	}
  
  
  	public	function where_down($v){
  		$v = intval($v);
  		if ( empty($v) ){
  			return FALSE;
  		}
  		list($l,$r,$level) = ns_tree::get_service_id($v,$this -> table,$this -> alias);
  		$this -> set_anothe_where( $this -> alias.'.c_left>='.$l);
  		$this -> set_anothe_where( $this -> alias.'.c_right<='.$r);
  		$this -> set_anothe_where( $this -> alias.'.c_level>'.$level);
  		return true;
  	}
  	
  	  //  вверх по дереву
      //  получим всё что ниже уровня категории v
  	public	function where_up($v){
  		$v = intval($v);
  		if ( empty($v) ){
  			return FALSE;
  		}
  		list($l,$r,$level) = ns_tree::get_service_id($v,$this -> table,$this -> alias);
  		$this -> set_anothe_where( $this -> alias.'.c_left<='.$l);
  		$this -> set_anothe_where( $this -> alias.'.c_right>='.$r);
  		$this -> set_anothe_where( $this -> alias.'.c_level!=0');
  		return true;
  	}
  	
  		//	выбираем записи в которых столбец k меньше значения v
  	public	function where_less($k,$v){
  		if ( empty($k) ){
  			return false;
  		}
  		return $this -> set_anothe_where( $this -> alias.'.'.$k.'<'.$v);
  	}
  		
  	public function order_left($v){
  		return $this ->set_orderby($this -> alias.'.c_left',$v);
  	}
  
  } //end ns_tree_q
  
  
  /************
  *	@project cms
  *	Класс управления записями в ns-таблице
  *************/
  class ns_tree extends objects  {
  		//	в потомках нужно переопределить
    public  $table = 'system_category';
  	public  $alias ='c';
  	
  	public  $main_key =0;
  		//	перенести запись в другую ветку
  	public  $parent_id =false;
  	static $cache = array();
  	
  	/************
  	*	@project cms
  	*	Вызывается только при вставки новой записи в таблицу
  	*	используется внутри класса
  	*************/
  	protected function __construct( $array=array(),$table,$alias ){
  		 $this -> table = $table;
  		$this -> alias = $alias;
  		$this -> info = $array;
  		$this -> main_key = $array['c_id'];
  		
  	}	
  	
  	
  	/**********************************
  	*	@project cms
  	*	Загружаем id для работы с ним
  	*	@var
  	*		id -номер записи из ns-таблицы
  	*		table/alias - данные талицы
  	*		
  	*	@return объект для работы с записью таюлицы
  	************************************/
  	static function load_id($id,$table,$alias){
  		
  		$n = new ns_tree_q( $table,$alias);
  		if ( false==$n -> where_id($id) ){
  			return false;
  		}
  		$n -> get('*',false);
  		$row = $n -> row();
  		if ( false===$row ){
  			return false;
  		}
  		return new ns_tree($row,$table,$alias);
  	}
  	
  	/**********************************
  	*	@project cms
  	*	создаём новый элемент ns списка
  	*	@var
  	*		id -номер записи из ns-таблицы
  	*		table/alias - данные талицы
  	*		
  	*	@return объект для работы с записью таюлицы
  	************************************/
  	static function create($table,$alias){
  		return new ns_tree(array('c_id'=>0),$table,$alias);
  	}
  	
  
  	public function error(){
    		return $this -> last_error;
  	}
  	
  	
  	public function get($k){
  		if ( isset($this -> info[$k]) ){
  			return $this -> info[$k];
  		} 
  		sys_error(ERROR_500, sprintf(A_NOT_VAR,$k));
  	}
  	
  	public function set($k,$v){
  		if ( method_exists($this,'set_'.$k) ){
  			$f = 'set_'.$k;
  			return $this -> $f($v);
  		}
  		$this -> set_info[$k] = $v;
  		return true;
  	}
  	
  	protected function set_c_name($v){
  		if ( empty($v) ){
  			$this -> make_error('empty_name');
  			return false;
  		}
  		$this -> set_info['c_name']=$v;
  		return true;
  	}
  	
  	
  	
  	
  	/**********************************
  	*	@project cms
  	*	переносим запись в новую ветку
  	*	@var
  	*		v -номер записи из ns-таблицы
  	*		
  	************************************/
  	public function set_c_parent_id($v){
  		$v = intval($v);
  			//	родитель не может быть пустым
  		if ( empty($v) ){
  			$this -> make_error(E_NSTREE_BAD_PARENT);
  			return false;
  		}
  			
  		$this -> parent_id = $v;
  		return true;
  	}
  	
  
  	/***
  	*	GET
  	***/
  	
  	public function id(){
  		return $this -> info['c_id'];
  	}	
  	
  
  	/**********************************
  	*	@project cms
  	*	вставляем новую ns запись
  	*		
  	************************************/
  	function insert(){
  	global $MAIN_DB;
      
  			//	запись должна имеь родителя
  		if ( empty($this -> parent_id) ){
  			sys_error('500',E_NSTREE_BAD_PARENT);
  		}
  		if ( !empty($this -> last_error ) ){
  			 return false; 
  		}
  		if ( sizeof($this -> set_info)==0 ){
  			sys_error('500',A_EMPTY_ARRAY);
  		}
  
  			// получаем данные касающиеся ID
  		list($left_id, $right_id, $level) = ns_tree::get_service_id($this -> parent_id,$this -> table,$this -> alias);
  		
  		$param	=	array();
  			// увеличиваем  правое смещение и уровень глубины
  		$this -> set('c_left',$right_id);
  		$this -> set('c_right',($right_id+1) );
  		$this -> set('c_level',($level+1) );
  			// creating a place for the record being inserted
  		$sql = '
  			UPDATE '.$this -> table.' 
  			SET 
  				c_left=IF(c_left>'.$right_id.',c_left+2,c_left),
  				c_right=IF(c_right>='.$right_id.',c_right+2,c_right)
  			WHERE c_right>='.$right_id;
  		$MAIN_DB -> query($sql);
  		
  		
  		$sql = array();
  		foreach( $this -> set_info as $k=>$v ){
  			$sql[]="`$k`='".sys_in_sql($v)."'";
  		}
  		$sql = "
  			INSERT ".$this -> table." 
  			SET ".implode(',',$sql)." ";
  		if ( !empty($this -> debug) ){
  			die($sql);
  		}
  		$MAIN_DB -> query($sql);
  		return $MAIN_DB -> insert_id();
  	}
  	
  	/**********************************
  	*	@project cms
  	*	удаляем текущую ns запись
  	*		
  	************************************/
  	function delete(){
  	global $MAIN_DB;
  		
  		list($left_id, $right_id, $level) = ns_tree::get_service_id($this -> main_key,$this -> table,$this -> alias);
  			// корневой элемент удалить низяяя
  		if ($level==0){
  		  return FALSE;
  		}
  		$sql = 'DELETE FROM '.$this -> table." WHERE c_id=".$this -> main_key;
  		$MAIN_DB -> query($sql);
  		$sql = 
  			'UPDATE '.$this -> table.' 
  			SET
  				 c_left=IF(c_left BETWEEN '.$left_id.' AND '.$right_id.',c_left-1,c_left),
  				 c_right=IF(c_right BETWEEN '.$left_id.' AND '.$right_id.',c_right-1,c_right),
  				 c_level=IF(c_left BETWEEN '.$left_id.' AND '.$right_id.',c_level-1,c_level),
  				 c_left=IF(c_left>'.$right_id.',c_left-2,c_left),
  				 c_right=IF(c_right>'.$right_id.',c_right-2,c_right) 
  				 WHERE c_right>'.$left_id;
  		$MAIN_DB -> query($sql);
  		return true;
  	}
  	
  	function delete_all() {
  	global $MAIN_DB;
  		
  		$array_cat = array();
  		list($left_id, $right_id, $level) = ns_tree::get_service_id($this -> main_key,$this -> table,$this -> alias);
  		if ( empty($left_id) || empty($right_id) ){
  		  return FALSE;
  		}
  		$sql = 'SELECT c_id FROM '.$this -> table.' WHERE c_left BETWEEN '.$left_id.' AND '.$right_id;
  		$res = $MAIN_DB -> query($sql);
  		while( list($c_id) = $MAIN_DB -> fetch_array($res) )
  		{
  			$array_cat[]=$c_id;
  		}
  		
  		$sql = 'DELETE FROM '.$this -> table.' WHERE c_left  BETWEEN '.$left_id.' AND '.$right_id;
  		$MAIN_DB -> query($sql);
  
  		// Clearing blank spaces in a tree
  		$delta_id = ($right_id - $left_id)+1;
  		$sql= '
  		  UPDATE '.$this -> table.' 
  		  SET c_left=IF(c_left>'.$left_id.',c_left-'.$delta_id.',c_left),c_right=IF(c_right>'.$left_id.',c_right-'.$delta_id.',c_right)
  		  WHERE c_right>'.$right_id;
  		$MAIN_DB -> query($sql);
  
  		return $array_cat;
  	}
  	
  	/**********************************
  	*	@project cms
  	*	обновляем текущую ns запись
  	*		
  	************************************/
  	function update(){
  	global $MAIN_DB;
  
  		if ( false===$this -> main_key ){
  			sys_error(ERROR_500,A_EMPTY_ID);
  		}
  		if ( !empty($this -> last_error ) ){
  			 return false; 
  		}
  		if ( sizeof($this -> set_info)==0 ){
  			sys_error(ERROR_500,A_EMPTY_ARRAY);
  		}
  		$sql = array();
  		foreach( $this -> set_info as $k=>$v ){
  			$this -> info[$k]=$v;
  			$sql[]="`$k`='".sys_in_sql($v)."'";
  		}
  		$sql = "
  			UPDATE ".$this -> table." 
  			SET ".implode(',',$sql)." 
  			WHERE c_id='".$this -> main_key."'";
  		if ( !empty($this -> debug) ){
  			die($sql);
  		}
  		$MAIN_DB -> query($sql);
  		
  			//	переносим ветку
  		if ( !empty($this -> parent_id) ){
  			$this -> move_all($this -> main_key,$this -> parent_id);
  		}
  		
  		return true;
  	}
  	 	
  	 	
  	 	//	переносим дерево id к новому родителю new_parent_id
  	public function move_all($id, $new_parent_id) {
  	global $MAIN_DB;
  		
          if ($id==$new_parent_id) {
  			sys_error(ERROR_500);
  		}
  	    list($leftId, $rightId, $level) = ns_tree::get_service_id($id,$this -> table,$this -> alias);
  	  
          if (!$leftId) {
             sys_error(ERROR_500);
          }
         		//	получаем родительский 
  	  	$c_parent_id =  ns_tree::get_parent($id,$this -> table,$this -> alias);
  	   if ($c_parent_id == $new_parent_id){
  			 return false; 
         }
       
         
  	   list($leftIdP, $rightIdP, $levelP) = ns_tree::get_service_id($new_parent_id,$this -> table,$this -> alias);
         if (FALSE === $node_info) {
            sys_error('500');
         }
  	
        
         if ($leftIdP < $leftId && $rightIdP > $rightId && $levelP < $level - 1) {
              $sql = 'UPDATE ' . $this->table . ' SET c_level = CASE WHEN c_left BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_level'.sprintf('%+d', -($level-1)+$levelP) . ' ELSE c_level END, c_right = CASE WHEN c_right BETWEEN ' . ($rightId+1) . ' AND ' . ($rightIdP-1) . ' THEN c_right-' . ($rightId-$leftId+1) . ' '
              . 'WHEN c_left BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_right+' . ((($rightIdP-$rightId-$level+$levelP)/2)*2+$level-$levelP-1) . ' ELSE c_right END, c_left = CASE WHEN c_left BETWEEN ' . ($rightId+1) . ' AND ' . ($rightIdP-1) . ' THEN c_left-' . ($rightId-$leftId+1) . ' '
              . 'WHEN c_left BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_left+' . ((($rightIdP-$rightId-$level+$levelP)/2)*2+$level-$levelP-1) . ' ELSE c_left END '
              . 'WHERE c_left BETWEEN ' . ($leftIdP+1) . ' AND ' . ($rightIdP-1);
          } elseif ($leftIdP < $leftId) {
              $sql = 'UPDATE ' . $this->table . ' SET c_level  = CASE WHEN c_left BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_level '.sprintf('%+d', -($level-1)+$levelP) . ' ELSE c_level END, c_left = CASE WHEN c_left BETWEEN ' . $rightIdP . ' AND ' . ($leftId-1) . ' THEN c_left+' . ($rightId-$leftId+1) . ' '
              . 'WHEN c_left BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_left-' . ($leftId-$rightIdP) . ' ELSE c_left END, c_right = CASE WHEN c_right BETWEEN ' . $rightIdP . ' AND ' . $leftId . ' THEN c_right+' . ($rightId-$leftId+1) . ' '
              . 'WHEN c_right BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_right-' . ($leftId-$rightIdP) . ' ELSE c_right END '
              . 'WHERE (c_left BETWEEN ' . $leftIdP . ' AND ' . $rightId. ' '
              . 'OR c_right BETWEEN ' . $leftIdP . ' AND ' . $rightId . ')';
          } else {
              $sql = 'UPDATE ' . $this->table . ' SET c_level = CASE WHEN c_left BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_level '.sprintf('%+d', -($level-1)+$levelP) . ' ELSE c_level END, c_left = CASE WHEN c_left BETWEEN ' . $rightId . ' AND ' . $rightIdP . ' THEN c_left-' . ($rightId-$leftId+1) . ' '
              . 'WHEN c_left BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_left+' . ($rightIdP-1-$rightId) . ' ELSE c_left END, c_right = CASE WHEN c_right BETWEEN ' . ($rightId+1) . ' AND ' . ($rightIdP-1) . ' THEN c_right-' . ($rightId-$leftId+1) . ' '
              . 'WHEN c_right BETWEEN ' . $leftId . ' AND ' . $rightId . ' THEN c_right+' . ($rightIdP-1-$rightId) . ' ELSE c_right END '
              . 'WHERE (c_left BETWEEN ' . $leftId . ' AND ' . $rightIdP . ' '
              . 'OR c_right BETWEEN ' . $leftId . ' AND ' . $rightIdP . ')';
          }
  		$MAIN_DB -> query($sql);
          return TRUE;
      }
      
      
  	  //	---	меняем местами 2 ветки дерева одного уровня
  	public function order_tree($id,$new_id)
  	{
  	global $MAIN_DB;
  			//	---	элемент который будет перемещать
  		$node_info = ns_tree::get_service_id($id,$this -> table,$this -> alias);
      if (FALSE === $node_info) {
        return FALSE;
      }
      list($left_id, $right_id, $level) = $node_info;
  		$count = $right_id - $left_id+1;	//	---	размер дерева
  		
  			//	---	элемент за которым будет размещён перемещаемый элемент
      $node_info = ns_tree::get_service_id($new_id,$this -> table,$this -> alias);
      if (FALSE === $node_info) {
         return FALSE;
      }
      list($left_id_p, $right_id_p, $level_p) = $node_info;
  		if ( ($right_id_p+1)==$left_id )
  		{
  			//	---	переносить некуда
  			  return FALSE;
  		}
  		
  		if ( $left_id < $left_id_p ) 
  		{
  			$left_smech = ($right_id_p - $right_id);
  			//	---	переносим вправо
  			$sql = 'UPDATE '.$this -> table.' SET 
  			  c_left=IF(c_left BETWEEN '.$left_id.' AND '.$right_id.',c_left+'.$left_smech.',
  					IF(c_left BETWEEN '.($right_id+1).' AND '.$right_id_p.',c_left-'.($count).',c_left)),
  					c_right=IF(c_right BETWEEN '.$left_id.' AND '.$right_id.',c_right+'.$left_smech.',
  					IF(c_right BETWEEN '.($right_id+1).' AND '.$right_id_p.',c_right-'.($count).',c_right)
  				)';
  		}
  		else
  		{
  			$left_smech = ($left_id - $left_id_p)-1;
  			//	---	переносим влево
  			$sql = 'UPDATE '.$this -> table.' SET 
  			    c_left=IF(c_left BETWEEN '.$left_id.' AND '.$right_id.',c_left-'.$left_smech.',
  					IF(c_left BETWEEN '.($left_id_p+1).' AND '.($left_id-1).',c_left+'.($count).',c_left)),
  					c_right=IF(c_right BETWEEN '.$left_id.' AND '.$right_id.',c_right-'.$left_smech.',
  					IF(c_right BETWEEN '.($left_id_p+1).' AND '.($left_id-1).',c_right+'.($count).',c_right)
  				)';
  		}
  		$MAIN_DB -> query($sql);
  	}
  	
  		// получаем следующий элемент в текущей ветке
  	public function get_next($id){
  	  
  		$node_info = ns_tree::get_service_id($id);
  		if ( false===$node_info ){
  			return false;
  		}
  		list($c_left,$c_right,$c_level) = $node_info;
  		
  		
  		return $row;
  	}
  	
  			// получаем предыдущий элемент в текущей ветке
  	static function get_prev($id){
  		$n = new ns_tree_q( $table,$alias);
  		if ( false===$n -> where_id($id) ){
  			return false;
  		}
  		$n -> get('c_left,c_right,c_level',false);
  		$row = $n -> row();
  		if ( false===$row ){
  			return false;
  		}
  		return $row;
  	}
  
  		// служебная инфорация о id
  	static function get_service_id($id,$table,$alias){
  		$n = new ns_tree_q( $table,$alias);
  		if ( false===$n -> where_id($id) ){
  			return false;
  		}
  		$n -> get('c_left,c_right,c_level',false);
  		$row = $n -> row();
  		if ( false===$row ){
  			return false;
  		}
  		return $row;
  	}
  	
  	static function get_parent($id,$table,$alias){
  	  if ( empty($id) ){
  		  return false;
  		}
  		list($l,$r,$level) = ns_tree::get_service_id($id,$table,$alias);
  		if ( empty($l) ){
  		  return false;
  		}
  		$level--;
  		$p = new ns_tree_q($table,$alias);
  		$p -> where_less('c_left',$l);
  		$p -> where_more('c_right',$r);
  		$p -> where_level($level);
  		$p -> get('c_id');
  		list($c_id) = $p -> row();
  		if ( false==$c_id ){
  			return false;
  		}
  		return $c_id;
  	}
  	
  	  //  найдём все дочерние элементы
  	static function get_childs($id,$table,$alias){
  	  if ( empty($id) ){
  		  return false;
  		}
  		list($l,$r,$level) = ns_tree::get_service_id($id,$table,$alias);
  		if ( empty($l) ){
  		  return false;
  		}
  	
  		
  		//$p -> where_less('c_left',$l);
  	//	$p -> where_more('c_right',$r);
  		$p -> where($level);
  		$p -> get('c_id');
  		list($c_id) = $p -> row();
  		if ( false==$c_id ){
  			return false;
  		}
  		return $c_id;
  	}
  	
  	
  	function  make_error($msg){
  		$this -> last_error = $msg;
  	}
  	
    function  set_debug($flag){
  		$this -> debug = $flag;
  	}
  
  	static function replace($id,$new_id,$table)
  	{
  	global $MAIN_DB;
  			//	---	элемент который будет перемещать
  		$node_info = ns_tree::get_service_id($id,$table,'a');
      if (FALSE === $node_info) {
        return FALSE;
      }
      list($left_id, $right_id, $level) = $node_info;
  		$count = $right_id - $left_id+1;	//	---	размер дерева
  		
  			//	---	элемент за которым будет размещён перемещаемый элемент
      $node_info = ns_tree::get_service_id($new_id,$table,'a');
      if (FALSE === $node_info) {
         return FALSE;
      }
      list($left_id_p, $right_id_p, $level_p) = $node_info;
  		if ( ($right_id_p+1)==$left_id )
  		{
  			//	---	переносить некуда
  			  return FALSE;
  		}
  		
  		if ( $left_id < $left_id_p ) 
  		{
  			$left_smech = ($right_id_p - $right_id);
  			//	---	переносим вправо
  			$sql = 'UPDATE '.$table.' SET 
  			  c_left=IF(c_left BETWEEN '.$left_id.' AND '.$right_id.',c_left+'.$left_smech.',
  					IF(c_left BETWEEN '.($right_id+1).' AND '.$right_id_p.',c_left-'.($count).',c_left)),
  					c_right=IF(c_right BETWEEN '.$left_id.' AND '.$right_id.',c_right+'.$left_smech.',
  					IF(c_right BETWEEN '.($right_id+1).' AND '.$right_id_p.',c_right-'.($count).',c_right)
  				)';
  		}
  		else
  		{
  			$left_smech = ($left_id - $left_id_p)-1;
  			//	---	переносим влево
  			$sql = 'UPDATE '.$table.' SET 
  			    c_left=IF(c_left BETWEEN '.$left_id.' AND '.$right_id.',c_left-'.$left_smech.',
  					IF(c_left BETWEEN '.($left_id_p+1).' AND '.($left_id-1).',c_left+'.($count).',c_left)),
  					c_right=IF(c_right BETWEEN '.$left_id.' AND '.$right_id.',c_right-'.$left_smech.',
  					IF(c_right BETWEEN '.($left_id_p+1).' AND '.($left_id-1).',c_right+'.($count).',c_right)
  				)';
  		}
  		$MAIN_DB -> query($sql);
  	}
  	
  	
  
  
  }//end class
  
  
  
  ?>