Changeset 34 for trunk/phpgwapi/inc/adodb/datadict/datadict-db2.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/datadict/datadict-db2.inc.php (modified) (5 diffs)

trunk/phpgwapi/inc/adodb/datadict/datadict-db2.inc.php

@@ -2 +2 @@
 
 /**
-  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, 
@@ -17 +17 @@
         var $databaseType = 'db2';
         var $seqField = false;
-        
+        
         function ActualType($meta)
         {
@@ -24 +24 @@
                 case 'XL': return 'CLOB';
                 case 'X': return 'VARCHAR(3600)'; 
-                
+
                 case 'C2': return 'VARCHAR'; // up to 32K
                 case 'X2': return 'VARCHAR(3600)'; // up to 32000, but default page size too small
-                
+
                 case 'B': return 'BLOB';
-                        
+
                 case 'D': return 'DATE';
                 case 'T': return 'TIMESTAMP';
-                
+
                 case 'L': return 'SMALLINT';
                 case 'I': return 'INTEGER';
@@ -39 +39 @@
                 case 'I4': return 'INTEGER';
                 case 'I8': return 'BIGINT';
-                
+
                 case 'F': return 'DOUBLE';
                 case 'N': return 'DECIMAL';
@@ -71 +71 @@
         }
         
+        
+        function ChangeTableSQL($tablename, $flds, $tableoptions = false)
+        {
+                
+                /**
+                  Allow basic table changes to DB2 databases
+                  DB2 will fatally reject changes to non character columns 
+
+                */
+                
+                $validTypes = array("CHAR","VARC");
+                $invalidTypes = array("BIGI","BLOB","CLOB","DATE", "DECI","DOUB", "INTE", "REAL","SMAL", "TIME");
+                // check table exists
+                $cols = &$this->MetaColumns($tablename);
+                if ( empty($cols)) { 
+                        return $this->CreateTableSQL($tablename, $flds, $tableoptions);
+                }
+                
+                // already exists, alter table instead
+                list($lines,$pkey) = $this->_GenFields($flds);
+                $alter = 'ALTER TABLE ' . $this->TableName($tablename);
+                $sql = array();
+                
+                foreach ( $lines as $id => $v ) {
+                        if ( isset($cols[$id]) && is_object($cols[$id]) ) {
+                                /**
+                                  If the first field of $v is the fieldname, and
+                                  the second is the field type/size, we assume its an
+                                  attempt to modify the column size, so check that it is allowed
+                                  $v can have an indeterminate number of blanks between the
+                                  fields, so account for that too
+                                 */
+                                $vargs = explode(' ' , $v);
+                                // assume that $vargs[0] is the field name.
+                                $i=0;
+                                // Find the next non-blank value;
+                                for ($i=1;$i<sizeof($vargs);$i++)
+                                        if ($vargs[$i] != '')
+                                                break;
+                                
+                                // if $vargs[$i] is one of the following, we are trying to change the
+                                // size of the field, if not allowed, simply ignore the request.
+                                if (in_array(substr($vargs[$i],0,4),$invalidTypes)) 
+                                        continue;
+                                // insert the appropriate DB2 syntax
+                                if (in_array(substr($vargs[$i],0,4),$validTypes)) {
+                                        array_splice($vargs,$i,0,array('SET','DATA','TYPE'));
+                                }
+
+                                // Now Look for the NOT NULL statement as this is not allowed in
+                                // the ALTER table statement. If it is in there, remove it
+                                if (in_array('NOT',$vargs) && in_array('NULL',$vargs)) {
+                                        for ($i=1;$i<sizeof($vargs);$i++)
+                                        if ($vargs[$i] == 'NOT')
+                                                break;
+                                        array_splice($vargs,$i,2,'');
+                                }
+                                $v = implode(' ',$vargs);       
+                                $sql[] = $alter . $this->alterCol . ' ' . $v;
+                        } else {
+                                $sql[] = $alter . $this->addCol . ' ' . $v;
+                        }
+                }
+                
+                return $sql;
+        }
+        
 }