[Phpgroupware-cvs] CVS: phpgwapi/inc functions.inc.php,1.121.2.1,1.121.2.2

[Dan Kuykendall <address@hidden>]

Update of /cvsroot/phpgroupware/phpgwapi/inc
In directory subversions:/tmp/cvs-serv30376/phpgwapi/inc

Modified Files:
      Tag: Version-0_9_14-branch
        functions.inc.php 
Log Message:
added one more debug constant for turning off datatype checking

Index: functions.inc.php
===================================================================
RCS file: /cvsroot/phpgroupware/phpgwapi/inc/functions.inc.php,v
retrieving revision 1.121.2.1
retrieving revision 1.121.2.2
diff -C2 -r1.121.2.1 -r1.121.2.2
*** functions.inc.php   12 Feb 2002 09:10:10 -0000      1.121.2.1
--- functions.inc.php   12 Feb 2002 09:55:54 -0000      1.121.2.2
***************
*** 43,46 ****
--- 43,65 ----
         @abstract Direct functions, which are not part of the API class 
because they are require to be availble at the lowest level.
        */
+       /*!
+        @function print_debug_subarray
+        @abstract Not to be used directly. Should only be used by print_debug()
+       */
+       function print_debug_subarray($array)
+       {
+               while(list($key, $value) = each($array))
+               {
+                       if (is_array($value))
+                       {
+                               $vartypes[$key] = print_debug_subarray($value);
+                       }
+                       else
+                       {
+                               $vartypes[$key] = gettype($value);
+                       }
+               }
+               return $vartypes;
+       }
  
        /*!
***************
*** 62,66 ****
                                        if ($var != 'messageonly')
                                        {
!                                               echo "$message is a 
".gettype($var)."<br>\n";
                                        }
                                        else
--- 81,92 ----
                                        if ($var != 'messageonly')
                                        {
!                                               if (DEBUG_DATATYPES == True)
!                                               {
!                                                       echo "$message\n$var is 
a ".gettype($var)."<br>\n";
!                                               }
!                                               else
!                                               {
!                                                       echo 
"$message\n$var<br>\n";
!                                               }
                                        }
                                        else
***************
*** 73,79 ****
                                        echo "<pre>\n$message\n";
                                        print_r($var);
!                                       while(list($key, $value) = each($var))
                                        {
!                                               echo 'Array['.$key.'] is a 
'.gettype($var[$key])."\n";
                                        }
                                        echo "\n<pre>\n";
--- 99,118 ----
                                        echo "<pre>\n$message\n";
                                        print_r($var);
!                                       if (DEBUG_DATATYPES == True)
                                        {
!                                               while(list($key, $value) = 
each($var))
!                                               {
!                                                       //echo 'Array['.$key.'] 
is a '.gettype($var[$key])."\n";
!                                                       if (is_array($value))
!                                                       {
!                                                               $vartypes[$key] 
= print_debug_subarray($value);
!                                                       }
!                                                       else
!                                                       {
!                                                               $vartypes[$key] 
= gettype($value);
!                                                       }
!                                               }
!                                               echo "data types:\n";
!                                               print_r($vartypes);
                                        }
                                        echo "\n<pre>\n";
***************
*** 82,85 ****
--- 121,126 ----
                }
        }
+       print_debug('the phpgw_info array',$GLOBALS['phpgw_domain']);
+       print_debug('test 2','sometext');
        
        /*!