Changeset 34 for trunk/phpgwapi/inc/adodb/drivers/adodb-sapdb.inc.php

Timestamp:

06/29/07 15:17:46 (17 years ago)

Author:

niltonneto

Message:

Versão nova do ADODB (4.5 para 4.95)

File:

• trunk/phpgwapi/inc/adodb/drivers/adodb-sapdb.inc.php (modified) (3 diffs)

trunk/phpgwapi/inc/adodb/drivers/adodb-sapdb.inc.php

@@ -1 +1 @@
 <?php
 /* 
-V4.51 29 July 2004  (c) 2000-2004 John Lim (jlim@natsoft.com.my). All rights reserved.
+V4.94 23 Jan 2007  (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.
   Released under both BSD license and Lesser GPL library license. 
   Whenever there is any discrepancy between the two licenses, 
@@ -27 +27 @@
         var $sysDate = 'DATE';
         var $sysTimeStamp = 'TIMESTAMP';
-        var $fmtDate = "\\D\\A\\T\\E('Y-m-d')"; /// used by DBDate() as the default date format used by the database
-        var $fmtTimeStamp = "\\T\\I\\M\\E\\S\\T\\A\\M\\P('Y-m-d','H:i:s')"; /// used by DBTimeStamp as the default timestamp fmt.
+        var $fmtDate = "'Y-m-d'";       /// used by DBDate() as the default date format used by the database
+        var $fmtTimeStamp = "'Y-m-d H:i:s'"; /// used by DBTimeStamp as the default timestamp fmt.
+        var $hasInsertId = true;
+        var $_bindInputArray = true;
         
         function ADODB_SAPDB()
@@ -36 +38 @@
         }
         
+        function ServerInfo()
+        {
+                $info = ADODB_odbc::ServerInfo();
+                if (!$info['version'] && preg_match('/([0-9.]+)/',$info['description'],$matches)) {
+                        $info['version'] = $matches[1];
+                }
+                return $info;
+        }
+
+        function MetaPrimaryKeys($table)
+        {
+                $table = $this->Quote(strtoupper($table));
+
+                return $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table AND mode='KEY' ORDER BY pos");
+        }
+                
+        function &MetaIndexes ($table, $primary = FALSE)
+        {
+                $table = $this->Quote(strtoupper($table));
+
+                $sql = "SELECT INDEXNAME,TYPE,COLUMNNAME FROM INDEXCOLUMNS ".
+                        " WHERE TABLENAME=$table".
+                        " ORDER BY INDEXNAME,COLUMNNO";
+
+                global $ADODB_FETCH_MODE;
+                $save = $ADODB_FETCH_MODE;
+        $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
+        if ($this->fetchMode !== FALSE) {
+                $savem = $this->SetFetchMode(FALSE);
+        }
+        
+        $rs = $this->Execute($sql);
+        if (isset($savem)) {
+                $this->SetFetchMode($savem);
+        }
+        $ADODB_FETCH_MODE = $save;
+
+        if (!is_object($rs)) {
+                return FALSE;
+        }
+
+                $indexes = array();
+                while ($row = $rs->FetchRow()) {
+            $indexes[$row[0]]['unique'] = $row[1] == 'UNIQUE';
+            $indexes[$row[0]]['columns'][] = $row[2];
+        }
+                if ($primary) {
+                        $indexes['SYSPRIMARYKEYINDEX'] = array(
+                                        'unique' => True,       // by definition
+                                        'columns' => $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table AND mode='KEY' ORDER BY pos"),
+                                );
+                }
+        return $indexes;
+        }
+        
+        function &MetaColumns ($table)
+        {
+                global $ADODB_FETCH_MODE;
+                $save = $ADODB_FETCH_MODE;
+        $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
+        if ($this->fetchMode !== FALSE) {
+                $savem = $this->SetFetchMode(FALSE);
+        }
+                $table = $this->Quote(strtoupper($table));
+                
+                $retarr = array();
+                foreach($this->GetAll("SELECT COLUMNNAME,DATATYPE,LEN,DEC,NULLABLE,MODE,\"DEFAULT\",CASE WHEN \"DEFAULT\" IS NULL THEN 0 ELSE 1 END AS HAS_DEFAULT FROM COLUMNS WHERE tablename=$table ORDER BY pos") as $column)
+                {
+                        $fld = new ADOFieldObject();
+                        $fld->name = $column[0];
+                        $fld->type = $column[1];
+                        $fld->max_length = $fld->type == 'LONG' ? 2147483647 : $column[2];
+                        $fld->scale = $column[3];
+                        $fld->not_null = $column[4] == 'NO';
+                        $fld->primary_key = $column[5] == 'KEY';
+                        if ($fld->has_default = $column[7]) {
+                                if ($fld->primary_key && $column[6] == 'DEFAULT SERIAL (1)') {
+                                        $fld->auto_increment = true;
+                                        $fld->has_default = false;
+                                } else {
+                                        $fld->default_value = $column[6];
+                                        switch($fld->type) {
+                                                case 'VARCHAR':
+                                                case 'CHARACTER':
+                                                case 'LONG':
+                                                        $fld->default_value = $column[6];
+                                                        break;
+                                                default:
+                                                        $fld->default_value = trim($column[6]);
+                                                        break;
+                                        }
+                                }
+                        }
+                        $retarr[$fld->name] = $fld;     
+                }
+        if (isset($savem)) {
+                $this->SetFetchMode($savem);
+        }
+        $ADODB_FETCH_MODE = $save;
+
+                return $retarr;
+        }
+        
+        function MetaColumnNames($table)
+        {
+                $table = $this->Quote(strtoupper($table));
+
+                return $this->GetCol("SELECT columnname FROM COLUMNS WHERE tablename=$table ORDER BY pos");
+        }
+        
+        // unlike it seems, this depends on the db-session and works in a multiuser environment
+        function _insertid($table,$column)
+        {
+                return empty($table) ? False : $this->GetOne("SELECT $table.CURRVAL FROM DUAL");
+        }
+
         /*
                 SelectLimit implementation problems: