Prado::fatalError() now displays function parameter information

2 files changed, 32 insertions, 5 deletions

diff --git a/HISTORY b/HISTORY
index aadb3ee6..92814b07 100644
--- a/HISTORY
+++ b/HISTORY
@@ -7,6 +7,7 @@ ENH: TListControl.SelectedValues and SelectedIndices can now be set before datab
 ENH: Upgrade Scriptaculous javascript library to 1.6.2 (Wei)
 ENH: Cells in TDataGrid rows can now be accessed via the corresponding column IDs (Qiang)
 ENH: Input controls in some datagrid columns can now be accessed in a named fashion (Qiang)
+ENH: Prado::fatalError() now displays function parameter information (Qiang)
 CHG: Unify all client-side javascript event handler syntax. (Wei)
 CHG: Added more conditions in the requirement checker (Qiang)
 CHG: TControl::findControlsByType() now only returns objects of the specified type (Qiang)
diff --git a/framework/PradoBase.php b/framework/PradoBase.php
index 30b98f53..cf1d67fb 100644
--- a/framework/PradoBase.php
+++ b/framework/PradoBase.php
@@ -389,12 +389,38 @@ class PradoBase
 			echo ' -- ';

 			if(isset($t['class']))

 				echo $t['class'] . $t['type'];

-			echo $t['function'];

+			echo $t['function'] . '(';

 			if(isset($t['args']) && sizeof($t['args']) > 0)

-				echo '(...)';

-			else

-				echo '()';

-			echo "\n";

+			{

+				$count=0;

+				foreach($t['args'] as $item)

+				{

+					if(is_string($item))

+					{

+						$str=htmlentities(str_replace("\r\n", "", $item), ENT_QUOTES);

+						if (strlen($item) > 70)

+							echo "'". substr($str, 0, 70) . "...'";

+						else

+							echo "'" . $str . "'";

+					}

+					else if (is_int($item) || is_float($item))

+						echo $item;

+					else if (is_object($item))

+						echo get_class($item);

+					else if (is_array($item))

+						echo 'array(' . count($item) . ')';

+					else if (is_bool($item))

+						echo $item ? 'true' : 'false';

+					else if (is_null($item))

+						echo 'NULL';

+					else if (is_resource($item))

+						echo get_resource_type($item);

+					$count++;

+					if (count($t['args']) > $count)

+						echo ', ';

+				}

+			}

+			echo ")\n";

 		}

 		echo '</pre>';

 		exit(1);