Merge branch 'pdo'

Conflicts:
	CHANGELOG

1 files changed, 0 insertions, 1161 deletions

diff --git a/program/lib/MDB2/Driver/sqlsrv.php b/program/lib/MDB2/Driver/sqlsrv.php
deleted file mode 100644
index 70f978020..000000000
--- a/program/lib/MDB2/Driver/sqlsrv.php
+++ /dev/null
@@ -1,1161 +0,0 @@
-<?php

-// vim: set et ts=4 sw=4 fdm=marker:

-// +----------------------------------------------------------------------+

-// | PHP versions 4 and 5                                                 |

-// +----------------------------------------------------------------------+

-// | Copyright (c) 1998-2008 Manuel Lemos, Tomas V.V.Cox,                 |

-// | Stig. S. Bakken, Lukas Smith, Frank M. Kromann                       |

-// | All rights reserved.                                                 |

-// +----------------------------------------------------------------------+

-// | MDB2 is a merge of PEAR DB and Metabases that provides a unified DB  |

-// | API as well as database abstraction for PHP applications.            |

-// | This LICENSE is in the BSD license style.                            |

-// |                                                                      |

-// | Redistribution and use in source and binary forms, with or without   |

-// | modification, are permitted provided that the following conditions   |

-// | are met:                                                             |

-// |                                                                      |

-// | Redistributions of source code must retain the above copyright       |

-// | notice, this list of conditions and the following disclaimer.        |

-// |                                                                      |

-// | Redistributions in binary form must reproduce the above copyright    |

-// | notice, this list of conditions and the following disclaimer in the  |

-// | documentation and/or other materials provided with the distribution. |

-// |                                                                      |

-// | Neither the name of Manuel Lemos, Tomas V.V.Cox, Stig. S. Bakken,    |

-// | Lukas Smith nor the names of his contributors may be used to endorse |

-// | or promote products derived from this software without specific prior|

-// | written permission.                                                  |

-// |                                                                      |

-// | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS  |

-// | "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT    |

-// | LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS    |

-// | FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE      |

-// | REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,          |

-// | INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, |

-// | BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS|

-// |  OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED  |

-// | AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT          |

-// | LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY|

-// | WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE          |

-// | POSSIBILITY OF SUCH DAMAGE.                                          |

-// +----------------------------------------------------------------------+

-// | Author: Frank M. Kromann <frank@kromann.info>                        |

-// +----------------------------------------------------------------------+

-// {{{ Class MDB2_Driver_sqlsrv

-/**

- * MDB2 MSSQL Server (native) driver

- *

- * @package MDB2

- * @category Database

- */

-class MDB2_Driver_sqlsrv extends MDB2_Driver_Common

-{

-    // {{{ properties

-

-    var $string_quoting = array('start' => "'", 'end' => "'", 'escape' => "'", 'escape_pattern' => false);

-

-    var $identifier_quoting = array('start' => '[', 'end' => ']', 'escape' => ']');

-	

-	var $connection = null;

-

-    // }}}

-    // {{{ constructor

-

-    /**

-     * Constructor

-     */

-    function __construct()

-    {

-        parent::__construct();

-

-        $this->phptype = 'sqlsrv';

-        $this->dbsyntax = 'sqlsrv';

-

-        $this->supported['sequences'] = 'emulated';

-        $this->supported['indexes'] = true;

-        $this->supported['affected_rows'] = true;

-        $this->supported['summary_functions'] = true;

-        $this->supported['transactions'] = true;

-        $this->supported['order_by_text'] = true;

-        $this->supported['savepoints'] = false;

-        $this->supported['current_id'] = 'emulated';

-        $this->supported['limit_queries'] = 'emulated';

-        $this->supported['LOBs'] = true;

-        $this->supported['replace'] = 'emulated';

-        $this->supported['sub_selects'] = true;

-        $this->supported['triggers'] = true;

-        $this->supported['auto_increment'] = true;

-        $this->supported['primary_key'] = true;

-        $this->supported['result_introspection'] = true;

-        $this->supported['prepared_statements'] = 'emulated';

-        $this->supported['identifier_quoting'] = false;

-        $this->supported['pattern_escaping'] = true;

-        $this->supported['new_link'] = true;

-

-        $this->options['DBA_username'] = false;

-        $this->options['DBA_password'] = false;

-        $this->options['database_device'] = false;

-        $this->options['database_size'] = false;

-        $this->options['max_identifiers_length'] = 128; // MS Access: 64

-    }

-

-    // }}}

-    // {{{ errorInfo()

-

-    /**

-     * This method is used to collect information about an error

-     *

-     * @param integer $error

-     * @return array

-     * @access public

-     */

-    function errorInfo($error = null, $connection = null)

-    {

-        if (null === $connection) {

-            $connection = $this->connection;

-        }

-

-        $native_code = null;

-        $native_msg  = null;

-        if ($connection) {

-			$retErrors = sqlsrv_errors(SQLSRV_ERR_ALL);  

-			if ($retErrors !== null) {

-				foreach ($retErrors as $arrError) {

-					$native_msg .= "SQLState: ".$arrError[ 'SQLSTATE']."\n";  

-					$native_msg .= "Error Code: ".$arrError[ 'code']."\n";  

-					$native_msg .= "Message: ".$arrError[ 'message']."\n";  

-					$native_code = $arrError[ 'code'];

-				}  

-			}			

-        }

-        if (null === $error) {

-            static $ecode_map;

-            if (empty($ecode_map)) {

-                $ecode_map = array(

-                    102   => MDB2_ERROR_SYNTAX,

-                    110   => MDB2_ERROR_VALUE_COUNT_ON_ROW,

-                    155   => MDB2_ERROR_NOSUCHFIELD,

-                    156   => MDB2_ERROR_SYNTAX,

-                    170   => MDB2_ERROR_SYNTAX,

-                    207   => MDB2_ERROR_NOSUCHFIELD,

-                    208   => MDB2_ERROR_NOSUCHTABLE,

-                    245   => MDB2_ERROR_INVALID_NUMBER,

-                    319   => MDB2_ERROR_SYNTAX,

-                    321   => MDB2_ERROR_NOSUCHFIELD,

-                    325   => MDB2_ERROR_SYNTAX,

-                    336   => MDB2_ERROR_SYNTAX,

-                    515   => MDB2_ERROR_CONSTRAINT_NOT_NULL,

-                    547   => MDB2_ERROR_CONSTRAINT,

-                    911   => MDB2_ERROR_NOT_FOUND,

-                    1018  => MDB2_ERROR_SYNTAX,

-                    1035  => MDB2_ERROR_SYNTAX,

-                    1801  => MDB2_ERROR_ALREADY_EXISTS,

-                    1913  => MDB2_ERROR_ALREADY_EXISTS,

-                    2209  => MDB2_ERROR_SYNTAX,

-                    2223  => MDB2_ERROR_SYNTAX,

-                    2248  => MDB2_ERROR_SYNTAX,

-                    2256  => MDB2_ERROR_SYNTAX,

-                    2257  => MDB2_ERROR_SYNTAX,

-                    2627  => MDB2_ERROR_CONSTRAINT,

-                    2714  => MDB2_ERROR_ALREADY_EXISTS,

-                    3607  => MDB2_ERROR_DIVZERO,

-                    3701  => MDB2_ERROR_NOSUCHTABLE,

-                    7630  => MDB2_ERROR_SYNTAX,

-                    8134  => MDB2_ERROR_DIVZERO,

-                    9303  => MDB2_ERROR_SYNTAX,

-                    9317  => MDB2_ERROR_SYNTAX,

-                    9318  => MDB2_ERROR_SYNTAX,

-                    9331  => MDB2_ERROR_SYNTAX,

-                    9332  => MDB2_ERROR_SYNTAX,

-                    15253 => MDB2_ERROR_SYNTAX,

-                );

-            }

-            if (isset($ecode_map[$native_code])) {

-                if ($native_code == 3701

-                    && preg_match('/Cannot drop the index/i', $native_msg)

-                ) {

-                   $error = MDB2_ERROR_NOT_FOUND;

-                } else {

-                    $error = $ecode_map[$native_code];

-                }

-            }

-        }

-        return array($error, $native_code, $native_msg);

-    }

-

-    // }}}

-    // {{{ function escapePattern($text)

-

-    /**

-     * Quotes pattern (% and _) characters in a string)

-     *

-     * @param   string  the input string to quote

-     *

-     * @return  string  quoted string

-     *

-     * @access  public

-     */

-    function escapePattern($text)

-    {

-        $text = str_replace("[", "[ [ ]", $text);

-        foreach ($this->wildcards as $wildcard) {

-            $text = str_replace($wildcard, '[' . $wildcard . ']', $text);

-        }

-        return $text;

-    }

-

-    // }}}

-    // {{{ beginTransaction()

-

-    /**

-     * Start a transaction or set a savepoint.

-     *

-     * @param   string  name of a savepoint to set

-     * @return  mixed   MDB2_OK on success, a MDB2 error on failure

-     *

-     * @access  public

-     */

-    function beginTransaction($savepoint = null)

-    {

-        $this->debug('Starting transaction/savepoint', __FUNCTION__, array('is_manip' => true, 'savepoint' => $savepoint));

-        if (null !== $savepoint) {

-            if (!$this->in_transaction) {

-                return $this->raiseError(MDB2_ERROR_INVALID, null, null,

-                    'savepoint cannot be released when changes are auto committed', __FUNCTION__);

-            }

-            $query = 'SAVE TRANSACTION '.$savepoint;

-            return $this->_doQuery($query, true);

-        }

-        if ($this->in_transaction) {

-            return MDB2_OK;  //nothing to do

-        }

-        if (!$this->destructor_registered && $this->opened_persistent) {

-            $this->destructor_registered = true;

-            register_shutdown_function('MDB2_closeOpenTransactions');

-        }

-        if (PEAR::isError(sqlsrv_begin_transaction($this->connection))) {

-            return MDB2_ERROR;

-        }

-        $this->in_transaction = true;

-        return MDB2_OK;

-    }

-

-    // }}}

-    // {{{ commit()

-

-    /**

-     * Commit the database changes done during a transaction that is in

-     * progress or release a savepoint. This function may only be called when

-     * auto-committing is disabled, otherwise it will fail. Therefore, a new

-     * transaction is implicitly started after committing the pending changes.

-     *

-     * @param   string  name of a savepoint to release

-     * @return  mixed   MDB2_OK on success, a MDB2 error on failure

-     *

-     * @access  public

-     */

-    function commit($savepoint = null)

-    {

-        $this->debug('Committing transaction/savepoint', __FUNCTION__, array('is_manip' => true, 'savepoint' => $savepoint));

-        if (!$this->in_transaction) {

-            return $this->raiseError(MDB2_ERROR_INVALID, null, null,

-                'commit/release savepoint cannot be done changes are auto committed', __FUNCTION__);

-        }

-        if (null !== $savepoint) {

-            return MDB2_OK;

-        }

-

-        if (PEAR::isError(sqlsrv_commit($this->connection))) {

-            return MDB2_ERROR;

-        }

-        $this->in_transaction = false;

-        return MDB2_OK;

-    }

-

-    // }}}

-    // {{{ rollback()

-

-    /**

-     * Cancel any database changes done during a transaction or since a specific

-     * savepoint that is in progress. This function may only be called when

-     * auto-committing is disabled, otherwise it will fail. Therefore, a new

-     * transaction is implicitly started after canceling the pending changes.

-     *

-     * @param   string  name of a savepoint to rollback to

-     * @return  mixed   MDB2_OK on success, a MDB2 error on failure

-     *

-     * @access  public

-     */

-    function rollback($savepoint = null)

-    {

-        $this->debug('Rolling back transaction/savepoint', __FUNCTION__, array('is_manip' => true, 'savepoint' => $savepoint));

-        if (!$this->in_transaction) {

-            return $this->raiseError(MDB2_ERROR_INVALID, null, null,

-                'rollback cannot be done changes are auto committed', __FUNCTION__);

-        }

-        if (null !== $savepoint) {

-            $query = 'ROLLBACK TRANSACTION '.$savepoint;

-            return $this->_doQuery($query, true);

-        }

-

-        if (PEAR::isError(sqlsrv_rollback($this->connection))) {

-            return MDB2_ERROR;

-        }

-        $this->in_transaction = false;

-        return MDB2_OK;

-    }

-

-    // }}}

-    // {{{ _doConnect()

-

-    /**

-     * do the grunt work of the connect

-     *

-     * @return connection on success or MDB2 Error Object on failure

-     * @access protected

-     */

-    function _doConnect($username, $password, $database=null, $persistent = false)

-    {

-        if (!PEAR::loadExtension($this->phptype)) {

-            return $this->raiseError(MDB2_ERROR_NOT_FOUND, null, null,

-                'extension '.$this->phptype.' is not installed PHP', __FUNCTION__);

-        }

-

-        $host = $this->dsn['hostspec'] ? $this->dsn['hostspec'] : '.\\SQLEXPRESS';

-        $params = array(

-            'UID' => $username ? $username : null,

-            'PWD' => $password ? $password : null,

-        );

-		if ($database) {

-            $params['Database'] = $database;

-        }

-		

-        if ($this->dsn['port'] && $this->dsn['port'] != 1433) {

-            $host .= ','.$this->dsn['port'];

-        }

-

-        $connection = @sqlsrv_connect($host, $params);

-        if (!$connection) {

-            return $this->raiseError(MDB2_ERROR_CONNECT_FAILED, null, null,

-                'unable to establish a connection', __FUNCTION__, __FUNCTION__);

-        }

-        if (null !== $database) {

-            $this->connected_database_name = $database;

-        }

-

-        if (!empty($this->dsn['charset'])) {

-            $result = $this->setCharset($this->dsn['charset'], $connection);

-            if (PEAR::isError($result)) {

-                return $result;

-            }

-        }

-

-       if (empty($this->dsn['disable_iso_date'])) {

-           @sqlsrv_query($connection,'SET DATEFORMAT ymd');

-       }

-

-       return $connection;

-    }

-

-    // }}}

-    // {{{ connect()

-

-    /**

-     * Connect to the database

-     *

-     * @return true on success, MDB2 Error Object on failure

-     */

-    function connect()

-    {

-        if (is_resource($this->connection)) {

-            if (MDB2::areEquals($this->connected_dsn, $this->dsn)) {

-                return MDB2_OK;

-            }

-            $this->disconnect(false);

-        }

-

-        $connection = $this->_doConnect(

-            $this->dsn['username'],

-            $this->dsn['password'],

-            $this->database_name,

-            $this->options['persistent']

-        );

-        if (PEAR::isError($connection)) {

-            return $connection;

-        }

-

-        $this->connection = $connection;

-        $this->connected_dsn = $this->dsn;

-        $this->connected_database_name = $this->database_name;

-        $this->opened_persistent = $this->options['persistent'];

-        $this->dbsyntax = $this->dsn['dbsyntax'] ? $this->dsn['dbsyntax'] : $this->phptype;

-

-        return MDB2_OK;

-    }

-

-    // }}}

-    // {{{ databaseExists()

-

-    /**

-     * check if given database name exists?

-     *

-     * @param string $name    name of the database that should be checked

-     *

-     * @return mixed true/false on success, a MDB2 error on failure

-     * @access public

-     */

-    function databaseExists($name)

-    {

-        $connection = $this->_doConnect($this->dsn['username'],$this->dsn['password']);

-        if (PEAR::isError($connection)) {

-            return MDB2_ERROR_CONNECT_FAILED;

-        }

-		$result = @sqlsrv_query($connection,'select name from master..sysdatabases where name = \''.strtolower($name).'\'');

-		if (@sqlsrv_fetch($result)) {

-			return true;

-		}

-        return MDB2_ERROR_NOT_FOUND;

-    }

-

-    // }}}

-    // {{{ disconnect()

-

-    /**

-     * Log out and disconnect from the database.

-     *

-     * @param  boolean $force if the disconnect should be forced even if the

-     *                        connection is opened persistently

-     * @return mixed true on success, false if not connected and error

-     *                object on error

-     * @access public

-     */

-    function disconnect($force = true)

-    {

-        if (is_resource($this->connection)) {

-            if ($this->in_transaction) {

-                $dsn = $this->dsn;

-                $database_name = $this->database_name;

-                $persistent = $this->options['persistent'];

-                $this->dsn = $this->connected_dsn;

-                $this->database_name = $this->connected_database_name;

-                $this->options['persistent'] = $this->opened_persistent;

-                $this->rollback();

-                $this->dsn = $dsn;

-                $this->database_name = $database_name;

-                $this->options['persistent'] = $persistent;

-            }

-

-            @sqlsrv_close($this->connection);

-        }

-        return parent::disconnect($force);

-    }

-

-    // }}}

-    // {{{ standaloneQuery()

-

-   /**

-     * execute a query as DBA

-     *

-     * @param string $query the SQL query

-     * @param mixed   $types  array that contains the types of the columns in

-     *                        the result set

-     * @param boolean $is_manip  if the query is a manipulation query

-     * @return mixed MDB2_OK on success, a MDB2 error on failure

-     * @access public

-     */

-    function &standaloneQuery($query, $types = null, $is_manip = false)

-    {

-        $user = $this->options['DBA_username']? $this->options['DBA_username'] : $this->dsn['username'];

-        $pass = $this->options['DBA_password']? $this->options['DBA_password'] : $this->dsn['password'];

-        $connection = $this->_doConnect($user, $pass, $this->database_name, $this->options['persistent']);

-        if (PEAR::isError($connection)) {

-            return $connection;

-        }

-

-        $query = $this->_modifyQuery($query, $is_manip, $this->limit, $this->offset);

-        $this->offset = $this->limit = 0;

-        

-        $result = $this->_doQuery($query, $is_manip, $connection);

-        if (!PEAR::isError($result)) {

-            $result = $this->_affectedRows($connection, $result);

-        }

-

-        @sqlsrv_close($connection);

-        return $result;

-    }

-

-    // }}}

-    // {{{ _doQuery()

-

-    /**

-     * Execute a query

-     * @param string $query  query

-     * @param boolean $is_manip  if the query is a manipulation query

-     * @param resource $connection

-     * @param string $database_name

-     * @return result or error object

-     * @access protected

-     */

-    function _doQuery($query, $is_manip = false, $connection = null, $database_name = null)

-    {

-        $this->last_query = $query;

-        $result = $this->debug($query, 'query', array('is_manip' => $is_manip, 'when' => 'pre'));

-        if ($result) {

-            if (PEAR::isError($result)) {

-                return $result;

-            }

-            $query = $result;

-        }

-        if ($this->options['disable_query']) {

-            $result = $is_manip ? 0 : null;

-            return $result;

-        }

-

-        if (null === $connection) {

-            $connection = $this->getConnection();

-            if (PEAR::isError($connection)) {

-                return $connection;

-            }

-        }

-        if (null === $database_name) {

-            $database_name = $this->database_name;

-        }

-

-        if ($database_name && $database_name != $this->connected_database_name) {

-			$connection = $this->_doConnect($this->dsn['username'],$this->dsn['password'],$database_name);

-			if (PEAR::isError($connection)) {

-				$err = $this->raiseError(null, null, null,

-					'Could not select the database: '.$database_name, __FUNCTION__);

-				return $err;

-			}

-			$this->connected_database_name = $database_name;

-        }

-

-	$query = preg_replace('/DATE_FORMAT\((MIN\()?([\w|.]*)(\))?\\Q, \'%Y-%m-%d\')\E/i','CONVERT(varchar(10),$1$2$3,120)',$query); 

-	$query = preg_replace('/DATE_FORMAT\(([\w|.]*)\, \'\%Y\-\%m\-\%d %H\:00\:00\'\)/i','CONVERT(varchar(13),$1,120)+\':00:00\'',$query); 

-        $result = @sqlsrv_query($connection,$query);

-        if (!$result) {

-            $err = $this->raiseError(null, null, null,

-                'Could not execute statement', __FUNCTION__);

-            return $err;

-        }

-        $this->result = $result;

-        $this->debug($query, 'query', array('is_manip' => $is_manip, 'when' => 'post', 'result' => $result));

-        return $result;

-    }

-

-    // }}}

-    // {{{ _affectedRows()

-

-    /**

-     * Returns the number of rows affected

-     *

-     * @param resource $result

-     * @param resource $connection

-     * @return mixed MDB2 Error Object or the number of rows affected

-     * @access private

-     */

-    function _affectedRows($connection, $result = null)

-    {

-        if (null === $result) {

-            $result = $this->result;

-        }

-        return sqlsrv_rows_affected($this->result);

-    }

-

-    // }}}

-    // {{{ _modifyQuery()

-

-    /**

-     * Changes a query string for various DBMS specific reasons

-     *

-     * @param string $query  query to modify

-     * @param boolean $is_manip  if it is a DML query

-     * @param integer $limit  limit the number of rows

-     * @param integer $offset  start reading from given offset

-     * @return string modified query

-     * @access protected

-     */

-    function _modifyQuery($query, $is_manip, $limit, $offset)

-    {

-        if ($limit > 0) {

-            $fetch = $offset + $limit;

-            if (!$is_manip) {

-                return preg_replace('/^([\s(])*SELECT( DISTINCT)?(?!\s*TOP\s*\()/i',

-                    "\\1SELECT\\2 TOP $fetch", $query);

-            }

-        }

-        return $query;

-    }

-

-    // }}}

-    // {{{ getServerVersion()

-

-    /**

-     * return version information about the server

-     *

-     * @param bool   $native  determines if the raw version string should be returned

-     * @return mixed array/string with version information or MDB2 error object

-     * @access public

-     */

-    function getServerVersion($native = false)

-    {

-        if ($this->connected_server_info) {

-            $server_info = $this->connected_server_info;

-        } else {

-            $server_info = sqlsrv_server_info($this->connection);

-        }

-        // cache server_info

-        $this->connected_server_info = $server_info;

-		$version = $server_info['SQLServerVersion'];

-        if (!$native) {

-            if (preg_match('/(\d+)\.(\d+)\.(\d+)/', $version, $tmp)) {

-                $version = array(

-                    'major' => $tmp[1],

-                    'minor' => $tmp[2],

-                    'patch' => $tmp[3],

-                    'extra' => null,

-                    'native' => $version,

-                );

-            } else {

-                $version = array(

-                    'major' => null,

-                    'minor' => null,

-                    'patch' => null,

-                    'extra' => null,

-                    'native' => $version,

-                );

-            }

-        }

-        return $version;

-    }

-

-    // }}}

-    // {{{ _checkSequence

-

-    /**

-     * Checks if there's a sequence that exists.

-     *

-     * @param  string $seq_name    The sequence name to verify.

-     * @return bool   $tableExists The value if the table exists or not

-     * @access private

-     */

-    function _checkSequence($seq_name)

-    {

-        $query = "SELECT * FROM $seq_name";

-        $tableExists =& $this->_doQuery($query, true);

-        if (PEAR::isError($tableExists)) {

-            if ($tableExists->getCode() == MDB2_ERROR_NOSUCHTABLE) {

-                return false;

-            }

-            return false;

-        }

-		if (@sqlsrv_fetch($tableExits)) {

-			return true;

-		}

-        return false;

-    }

-

-    // }}}

-    // {{{ nextID()

-

-    /**

-     * Returns the next free id of a sequence

-     *

-     * @param string $seq_name name of the sequence

-     * @param boolean $ondemand when true the sequence is

-     *                          automatic created, if it

-     *                          not exists

-     *

-     * @return mixed MDB2 Error Object or id

-     * @access public

-     */

-    function nextID($seq_name, $ondemand = true)

-    {

-        $sequence_name = $this->quoteIdentifier($this->getSequenceName($seq_name), true);

-        $seqcol_name = $this->quoteIdentifier($this->options['seqcol_name'], true);

-        $this->pushErrorHandling(PEAR_ERROR_RETURN);

-        $this->expectError(MDB2_ERROR_NOSUCHTABLE);

-        

-        $seq_val = $this->_checkSequence($sequence_name);

-

-        if ($seq_val) {

-            $query = "SET IDENTITY_INSERT $sequence_name OFF ".

-                     "INSERT INTO $sequence_name DEFAULT VALUES";

-        } else {

-            $query = "INSERT INTO $sequence_name ($seqcol_name) VALUES (0)";

-        }

-        $result = $this->_doQuery($query, true);

-        $this->popExpect();

-        $this->popErrorHandling();

-        if (PEAR::isError($result)) {

-            if ($ondemand && !$this->_checkSequence($sequence_name)) {

-                $this->loadModule('Manager', null, true);

-                $result = $this->manager->createSequence($seq_name);

-                if (PEAR::isError($result)) {

-                    return $this->raiseError($result, null, null,

-                        'on demand sequence '.$seq_name.' could not be created', __FUNCTION__);

-                } else {

-                    /**

-                     * Little off-by-one problem with the sequence emulation

-                     * here being fixed, that instead of re-calling nextID

-                     * and forcing an increment by one, we simply check if it

-                     * exists, then we get the last inserted id if it does.

-                     *

-                     * In theory, $seq_name should be created otherwise there would

-                     * have been an error thrown somewhere up there.. 

-                     *

-                     * @todo confirm

-                     */

-                    if ($this->_checkSequence($seq_name)) {

-                        return $this->lastInsertID($seq_name);

-                    }

-

-                    return $this->nextID($seq_name, false);

-                }

-            }

-            return $result;

-        }

-        $value = $this->lastInsertID($sequence_name);

-        if (is_numeric($value)) {

-            $query = "DELETE FROM $sequence_name WHERE $seqcol_name < $value";

-            $result = $this->_doQuery($query, true);

-            if (PEAR::isError($result)) {

-                $this->warnings[] = 'nextID: could not delete previous sequence table values from '.$seq_name;

-            }

-        }

-        return $value;

-    }

-

-    // }}}

-    // {{{ lastInsertID()

-

-    /**

-     * Returns the autoincrement ID if supported or $id or fetches the current

-     * ID in a sequence called: $table.(empty($field) ? '' : '_'.$field)

-     *

-     * @param string $table name of the table into which a new row was inserted

-     * @param string $field name of the field into which a new row was inserted

-     *

-     * @return mixed MDB2 Error Object or id

-     * @access public

-     */

-    function lastInsertID($table = null, $field = null)

-    {

-        return $this->queryOne("SELECT IDENT_CURRENT('$table')", 'integer');

-    }

-

-    // }}}

-}

-

-// }}}

-// {{{ Class MDB2_Result_mssql

-

-/**

- * MDB2 MSSQL Server result driver

- *

- * @package MDB2

- * @category Database

- * @author  Frank M. Kromann <frank@kromann.info>

- */

-class MDB2_Result_sqlsrv extends MDB2_Result_Common

-{

-    // {{{ constructor: function __construct($db, $result, $limit = 0, $offset = 0)

-

-    /**

-     * Constructor

-     */

-    function __construct($db, $result, $limit = 0, $offset = 0)

-{

-        $this->db = $db;

-        $this->result = $result;

-        $this->offset = $offset;

-        $this->limit = max(0, $limit - 1);

-		$this->cursor = 0;

-		$this->rows = array();

-		$this->numFields = sqlsrv_num_fields($result);

-		$this->fieldMeta = sqlsrv_field_metadata($result);

-		$this->numRowsAffected = sqlsrv_rows_affected($result);

-		while ($row = sqlsrv_fetch_array($result, SQLSRV_FETCH_ASSOC)) {

-			if ($row !== null) {

-				if ($this->offset && $this->offset_count < $this->offset) {

-					$this->offset_count++;

-					continue;

-				}

-				foreach ($row as $k => $v) {

-					if (is_object($v) && method_exists($v, 'format')) {

-                        //DateTime Object

-						$row[$k] = $v->format('Y-m-d H:i:s');

-					}

-				}

-				$this->rows[] = $row; //read results into memory, cursors are not supported

-			}

-		}

-		$this->rowcnt = count($this->rows);

-    }

-

-    // }}}

-    // {{{ _skipLimitOffset()

-

-    /**

-     * Skip the first row of a result set.

-     *

-     * @param resource $result

-     * @return mixed a result handle or MDB2_OK on success, a MDB2 error on failure

-     * @access protected

-     */

-/*    function _skipLimitOffset()

-    {

-        if ($this->limit) {

-            if ($this->rownum >= $this->limit) {

-                return false;

-            }

-        }

-        if ($this->offset) {

-            while ($this->offset_count < $this->offset) {

-                ++$this->offset_count;

-                if (!is_array(@sqlsrv_fetch_array($this->result))) {

-                    $this->offset_count = $this->limit;

-                    return false;

-                }

-            }

-        }

-        return MDB2_OK;

-    }*/

-

-    // }}}

-	function array_to_obj($array, &$obj) {

-		foreach ($array as $key => $value) {

-			if (is_array($value)) {

-				$obj->$key = new stdClass();

-				array_to_obj($value, $obj->$key);

-			} else {

-				$obj->$key = $value;

-			}

-		}

-		return $obj;

-	} 

-    // {{{ fetchRow()

-

-    /**

-     * Fetch a row and insert the data into an existing array.

-     *

-     * @param int       $fetchmode  how the array data should be indexed

-     * @param int    $rownum    number of the row where the data can be found

-     * @return int data array on success, a MDB2 error on failure

-     * @access public

-     */

-    function fetchRow($fetchmode = MDB2_FETCHMODE_DEFAULT, $rownum = null)

-    {

-        if (!$this->result) {

-            return $this->db->raiseError(MDB2_ERROR_INVALID, null, null, 'no valid statement given', __FUNCTION__);

-        }

-        if (($this->limit && $this->rownum >= $this->limit) || ($this->cursor >= $this->rowcnt || $this->rowcnt == 0)) {

-            return null;

-        }

-        if (null !== $rownum) {

-            $seek = $this->seek($rownum);

-            if (PEAR::isError($seek)) {

-                return $seek;

-            }

-        }

-		

-		$row = false;

-		$arrNum = array();

-		if ($fetchmode == MDB2_FETCHMODE_ORDERED || $fetchmode == MDB2_FETCHMODE_DEFAULT) {

-			foreach ($this->rows[$this->cursor] as $key=>$value) {

-				$arrNum[] = $value;

-			}

-		}

-		switch($fetchmode) {

-			case MDB2_FETCHMODE_ASSOC:

-				$row = $this->rows[$this->cursor];	break;

-			case MDB2_FETCHMODE_ORDERED:

-				$row = $arrNum;	break;

-			case MDB2_FETCHMODE_OBJECT:

-				$row = $this->array_to_obj($this->rows[$this->cursor],$o = new $this->db->options['fetch_class']); break;

-			case MDB2_FETCHMODE_DEFAULT:

-			default:

-			$row = $this->rows[$this->cursor] + $arrNum; break;

-		} 

-		$this->cursor++;

-		

-		/*

-        if ($fetchmode == MDB2_FETCHMODE_OBJECT) {

-			$row = sqlsrv_fetch_object($this->result,$this->db->options['fetch_class']);

-		} else {

-		switch($fetchmode) {

-			case MDB2_FETCHMODE_ASSOC: $fetchmode = SQLSRV_FETCH_ASSOC; break;

-			case MDB2_FETCHMODE_ORDERED: $fetchmode = SQLSRV_FETCH_NUMERIC; break;

-			case MDB2_FETCHMODE_DEFAULT: 

-			default: 

-				$fetchmode = SQLSRV_FETCH_BOTH;

-		}

-			$row = sqlsrv_fetch_array($this->result,$fetchmode);

-		}

-		foreach ($row as $key=>$value) {

-			if (is_object($value) && method_exists($value, 'format')) {//is DateTime object

-				$row[$key] = $value->format("Y-m-d H:i:s");

-			}

-		}*/

-		

-        /*if ($fetchmode == MDB2_FETCHMODE_DEFAULT) {

-            $fetchmode = $this->db->fetchmode;

-        }*/

-        if ($fetchmode == MDB2_FETCHMODE_ASSOC && is_array($row) && $this->db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

-            $row = array_change_key_case($row, $this->db->options['field_case']);

-        }

-        if (!$row) {

-            if (false === $this->result) {

-                $err = $this->db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,

-                    'resultset has already been freed', __FUNCTION__);

-                return $err;

-            }

-            return null;

-        }

-        $mode = $this->db->options['portability'] & MDB2_PORTABILITY_EMPTY_TO_NULL;

-        $rtrim = false;

-        if ($this->db->options['portability'] & MDB2_PORTABILITY_RTRIM) {

-            if (empty($this->types)) {

-                $mode += MDB2_PORTABILITY_RTRIM;

-            } else {

-                $rtrim = true;

-            }

-        }

-        if ($mode) {

-            $this->db->_fixResultArrayValues($row, $mode);

-        }

-        if (!empty($this->types)) {

-            $row = $this->db->datatype->convertResultRow($this->types, $row, $rtrim);

-        }

-        if (!empty($this->values)) {

-            $this->_assignBindColumns($row);

-        }

-        ++$this->rownum;

-        return $row;

-    }

-

-    // }}}

-    // {{{ _getColumnNames()

-

-    /**

-     * Retrieve the names of columns returned by the DBMS in a query result.

-     *

-     * @return  mixed   Array variable that holds the names of columns as keys

-     *                  or an MDB2 error on failure.

-     *                  Some DBMS may not return any columns when the result set

-     *                  does not contain any rows.

-     * @access private

-     */

-    function _getColumnNames()

-    {

-		if (!$this->result) {

-            return $this->db->raiseError(MDB2_ERROR_INVALID, null, null, 'no valid statement given', __FUNCTION__);

-        }

-        $columns = array();

-		foreach ($this->fieldMeta as $col) {

-			$columns[$col['Name']] = $col['Type'];

-		}

-        if ($this->db->options['portability'] & MDB2_PORTABILITY_FIX_CASE) {

-            $columns = array_change_key_case($columns, $this->db->options['field_case']);

-        }

-        return $columns;

-    }

-

-    // }}}

-    // {{{ numCols()

-

-    /**

-     * Count the number of columns returned by the DBMS in a query result.

-     *

-     * @return mixed integer value with the number of columns, a MDB2 error

-     *      on failure

-     * @access public

-     */

-    function numCols()

-    {

-        if (!$this->result) {

-            return $this->db->raiseError(MDB2_ERROR_INVALID, null, null, 'no valid statement given', __FUNCTION__);

-        }

-        $cols = $this->numFields;

-        if (!$cols) {

-            if (false === $this->result) {

-                return $this->db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,

-                    'resultset has already been freed', __FUNCTION__);

-            }

-            if (null === $this->result) {

-                return count($this->types);

-            }

-            return $this->db->raiseError(null, null, null,

-                'Could not get column count', __FUNCTION__);

-        }

-        return $cols;

-    }

-

-    // }}}

-    // {{{ nextResult()

-

-    /**

-     * Move the internal result pointer to the next available result

-     *

-     * @return true on success, false if there is no more result set or an error object on failure

-     * @access public

-     */

-    function nextResult()

-    {

-        if (false === $this->result) {

-            return $this->db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,

-                'resultset has already been freed', __FUNCTION__);

-        }

-        if (null === $this->result) {

-            return false;

-        }

-        $ret = sqlsrv_next_result($this->result);

-		if ($ret) {

-			$this->cursor = 0;

-			$this->rows = array();

-			$this->numFields = sqlsrv_num_fields($this->result);

-			$this->fieldMeta = sqlsrv_field_metadata($this->result);

-			$this->numRowsAffected = sqlsrv_rows_affected($this->result);

-			while ($row = sqlsrv_fetch_array($this->result, SQLSRV_FETCH_ASSOC)) {

-				if ($row !== null) {

-					if ($this->offset && $this->offset_count < $this->offset) {

-						$this->offset_count++;

-						continue;

-					}

-					foreach ($row as $k => $v) {

-						if (is_object($v) && method_exists($v, 'format')) {//DateTime Object

-							//$v->setTimezone(new DateTimeZone('GMT'));//TS_ISO_8601 with a trailing 'Z' is GMT

-							$row[$k] = $v->format("Y-m-d H:i:s");

-						}

-					}

-					$this->rows[] = $row;//read results into memory, cursors are not supported

-				}

-			}

-			$this->rowcnt = count($this->rows);		

-		}

-		return $ret;

-    }

-

-    // }}}

-    // {{{ free()

-

-    /**

-     * Free the internal resources associated with $result.

-     *

-     * @return boolean true on success, false if $result is invalid

-     * @access public

-     */

-    function free()

-    {

-        if (is_resource($this->result) && $this->db->connection) {

-            if (!@sqlsrv_free_stmt($this->result)) {

-                return $this->db->raiseError(null, null, null,

-                    'Could not free result', __FUNCTION__);

-            }

-        }

-        $this->result = false;

-        return MDB2_OK;

-    }

-

-    // }}}

-    // {{{ function rowCount()

-    /**

-     * Returns the actual row number that was last fetched (count from 0)

-     * @return  int

-     *

-     * @access  public

-     */

-    function rowCount()

-    {

-        return $this->cursor;

-}

-

-// }}}

-    // {{{ function numRows()

-

-/**

-     * Returns the number of rows in a result object

-     *

-     * @return  mixed   MDB2 Error Object or the number of rows

- *

-     * @access  public

- */

-    function numRows()

-{

-        return $this->rowcnt;

-    }

-

-    // }}}

-    // {{{ function seek($rownum = 0)

-

-    /**

-     * Seek to a specific row in a result set

-     *

-     * @param   int     number of the row where the data can be found

-     *

-     * @return mixed MDB2_OK on success, a MDB2 error on failure

-     *

-     * @access public

-     */

-    function seek($rownum = 0)

-    {

-        $this->cursor = min($rownum, $this->rowcnt);

-                return MDB2_OK;

-            }

-

-    // }}}

-    }

-

-    // }}}

-// {{{ class MDB2_BufferedResult_mssql

-

-/**

- * MDB2 MSSQL Server buffered result driver

- *

- * @package MDB2

- * @category Database

- * @author  Frank M. Kromann <frank@kromann.info>

- */

-class MDB2_BufferedResult_sqlsrv extends MDB2_Result_sqlsrv

-{

-    // {{{ valid()

-

-    /**

-     * Check if the end of the result set has been reached

-     *

-     * @return mixed true or false on sucess, a MDB2 error on failure

-     * @access public

-     */

-    function valid()

-    {

-        $numrows = $this->numRows();

-        if (PEAR::isError($numrows)) {

-            return $numrows;

-        }

-        return $this->rownum < ($numrows - 1);

-    }

-

-    // }}}

-

-}

-

-// }}}

-// {{{ MDB2_Statement_mssql

-

-/**

- * MDB2 MSSQL Server statement driver

- *

- * @package MDB2

- * @category Database

- * @author  Frank M. Kromann <frank@kromann.info>

- */

-class MDB2_Statement_sqlsrv extends MDB2_Statement_Common

-{

-

-}

-

-// }}}

-

-?>