Proyectos de Subversion Moodle

<?php

/**

 * SAPDB data driver

 *

 * This file is part of ADOdb, a Database Abstraction Layer library for PHP.

 *

 * @package ADOdb

 * @link https://adodb.org Project's web site and documentation

 * @link https://github.com/ADOdb/ADOdb Source code and issue tracker

 *

 * The ADOdb Library is dual-licensed, released under both the BSD 3-Clause

 * and the GNU Lesser General Public Licence (LGPL) v2.1 or, at your option,

 * any later version. This means you can use it in proprietary products.

 * See the LICENSE.md file distributed with this source code for details.

 * @license BSD-3-Clause

 * @license LGPL-2.1-or-later

 *

 * @copyright 2000-2013 John Lim

 * @copyright 2014 Damien Regad, Mark Newnham and the ADOdb community

 */

// security - hide paths

if (!defined('ADODB_DIR')) die();

if (!defined('_ADODB_ODBC_LAYER')) {

	include_once(ADODB_DIR."/drivers/adodb-odbc.inc.php");

}

if (!defined('ADODB_SAPDB')){

define('ADODB_SAPDB',1);

class ADODB_SAPDB extends ADODB_odbc {

	var $databaseType = "sapdb";

	var $concat_operator = '||';

	var $sysDate = 'DATE';

	var $sysTimeStamp = 'TIMESTAMP';

	var $fmtDate = "'Y-m-d'";	/// used by DBDate() as the default date format used by the database

	var $fmtTimeStamp = "'Y-m-d H:i:s'"; /// used by DBTimeStamp as the default timestamp fmt.

	var $hasInsertId = true;

	var $_bindInputArray = true;

	function ServerInfo()

	{

		$info = ADODB_odbc::ServerInfo();

		if (!$info['version'] && preg_match('/([0-9.]+)/',$info['description'],$matches)) {

			$info['version'] = $matches[1];

		}

		return $info;

	}

	function MetaPrimaryKeys($table, $owner = false)

	{

		$table = $this->Quote(strtoupper($table));

		return $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table AND mode='KEY' ORDER BY pos");

	}

	function MetaIndexes ($table, $primary = FALSE, $owner = false)

	{

		$table = $this->Quote(strtoupper($table));

		$sql = "SELECT INDEXNAME,TYPE,COLUMNNAME FROM INDEXCOLUMNS ".

			" WHERE TABLENAME=$table".

			" ORDER BY INDEXNAME,COLUMNNO";

		global $ADODB_FETCH_MODE;

		$save = $ADODB_FETCH_MODE;

		$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

		if ($this->fetchMode !== FALSE) {

			$savem = $this->SetFetchMode(FALSE);

		}

		$rs = $this->Execute($sql);

		if (isset($savem)) {

			$this->SetFetchMode($savem);

		}

		$ADODB_FETCH_MODE = $save;

		if (!is_object($rs)) {

			return FALSE;

		}

		$indexes = array();

		while ($row = $rs->FetchRow()) {

			$indexes[$row[0]]['unique'] = $row[1] == 'UNIQUE';

			$indexes[$row[0]]['columns'][] = $row[2];

		}

		if ($primary) {

			$indexes['SYSPRIMARYKEYINDEX'] = array(

					'unique' => True,	// by definition

					'columns' => $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table AND mode='KEY' ORDER BY pos"),

				);

		}

		return $indexes;

	}

	function MetaColumns ($table, $normalize = true)

	{

		global $ADODB_FETCH_MODE;

		$save = $ADODB_FETCH_MODE;

		$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

		if ($this->fetchMode !== FALSE) {

			$savem = $this->SetFetchMode(FALSE);

		}

		$table = $this->Quote(strtoupper($table));

		$retarr = array();

		foreach($this->GetAll("SELECT COLUMNNAME,DATATYPE,LEN,DEC,NULLABLE,MODE,\"DEFAULT\",CASE WHEN \"DEFAULT\" IS NULL THEN 0 ELSE 1 END AS HAS_DEFAULT FROM COLUMNS WHERE tablename=$table ORDER BY pos") as $column)

		{

			$fld = new ADOFieldObject();

			$fld->name = $column[0];

			$fld->type = $column[1];

			$fld->max_length = $fld->type == 'LONG' ? 2147483647 : $column[2];

			$fld->scale = $column[3];

			$fld->not_null = $column[4] == 'NO';

			$fld->primary_key = $column[5] == 'KEY';

			if ($fld->has_default = $column[7]) {

				if ($fld->primary_key && $column[6] == 'DEFAULT SERIAL (1)') {

					$fld->auto_increment = true;

					$fld->has_default = false;

				} else {

					$fld->default_value = $column[6];

					switch($fld->type) {

						case 'VARCHAR':

						case 'CHARACTER':

						case 'LONG':

							$fld->default_value = $column[6];

							break;

						default:

							$fld->default_value = trim($column[6]);

							break;

					}

				}

			}

			$retarr[$fld->name] = $fld;

		}

		if (isset($savem)) {

			$this->SetFetchMode($savem);

		}

		$ADODB_FETCH_MODE = $save;

		return $retarr;

	}

	function MetaColumnNames($table, $numIndexes = false, $useattnum = false)

	{

		$table = $this->Quote(strtoupper($table));

		return $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table ORDER BY pos");

	}

	// unlike it seems, this depends on the db-session and works in a multiuser environment

	protected function _insertID($table = '', $column = '')

	{

		return empty($table) ? False : $this->GetOne("SELECT $table.CURRVAL FROM DUAL");

	}

	/*

		SelectLimit implementation problems:

		The following will return random 10 rows as order by performed after "WHERE rowno<10"

		which is not ideal...

			select * from table where rowno < 10 order by 1

		This means that we have to use the adoconnection base class SelectLimit when

		there is an "order by".

		See http://listserv.sap.com/pipermail/sapdb.general/2002-January/010405.html

	 */

};

class ADORecordSet_sapdb extends ADORecordSet_odbc {

	var $databaseType = "sapdb";

}

} //define