- Add support for MDB2's 'sqlsrv' driver (#1486395)

1 files changed, 720 insertions, 720 deletions

diff --git a/program/lib/MDB2/Extended.php b/program/lib/MDB2/Extended.php
index 7772c58b6..29de0a75b 100644
--- a/program/lib/MDB2/Extended.php
+++ b/program/lib/MDB2/Extended.php
@@ -1,721 +1,721 @@
-<?php

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

-// | PHP versions 4 and 5                                                 |

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

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

-// | Stig. S. Bakken, Lukas Smith                                         |

-// | 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: Lukas Smith <smith@pooteeweet.org>                           |

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

-//

-// $Id: Extended.php,v 1.60 2007/11/28 19:49:34 quipo Exp $

-

-/**

- * @package  MDB2

- * @category Database

- * @author   Lukas Smith <smith@pooteeweet.org>

- */

-

-/**

- * Used by autoPrepare()

- */

-define('MDB2_AUTOQUERY_INSERT', 1);

-define('MDB2_AUTOQUERY_UPDATE', 2);

-define('MDB2_AUTOQUERY_DELETE', 3);

-define('MDB2_AUTOQUERY_SELECT', 4);

-

-/**

- * MDB2_Extended: class which adds several high level methods to MDB2

- *

- * @package MDB2

- * @category Database

- * @author Lukas Smith <smith@pooteeweet.org>

- */

-class MDB2_Extended extends MDB2_Module_Common

-{

-    // {{{ autoPrepare()

-

-    /**

-     * Generate an insert, update or delete query and call prepare() on it

-     *

-     * @param string table

-     * @param array the fields names

-     * @param int type of query to build

-     *                          MDB2_AUTOQUERY_INSERT

-     *                          MDB2_AUTOQUERY_UPDATE

-     *                          MDB2_AUTOQUERY_DELETE

-     *                          MDB2_AUTOQUERY_SELECT

-     * @param string (in case of update and delete queries, this string will be put after the sql WHERE statement)

-     * @param array that contains the types of the placeholders

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

-     *                        the result set or MDB2_PREPARE_RESULT, if set to

-     *                        MDB2_PREPARE_MANIP the query is handled as a manipulation query

-     *

-     * @return resource handle for the query

-     * @see buildManipSQL

-     * @access public

-     */

-    function autoPrepare($table, $table_fields, $mode = MDB2_AUTOQUERY_INSERT,

-        $where = false, $types = null, $result_types = MDB2_PREPARE_MANIP)

-    {

-        $query = $this->buildManipSQL($table, $table_fields, $mode, $where);

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

-            return $query;

-        }

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-        $lobs = array();

-        foreach ((array)$types as $param => $type) {

-            if (($type == 'clob') || ($type == 'blob')) {

-                $lobs[$param] = $table_fields[$param];

-            }

-        }

-        return $db->prepare($query, $types, $result_types, $lobs);

-    }

-

-    // }}}

-    // {{{ autoExecute()

-

-    /**

-     * Generate an insert, update or delete query and call prepare() and execute() on it

-     *

-     * @param string name of the table

-     * @param array assoc ($key=>$value) where $key is a field name and $value its value

-     * @param int type of query to build

-     *                          MDB2_AUTOQUERY_INSERT

-     *                          MDB2_AUTOQUERY_UPDATE

-     *                          MDB2_AUTOQUERY_DELETE

-     *                          MDB2_AUTOQUERY_SELECT

-     * @param string (in case of update and delete queries, this string will be put after the sql WHERE statement)

-     * @param array that contains the types of the placeholders

-     * @param string which specifies which result class to use

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

-     *                        the result set or MDB2_PREPARE_RESULT, if set to

-     *                        MDB2_PREPARE_MANIP the query is handled as a manipulation query

-     *

-     * @return bool|MDB2_Error true on success, a MDB2 error on failure

-     * @see buildManipSQL

-     * @see autoPrepare

-     * @access public

-    */

-    function &autoExecute($table, $fields_values, $mode = MDB2_AUTOQUERY_INSERT,

-        $where = false, $types = null, $result_class = true, $result_types = MDB2_PREPARE_MANIP)

-    {

-        $fields_values = (array)$fields_values;

-        if ($mode == MDB2_AUTOQUERY_SELECT) {

-            if (is_array($result_types)) {

-                $keys = array_keys($result_types);

-            } elseif (!empty($fields_values)) {

-                $keys = $fields_values;

-            } else {

-                $keys = array();

-            }

-        } else {

-            $keys = array_keys($fields_values);

-        }

-        $params = array_values($fields_values);

-        if (empty($params)) {

-            $query = $this->buildManipSQL($table, $keys, $mode, $where);

-

-            $db =& $this->getDBInstance();

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

-                return $db;

-            }

-            if ($mode == MDB2_AUTOQUERY_SELECT) {

-                $result =& $db->query($query, $result_types, $result_class);

-            } else {

-                $result = $db->exec($query);

-            }

-        } else {

-            $stmt = $this->autoPrepare($table, $keys, $mode, $where, $types, $result_types);

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

-                return $stmt;

-            }

-            $result =& $stmt->execute($params, $result_class);

-            $stmt->free();

-        }

-        return $result;

-    }

-

-    // }}}

-    // {{{ buildManipSQL()

-

-    /**

-     * Make automaticaly an sql query for prepare()

-     *

-     * Example : buildManipSQL('table_sql', array('field1', 'field2', 'field3'), MDB2_AUTOQUERY_INSERT)

-     *           will return the string : INSERT INTO table_sql (field1,field2,field3) VALUES (?,?,?)

-     * NB : - This belongs more to a SQL Builder class, but this is a simple facility

-     *      - Be carefull ! If you don't give a $where param with an UPDATE/DELETE query, all

-     *        the records of the table will be updated/deleted !

-     *

-     * @param string name of the table

-     * @param ordered array containing the fields names

-     * @param int type of query to build

-     *                          MDB2_AUTOQUERY_INSERT

-     *                          MDB2_AUTOQUERY_UPDATE

-     *                          MDB2_AUTOQUERY_DELETE

-     *                          MDB2_AUTOQUERY_SELECT

-     * @param string (in case of update and delete queries, this string will be put after the sql WHERE statement)

-     *

-     * @return string sql query for prepare()

-     * @access public

-     */

-    function buildManipSQL($table, $table_fields, $mode, $where = false)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        if ($db->options['quote_identifier']) {

-            $table = $db->quoteIdentifier($table);

-        }

-

-        if (!empty($table_fields) && $db->options['quote_identifier']) {

-            foreach ($table_fields as $key => $field) {

-                $table_fields[$key] = $db->quoteIdentifier($field);

-            }

-        }

-

-        if ($where !== false && !is_null($where)) {

-            if (is_array($where)) {

-                $where = implode(' AND ', $where);

-            }

-            $where = ' WHERE '.$where;

-        }

-

-        switch ($mode) {

-        case MDB2_AUTOQUERY_INSERT:

-            if (empty($table_fields)) {

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

-                'Insert requires table fields', __FUNCTION__);

-            }

-            $cols = implode(', ', $table_fields);

-            $values = '?'.str_repeat(', ?', (count($table_fields) - 1));

-            return 'INSERT INTO '.$table.' ('.$cols.') VALUES ('.$values.')';

-            break;

-        case MDB2_AUTOQUERY_UPDATE:

-            if (empty($table_fields)) {

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

-                'Update requires table fields', __FUNCTION__);

-            }

-            $set = implode(' = ?, ', $table_fields).' = ?';

-            $sql = 'UPDATE '.$table.' SET '.$set.$where;

-            return $sql;

-            break;

-        case MDB2_AUTOQUERY_DELETE:

-            $sql = 'DELETE FROM '.$table.$where;

-            return $sql;

-            break;

-        case MDB2_AUTOQUERY_SELECT:

-            $cols = !empty($table_fields) ? implode(', ', $table_fields) : '*';

-            $sql = 'SELECT '.$cols.' FROM '.$table.$where;

-            return $sql;

-            break;

-        }

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

-                'Non existant mode', __FUNCTION__);

-    }

-

-    // }}}

-    // {{{ limitQuery()

-

-    /**

-     * Generates a limited query

-     *

-     * @param string query

-     * @param array that contains the types of the columns in the result set

-     * @param integer the numbers of rows to fetch

-     * @param integer the row to start to fetching

-     * @param string which specifies which result class to use

-     * @param mixed   string which specifies which class to wrap results in

-     *

-     * @return MDB2_Result|MDB2_Error result set on success, a MDB2 error on failure

-     * @access public

-     */

-    function &limitQuery($query, $types, $limit, $offset = 0, $result_class = true,

-        $result_wrap_class = false)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        $result = $db->setLimit($limit, $offset);

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

-            return $result;

-        }

-        $result =& $db->query($query, $types, $result_class, $result_wrap_class);

-        return $result;

-    }

-

-    // }}}

-    // {{{ execParam()

-

-    /**

-     * Execute a parameterized DML statement.

-     *

-     * @param string the SQL query

-     * @param array if supplied, prepare/execute will be used

-     *       with this array as execute parameters

-     * @param array that contains the types of the values defined in $params

-     *

-     * @return int|MDB2_Error affected rows on success, a MDB2 error on failure

-     * @access public

-     */

-    function execParam($query, $params = array(), $param_types = null)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        settype($params, 'array');

-        if (empty($params)) {

-            return $db->exec($query);

-        }

-

-        $stmt = $db->prepare($query, $param_types, MDB2_PREPARE_MANIP);

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

-            return $stmt;

-        }

-

-        $result = $stmt->execute($params);

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

-            return $result;

-        }

-

-        $stmt->free();

-        return $result;

-    }

-

-    // }}}

-    // {{{ getOne()

-

-    /**

-     * Fetch the first column of the first row of data returned from a query.

-     * Takes care of doing the query and freeing the results when finished.

-     *

-     * @param string the SQL query

-     * @param string that contains the type of the column in the result set

-     * @param array if supplied, prepare/execute will be used

-     *       with this array as execute parameters

-     * @param array that contains the types of the values defined in $params

-     * @param int|string which column to return

-     *

-     * @return scalar|MDB2_Error data on success, a MDB2 error on failure

-     * @access public

-     */

-    function getOne($query, $type = null, $params = array(),

-        $param_types = null, $colnum = 0)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        settype($params, 'array');

-        settype($type, 'array');

-        if (empty($params)) {

-            return $db->queryOne($query, $type, $colnum);

-        }

-

-        $stmt = $db->prepare($query, $param_types, $type);

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

-            return $stmt;

-        }

-

-        $result = $stmt->execute($params);

-        if (!MDB2::isResultCommon($result)) {

-            return $result;

-        }

-

-        $one = $result->fetchOne($colnum);

-        $stmt->free();

-        $result->free();

-        return $one;

-    }

-

-    // }}}

-    // {{{ getRow()

-

-    /**

-     * Fetch the first row of data returned from a query.  Takes care

-     * of doing the query and freeing the results when finished.

-     *

-     * @param string the SQL query

-     * @param array that contains the types of the columns in the result set

-     * @param array if supplied, prepare/execute will be used

-     *       with this array as execute parameters

-     * @param array that contains the types of the values defined in $params

-     * @param int the fetch mode to use

-     *

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

-     * @access public

-     */

-    function getRow($query, $types = null, $params = array(),

-        $param_types = null, $fetchmode = MDB2_FETCHMODE_DEFAULT)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        settype($params, 'array');

-        if (empty($params)) {

-            return $db->queryRow($query, $types, $fetchmode);

-        }

-

-        $stmt = $db->prepare($query, $param_types, $types);

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

-            return $stmt;

-        }

-

-        $result = $stmt->execute($params);

-        if (!MDB2::isResultCommon($result)) {

-            return $result;

-        }

-

-        $row = $result->fetchRow($fetchmode);

-        $stmt->free();

-        $result->free();

-        return $row;

-    }

-

-    // }}}

-    // {{{ getCol()

-

-    /**

-     * Fetch a single column from a result set and return it as an

-     * indexed array.

-     *

-     * @param string the SQL query

-     * @param string that contains the type of the column in the result set

-     * @param array if supplied, prepare/execute will be used

-     *       with this array as execute parameters

-     * @param array that contains the types of the values defined in $params

-     * @param int|string which column to return

-     *

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

-     * @access public

-     */

-    function getCol($query, $type = null, $params = array(),

-        $param_types = null, $colnum = 0)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        settype($params, 'array');

-        settype($type, 'array');

-        if (empty($params)) {

-            return $db->queryCol($query, $type, $colnum);

-        }

-

-        $stmt = $db->prepare($query, $param_types, $type);

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

-            return $stmt;

-        }

-

-        $result = $stmt->execute($params);

-        if (!MDB2::isResultCommon($result)) {

-            return $result;

-        }

-

-        $col = $result->fetchCol($colnum);

-        $stmt->free();

-        $result->free();

-        return $col;

-    }

-

-    // }}}

-    // {{{ getAll()

-

-    /**

-     * Fetch all the rows returned from a query.

-     *

-     * @param string the SQL query

-     * @param array that contains the types of the columns in the result set

-     * @param array if supplied, prepare/execute will be used

-     *       with this array as execute parameters

-     * @param array that contains the types of the values defined in $params

-     * @param int the fetch mode to use

-     * @param bool if set to true, the $all will have the first

-     *       column as its first dimension

-     * @param bool $force_array used only when the query returns exactly

-     *       two columns. If true, the values of the returned array will be

-     *       one-element arrays instead of scalars.

-     * @param bool $group if true, the values of the returned array is

-     *       wrapped in another array.  If the same key value (in the first

-     *       column) repeats itself, the values will be appended to this array

-     *       instead of overwriting the existing values.

-     *

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

-     * @access public

-     */

-    function getAll($query, $types = null, $params = array(),

-        $param_types = null, $fetchmode = MDB2_FETCHMODE_DEFAULT,

-        $rekey = false, $force_array = false, $group = false)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        settype($params, 'array');

-        if (empty($params)) {

-            return $db->queryAll($query, $types, $fetchmode, $rekey, $force_array, $group);

-        }

-

-        $stmt = $db->prepare($query, $param_types, $types);

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

-            return $stmt;

-        }

-

-        $result = $stmt->execute($params);

-        if (!MDB2::isResultCommon($result)) {

-            return $result;

-        }

-

-        $all = $result->fetchAll($fetchmode, $rekey, $force_array, $group);

-        $stmt->free();

-        $result->free();

-        return $all;

-    }

-

-    // }}}

-    // {{{ getAssoc()

-

-    /**

-     * Fetch the entire result set of a query and return it as an

-     * associative array using the first column as the key.

-     *

-     * If the result set contains more than two columns, the value

-     * will be an array of the values from column 2-n.  If the result

-     * set contains only two columns, the returned value will be a

-     * scalar with the value of the second column (unless forced to an

-     * array with the $force_array parameter).  A MDB2 error code is

-     * returned on errors.  If the result set contains fewer than two

-     * columns, a MDB2_ERROR_TRUNCATED error is returned.

-     *

-     * For example, if the table 'mytable' contains:

-     * <pre>

-     *   ID      TEXT       DATE

-     * --------------------------------

-     *   1       'one'      944679408

-     *   2       'two'      944679408

-     *   3       'three'    944679408

-     * </pre>

-     * Then the call getAssoc('SELECT id,text FROM mytable') returns:

-     * <pre>

-     *    array(

-     *      '1' => 'one',

-     *      '2' => 'two',

-     *      '3' => 'three',

-     *    )

-     * </pre>

-     * ...while the call getAssoc('SELECT id,text,date FROM mytable') returns:

-     * <pre>

-     *    array(

-     *      '1' => array('one', '944679408'),

-     *      '2' => array('two', '944679408'),

-     *      '3' => array('three', '944679408')

-     *    )

-     * </pre>

-     *

-     * If the more than one row occurs with the same value in the

-     * first column, the last row overwrites all previous ones by

-     * default.  Use the $group parameter if you don't want to

-     * overwrite like this.  Example:

-     * <pre>

-     * getAssoc('SELECT category,id,name FROM mytable', null, null

-     *           MDB2_FETCHMODE_ASSOC, false, true) returns:

-     *    array(

-     *      '1' => array(array('id' => '4', 'name' => 'number four'),

-     *                   array('id' => '6', 'name' => 'number six')

-     *             ),

-     *      '9' => array(array('id' => '4', 'name' => 'number four'),

-     *                   array('id' => '6', 'name' => 'number six')

-     *             )

-     *    )

-     * </pre>

-     *

-     * Keep in mind that database functions in PHP usually return string

-     * values for results regardless of the database's internal type.

-     *

-     * @param string the SQL query

-     * @param array that contains the types of the columns in the result set

-     * @param array if supplied, prepare/execute will be used

-     *       with this array as execute parameters

-     * @param array that contains the types of the values defined in $params

-     * @param bool $force_array used only when the query returns

-     * exactly two columns.  If TRUE, the values of the returned array

-     * will be one-element arrays instead of scalars.

-     * @param bool $group if TRUE, the values of the returned array

-     *       is wrapped in another array.  If the same key value (in the first

-     *       column) repeats itself, the values will be appended to this array

-     *       instead of overwriting the existing values.

-     *

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

-     * @access public

-     */

-    function getAssoc($query, $types = null, $params = array(), $param_types = null,

-        $fetchmode = MDB2_FETCHMODE_DEFAULT, $force_array = false, $group = false)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        settype($params, 'array');

-        if (empty($params)) {

-            return $db->queryAll($query, $types, $fetchmode, true, $force_array, $group);

-        }

-

-        $stmt = $db->prepare($query, $param_types, $types);

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

-            return $stmt;

-        }

-

-        $result = $stmt->execute($params);

-        if (!MDB2::isResultCommon($result)) {

-            return $result;

-        }

-

-        $all = $result->fetchAll($fetchmode, true, $force_array, $group);

-        $stmt->free();

-        $result->free();

-        return $all;

-    }

-

-    // }}}

-    // {{{ executeMultiple()

-

-    /**

-     * This function does several execute() calls on the same statement handle.

-     * $params must be an array indexed numerically from 0, one execute call is

-     * done for every 'row' in the array.

-     *

-     * If an error occurs during execute(), executeMultiple() does not execute

-     * the unfinished rows, but rather returns that error.

-     *

-     * @param resource query handle from prepare()

-     * @param array numeric array containing the data to insert into the query

-     *

-     * @return bool|MDB2_Error true on success, a MDB2 error on failure

-     * @access public

-     * @see prepare(), execute()

-     */

-    function executeMultiple(&$stmt, $params = null)

-    {

-        for ($i = 0, $j = count($params); $i < $j; $i++) {

-            $result = $stmt->execute($params[$i]);

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

-                return $result;

-            }

-        }

-        return MDB2_OK;

-    }

-

-    // }}}

-    // {{{ getBeforeID()

-

-    /**

-     * Returns the next free id of a sequence if the RDBMS

-     * does not support auto increment

-     *

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

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

-     * @param bool when true the sequence is automatic created, if it not exists

-     * @param bool if the returned value should be quoted

-     *

-     * @return int|MDB2_Error id on success, a MDB2 error on failure

-     * @access public

-     */

-    function getBeforeID($table, $field = null, $ondemand = true, $quote = true)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        if ($db->supports('auto_increment') !== true) {

-            $seq = $table.(empty($field) ? '' : '_'.$field);

-            $id = $db->nextID($seq, $ondemand);

-            if (!$quote || PEAR::isError($id)) {

-                return $id;

-            }

-            return $db->quote($id, 'integer');

-        } elseif (!$quote) {

-            return null;

-        }

-        return 'NULL';

-    }

-

-    // }}}

-    // {{{ getAfterID()

-

-    /**

-     * Returns the autoincrement ID if supported or $id

-     *

-     * @param mixed value as returned by getBeforeId()

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

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

-     *

-     * @return int|MDB2_Error id on success, a MDB2 error on failure

-     * @access public

-     */

-    function getAfterID($id, $table, $field = null)

-    {

-        $db =& $this->getDBInstance();

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

-            return $db;

-        }

-

-        if ($db->supports('auto_increment') !== true) {

-            return $id;

-        }

-        return $db->lastInsertID($table, $field);

-    }

-

-    // }}}

-}

+<?php
+// +----------------------------------------------------------------------+
+// | PHP versions 4 and 5                                                 |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 1998-2006 Manuel Lemos, Tomas V.V.Cox,                 |
+// | Stig. S. Bakken, Lukas Smith                                         |
+// | 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: Lukas Smith <smith@pooteeweet.org>                           |
+// +----------------------------------------------------------------------+
+//
+// $Id: Extended.php 292715 2009-12-28 14:06:34Z quipo $
+
+/**
+ * @package  MDB2
+ * @category Database
+ * @author   Lukas Smith <smith@pooteeweet.org>
+ */
+
+/**
+ * Used by autoPrepare()
+ */
+define('MDB2_AUTOQUERY_INSERT', 1);
+define('MDB2_AUTOQUERY_UPDATE', 2);
+define('MDB2_AUTOQUERY_DELETE', 3);
+define('MDB2_AUTOQUERY_SELECT', 4);
+
+/**
+ * MDB2_Extended: class which adds several high level methods to MDB2
+ *
+ * @package MDB2
+ * @category Database
+ * @author Lukas Smith <smith@pooteeweet.org>
+ */
+class MDB2_Extended extends MDB2_Module_Common
+{
+    // {{{ autoPrepare()
+
+    /**
+     * Generate an insert, update or delete query and call prepare() on it
+     *
+     * @param string table
+     * @param array the fields names
+     * @param int type of query to build
+     *                          MDB2_AUTOQUERY_INSERT
+     *                          MDB2_AUTOQUERY_UPDATE
+     *                          MDB2_AUTOQUERY_DELETE
+     *                          MDB2_AUTOQUERY_SELECT
+     * @param string (in case of update and delete queries, this string will be put after the sql WHERE statement)
+     * @param array that contains the types of the placeholders
+     * @param mixed array that contains the types of the columns in
+     *                        the result set or MDB2_PREPARE_RESULT, if set to
+     *                        MDB2_PREPARE_MANIP the query is handled as a manipulation query
+     *
+     * @return resource handle for the query
+     * @see buildManipSQL
+     * @access public
+     */
+    function autoPrepare($table, $table_fields, $mode = MDB2_AUTOQUERY_INSERT,
+        $where = false, $types = null, $result_types = MDB2_PREPARE_MANIP)
+    {
+        $query = $this->buildManipSQL($table, $table_fields, $mode, $where);
+        if (PEAR::isError($query)) {
+            return $query;
+        }
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+        $lobs = array();
+        foreach ((array)$types as $param => $type) {
+            if (($type == 'clob') || ($type == 'blob')) {
+                $lobs[$param] = $table_fields[$param];
+            }
+        }
+        return $db->prepare($query, $types, $result_types, $lobs);
+    }
+
+    // }}}
+    // {{{ autoExecute()
+
+    /**
+     * Generate an insert, update or delete query and call prepare() and execute() on it
+     *
+     * @param string name of the table
+     * @param array assoc ($key=>$value) where $key is a field name and $value its value
+     * @param int type of query to build
+     *                          MDB2_AUTOQUERY_INSERT
+     *                          MDB2_AUTOQUERY_UPDATE
+     *                          MDB2_AUTOQUERY_DELETE
+     *                          MDB2_AUTOQUERY_SELECT
+     * @param string (in case of update and delete queries, this string will be put after the sql WHERE statement)
+     * @param array that contains the types of the placeholders
+     * @param string which specifies which result class to use
+     * @param mixed  array that contains the types of the columns in
+     *                        the result set or MDB2_PREPARE_RESULT, if set to
+     *                        MDB2_PREPARE_MANIP the query is handled as a manipulation query
+     *
+     * @return bool|MDB2_Error true on success, a MDB2 error on failure
+     * @see buildManipSQL
+     * @see autoPrepare
+     * @access public
+    */
+    function &autoExecute($table, $fields_values, $mode = MDB2_AUTOQUERY_INSERT,
+        $where = false, $types = null, $result_class = true, $result_types = MDB2_PREPARE_MANIP)
+    {
+        $fields_values = (array)$fields_values;
+        if ($mode == MDB2_AUTOQUERY_SELECT) {
+            if (is_array($result_types)) {
+                $keys = array_keys($result_types);
+            } elseif (!empty($fields_values)) {
+                $keys = $fields_values;
+            } else {
+                $keys = array();
+            }
+        } else {
+            $keys = array_keys($fields_values);
+        }
+        $params = array_values($fields_values);
+        if (empty($params)) {
+            $query = $this->buildManipSQL($table, $keys, $mode, $where);
+
+            $db =& $this->getDBInstance();
+            if (PEAR::isError($db)) {
+                return $db;
+            }
+            if ($mode == MDB2_AUTOQUERY_SELECT) {
+                $result =& $db->query($query, $result_types, $result_class);
+            } else {
+                $result = $db->exec($query);
+            }
+        } else {
+            $stmt = $this->autoPrepare($table, $keys, $mode, $where, $types, $result_types);
+            if (PEAR::isError($stmt)) {
+                return $stmt;
+            }
+            $result =& $stmt->execute($params, $result_class);
+            $stmt->free();
+        }
+        return $result;
+    }
+
+    // }}}
+    // {{{ buildManipSQL()
+
+    /**
+     * Make automaticaly an sql query for prepare()
+     *
+     * Example : buildManipSQL('table_sql', array('field1', 'field2', 'field3'), MDB2_AUTOQUERY_INSERT)
+     *           will return the string : INSERT INTO table_sql (field1,field2,field3) VALUES (?,?,?)
+     * NB : - This belongs more to a SQL Builder class, but this is a simple facility
+     *      - Be carefull ! If you don't give a $where param with an UPDATE/DELETE query, all
+     *        the records of the table will be updated/deleted !
+     *
+     * @param string name of the table
+     * @param ordered array containing the fields names
+     * @param int type of query to build
+     *                          MDB2_AUTOQUERY_INSERT
+     *                          MDB2_AUTOQUERY_UPDATE
+     *                          MDB2_AUTOQUERY_DELETE
+     *                          MDB2_AUTOQUERY_SELECT
+     * @param string (in case of update and delete queries, this string will be put after the sql WHERE statement)
+     *
+     * @return string sql query for prepare()
+     * @access public
+     */
+    function buildManipSQL($table, $table_fields, $mode, $where = false)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        if ($db->options['quote_identifier']) {
+            $table = $db->quoteIdentifier($table);
+        }
+
+        if (!empty($table_fields) && $db->options['quote_identifier']) {
+            foreach ($table_fields as $key => $field) {
+                $table_fields[$key] = $db->quoteIdentifier($field);
+            }
+        }
+
+        if ((false !== $where) && (null !== $where)) {
+            if (is_array($where)) {
+                $where = implode(' AND ', $where);
+            }
+            $where = ' WHERE '.$where;
+        }
+
+        switch ($mode) {
+        case MDB2_AUTOQUERY_INSERT:
+            if (empty($table_fields)) {
+                return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,
+                'Insert requires table fields', __FUNCTION__);
+            }
+            $cols = implode(', ', $table_fields);
+            $values = '?'.str_repeat(', ?', (count($table_fields) - 1));
+            return 'INSERT INTO '.$table.' ('.$cols.') VALUES ('.$values.')';
+            break;
+        case MDB2_AUTOQUERY_UPDATE:
+            if (empty($table_fields)) {
+                return $db->raiseError(MDB2_ERROR_NEED_MORE_DATA, null, null,
+                'Update requires table fields', __FUNCTION__);
+            }
+            $set = implode(' = ?, ', $table_fields).' = ?';
+            $sql = 'UPDATE '.$table.' SET '.$set.$where;
+            return $sql;
+            break;
+        case MDB2_AUTOQUERY_DELETE:
+            $sql = 'DELETE FROM '.$table.$where;
+            return $sql;
+            break;
+        case MDB2_AUTOQUERY_SELECT:
+            $cols = !empty($table_fields) ? implode(', ', $table_fields) : '*';
+            $sql = 'SELECT '.$cols.' FROM '.$table.$where;
+            return $sql;
+            break;
+        }
+        return $db->raiseError(MDB2_ERROR_SYNTAX, null, null,
+                'Non existant mode', __FUNCTION__);
+    }
+
+    // }}}
+    // {{{ limitQuery()
+
+    /**
+     * Generates a limited query
+     *
+     * @param string query
+     * @param array that contains the types of the columns in the result set
+     * @param integer the numbers of rows to fetch
+     * @param integer the row to start to fetching
+     * @param string which specifies which result class to use
+     * @param mixed   string which specifies which class to wrap results in
+     *
+     * @return MDB2_Result|MDB2_Error result set on success, a MDB2 error on failure
+     * @access public
+     */
+    function &limitQuery($query, $types, $limit, $offset = 0, $result_class = true,
+        $result_wrap_class = false)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        $result = $db->setLimit($limit, $offset);
+        if (PEAR::isError($result)) {
+            return $result;
+        }
+        $result =& $db->query($query, $types, $result_class, $result_wrap_class);
+        return $result;
+    }
+
+    // }}}
+    // {{{ execParam()
+
+    /**
+     * Execute a parameterized DML statement.
+     *
+     * @param string the SQL query
+     * @param array if supplied, prepare/execute will be used
+     *       with this array as execute parameters
+     * @param array that contains the types of the values defined in $params
+     *
+     * @return int|MDB2_Error affected rows on success, a MDB2 error on failure
+     * @access public
+     */
+    function execParam($query, $params = array(), $param_types = null)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        settype($params, 'array');
+        if (empty($params)) {
+            return $db->exec($query);
+        }
+
+        $stmt = $db->prepare($query, $param_types, MDB2_PREPARE_MANIP);
+        if (PEAR::isError($stmt)) {
+            return $stmt;
+        }
+
+        $result = $stmt->execute($params);
+        if (PEAR::isError($result)) {
+            return $result;
+        }
+
+        $stmt->free();
+        return $result;
+    }
+
+    // }}}
+    // {{{ getOne()
+
+    /**
+     * Fetch the first column of the first row of data returned from a query.
+     * Takes care of doing the query and freeing the results when finished.
+     *
+     * @param string the SQL query
+     * @param string that contains the type of the column in the result set
+     * @param array if supplied, prepare/execute will be used
+     *       with this array as execute parameters
+     * @param array that contains the types of the values defined in $params
+     * @param int|string which column to return
+     *
+     * @return scalar|MDB2_Error data on success, a MDB2 error on failure
+     * @access public
+     */
+    function getOne($query, $type = null, $params = array(),
+        $param_types = null, $colnum = 0)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        settype($params, 'array');
+        settype($type, 'array');
+        if (empty($params)) {
+            return $db->queryOne($query, $type, $colnum);
+        }
+
+        $stmt = $db->prepare($query, $param_types, $type);
+        if (PEAR::isError($stmt)) {
+            return $stmt;
+        }
+
+        $result = $stmt->execute($params);
+        if (!MDB2::isResultCommon($result)) {
+            return $result;
+        }
+
+        $one = $result->fetchOne($colnum);
+        $stmt->free();
+        $result->free();
+        return $one;
+    }
+
+    // }}}
+    // {{{ getRow()
+
+    /**
+     * Fetch the first row of data returned from a query.  Takes care
+     * of doing the query and freeing the results when finished.
+     *
+     * @param string the SQL query
+     * @param array that contains the types of the columns in the result set
+     * @param array if supplied, prepare/execute will be used
+     *       with this array as execute parameters
+     * @param array that contains the types of the values defined in $params
+     * @param int the fetch mode to use
+     *
+     * @return array|MDB2_Error data on success, a MDB2 error on failure
+     * @access public
+     */
+    function getRow($query, $types = null, $params = array(),
+        $param_types = null, $fetchmode = MDB2_FETCHMODE_DEFAULT)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        settype($params, 'array');
+        if (empty($params)) {
+            return $db->queryRow($query, $types, $fetchmode);
+        }
+
+        $stmt = $db->prepare($query, $param_types, $types);
+        if (PEAR::isError($stmt)) {
+            return $stmt;
+        }
+
+        $result = $stmt->execute($params);
+        if (!MDB2::isResultCommon($result)) {
+            return $result;
+        }
+
+        $row = $result->fetchRow($fetchmode);
+        $stmt->free();
+        $result->free();
+        return $row;
+    }
+
+    // }}}
+    // {{{ getCol()
+
+    /**
+     * Fetch a single column from a result set and return it as an
+     * indexed array.
+     *
+     * @param string the SQL query
+     * @param string that contains the type of the column in the result set
+     * @param array if supplied, prepare/execute will be used
+     *       with this array as execute parameters
+     * @param array that contains the types of the values defined in $params
+     * @param int|string which column to return
+     *
+     * @return array|MDB2_Error data on success, a MDB2 error on failure
+     * @access public
+     */
+    function getCol($query, $type = null, $params = array(),
+        $param_types = null, $colnum = 0)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        settype($params, 'array');
+        settype($type, 'array');
+        if (empty($params)) {
+            return $db->queryCol($query, $type, $colnum);
+        }
+
+        $stmt = $db->prepare($query, $param_types, $type);
+        if (PEAR::isError($stmt)) {
+            return $stmt;
+        }
+
+        $result = $stmt->execute($params);
+        if (!MDB2::isResultCommon($result)) {
+            return $result;
+        }
+
+        $col = $result->fetchCol($colnum);
+        $stmt->free();
+        $result->free();
+        return $col;
+    }
+
+    // }}}
+    // {{{ getAll()
+
+    /**
+     * Fetch all the rows returned from a query.
+     *
+     * @param string the SQL query
+     * @param array that contains the types of the columns in the result set
+     * @param array if supplied, prepare/execute will be used
+     *       with this array as execute parameters
+     * @param array that contains the types of the values defined in $params
+     * @param int the fetch mode to use
+     * @param bool if set to true, the $all will have the first
+     *       column as its first dimension
+     * @param bool $force_array used only when the query returns exactly
+     *       two columns. If true, the values of the returned array will be
+     *       one-element arrays instead of scalars.
+     * @param bool $group if true, the values of the returned array is
+     *       wrapped in another array.  If the same key value (in the first
+     *       column) repeats itself, the values will be appended to this array
+     *       instead of overwriting the existing values.
+     *
+     * @return array|MDB2_Error data on success, a MDB2 error on failure
+     * @access public
+     */
+    function getAll($query, $types = null, $params = array(),
+        $param_types = null, $fetchmode = MDB2_FETCHMODE_DEFAULT,
+        $rekey = false, $force_array = false, $group = false)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        settype($params, 'array');
+        if (empty($params)) {
+            return $db->queryAll($query, $types, $fetchmode, $rekey, $force_array, $group);
+        }
+
+        $stmt = $db->prepare($query, $param_types, $types);
+        if (PEAR::isError($stmt)) {
+            return $stmt;
+        }
+
+        $result = $stmt->execute($params);
+        if (!MDB2::isResultCommon($result)) {
+            return $result;
+        }
+
+        $all = $result->fetchAll($fetchmode, $rekey, $force_array, $group);
+        $stmt->free();
+        $result->free();
+        return $all;
+    }
+
+    // }}}
+    // {{{ getAssoc()
+
+    /**
+     * Fetch the entire result set of a query and return it as an
+     * associative array using the first column as the key.
+     *
+     * If the result set contains more than two columns, the value
+     * will be an array of the values from column 2-n.  If the result
+     * set contains only two columns, the returned value will be a
+     * scalar with the value of the second column (unless forced to an
+     * array with the $force_array parameter).  A MDB2 error code is
+     * returned on errors.  If the result set contains fewer than two
+     * columns, a MDB2_ERROR_TRUNCATED error is returned.
+     *
+     * For example, if the table 'mytable' contains:
+     * <pre>
+     *   ID      TEXT       DATE
+     * --------------------------------
+     *   1       'one'      944679408
+     *   2       'two'      944679408
+     *   3       'three'    944679408
+     * </pre>
+     * Then the call getAssoc('SELECT id,text FROM mytable') returns:
+     * <pre>
+     *    array(
+     *      '1' => 'one',
+     *      '2' => 'two',
+     *      '3' => 'three',
+     *    )
+     * </pre>
+     * ...while the call getAssoc('SELECT id,text,date FROM mytable') returns:
+     * <pre>
+     *    array(
+     *      '1' => array('one', '944679408'),
+     *      '2' => array('two', '944679408'),
+     *      '3' => array('three', '944679408')
+     *    )
+     * </pre>
+     *
+     * If the more than one row occurs with the same value in the
+     * first column, the last row overwrites all previous ones by
+     * default.  Use the $group parameter if you don't want to
+     * overwrite like this.  Example:
+     * <pre>
+     * getAssoc('SELECT category,id,name FROM mytable', null, null
+     *           MDB2_FETCHMODE_ASSOC, false, true) returns:
+     *    array(
+     *      '1' => array(array('id' => '4', 'name' => 'number four'),
+     *                   array('id' => '6', 'name' => 'number six')
+     *             ),
+     *      '9' => array(array('id' => '4', 'name' => 'number four'),
+     *                   array('id' => '6', 'name' => 'number six')
+     *             )
+     *    )
+     * </pre>
+     *
+     * Keep in mind that database functions in PHP usually return string
+     * values for results regardless of the database's internal type.
+     *
+     * @param string the SQL query
+     * @param array that contains the types of the columns in the result set
+     * @param array if supplied, prepare/execute will be used
+     *       with this array as execute parameters
+     * @param array that contains the types of the values defined in $params
+     * @param bool $force_array used only when the query returns
+     * exactly two columns.  If TRUE, the values of the returned array
+     * will be one-element arrays instead of scalars.
+     * @param bool $group if TRUE, the values of the returned array
+     *       is wrapped in another array.  If the same key value (in the first
+     *       column) repeats itself, the values will be appended to this array
+     *       instead of overwriting the existing values.
+     *
+     * @return array|MDB2_Error data on success, a MDB2 error on failure
+     * @access public
+     */
+    function getAssoc($query, $types = null, $params = array(), $param_types = null,
+        $fetchmode = MDB2_FETCHMODE_DEFAULT, $force_array = false, $group = false)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        settype($params, 'array');
+        if (empty($params)) {
+            return $db->queryAll($query, $types, $fetchmode, true, $force_array, $group);
+        }
+
+        $stmt = $db->prepare($query, $param_types, $types);
+        if (PEAR::isError($stmt)) {
+            return $stmt;
+        }
+
+        $result = $stmt->execute($params);
+        if (!MDB2::isResultCommon($result)) {
+            return $result;
+        }
+
+        $all = $result->fetchAll($fetchmode, true, $force_array, $group);
+        $stmt->free();
+        $result->free();
+        return $all;
+    }
+
+    // }}}
+    // {{{ executeMultiple()
+
+    /**
+     * This function does several execute() calls on the same statement handle.
+     * $params must be an array indexed numerically from 0, one execute call is
+     * done for every 'row' in the array.
+     *
+     * If an error occurs during execute(), executeMultiple() does not execute
+     * the unfinished rows, but rather returns that error.
+     *
+     * @param resource query handle from prepare()
+     * @param array numeric array containing the data to insert into the query
+     *
+     * @return bool|MDB2_Error true on success, a MDB2 error on failure
+     * @access public
+     * @see prepare(), execute()
+     */
+    function executeMultiple(&$stmt, $params = null)
+    {
+        for ($i = 0, $j = count($params); $i < $j; $i++) {
+            $result = $stmt->execute($params[$i]);
+            if (PEAR::isError($result)) {
+                return $result;
+            }
+        }
+        return MDB2_OK;
+    }
+
+    // }}}
+    // {{{ getBeforeID()
+
+    /**
+     * Returns the next free id of a sequence if the RDBMS
+     * does not support auto increment
+     *
+     * @param string name of the table into which a new row was inserted
+     * @param string name of the field into which a new row was inserted
+     * @param bool when true the sequence is automatic created, if it not exists
+     * @param bool if the returned value should be quoted
+     *
+     * @return int|MDB2_Error id on success, a MDB2 error on failure
+     * @access public
+     */
+    function getBeforeID($table, $field = null, $ondemand = true, $quote = true)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        if ($db->supports('auto_increment') !== true) {
+            $seq = $table.(empty($field) ? '' : '_'.$field);
+            $id = $db->nextID($seq, $ondemand);
+            if (!$quote || PEAR::isError($id)) {
+                return $id;
+            }
+            return $db->quote($id, 'integer');
+        } elseif (!$quote) {
+            return null;
+        }
+        return 'NULL';
+    }
+
+    // }}}
+    // {{{ getAfterID()
+
+    /**
+     * Returns the autoincrement ID if supported or $id
+     *
+     * @param mixed value as returned by getBeforeId()
+     * @param string name of the table into which a new row was inserted
+     * @param string name of the field into which a new row was inserted
+     *
+     * @return int|MDB2_Error id on success, a MDB2 error on failure
+     * @access public
+     */
+    function getAfterID($id, $table, $field = null)
+    {
+        $db =& $this->getDBInstance();
+        if (PEAR::isError($db)) {
+            return $db;
+        }
+
+        if ($db->supports('auto_increment') !== true) {
+            return $id;
+        }
+        return $db->lastInsertID($table, $field);
+    }
+
+    // }}}
+}
 ?>
\ No newline at end of file