diff --git a/library/smarty/libs/plugins/modifier.debug_print_var.php b/library/smarty/libs/plugins/modifier.debug_print_var.php
new file mode 100644
--- /dev/null
+++ b/library/smarty/libs/plugins/modifier.debug_print_var.php
@@ -0,0 +1,115 @@
+
+ * Name: debug_print_var
+ * Purpose: formats variable contents for display in the console
+ *
+ * @author Monte Ohrt
+ *
+ * @param array|object $var variable to be formatted
+ * @param int $max maximum recursion depth if $var is an array or object
+ * @param int $length maximum string length if $var is a string
+ * @param int $depth actual recursion depth
+ * @param array $objects processed objects in actual depth to prevent recursive object processing
+ *
+ * @return string
+ */
+function smarty_modifier_debug_print_var($var, $max = 10, $length = 40, $depth = 0, $objects = array()) {
+ $_replace = array("\n" => '\n',
+ "\r" => '\r',
+ "\t" => '\t'
+ );
+ switch (gettype($var)) {
+ case 'array' :
+ $results = 'Array (' . count($var) . ')';
+ if ($depth == $max) {
+ break;
+ }
+ foreach ($var as $curr_key => $curr_val) {
+ $results .= '
' . str_repeat(' ', $depth * 2)
+ . '' . strtr($curr_key, $_replace) . ' => '
+ . smarty_modifier_debug_print_var($curr_val, $max, $length, ++$depth, $objects);
+ $depth--;
+ }
+ break;
+
+ case 'object' :
+ $object_vars = get_object_vars($var);
+ $results = '' . get_class($var) . ' Object (' . count($object_vars) . ')';
+ if (in_array($var, $objects)) {
+ $results .= ' called recursive';
+ break;
+ }
+ if ($depth == $max) {
+ break;
+ }
+ $objects[] = $var;
+ foreach ($object_vars as $curr_key => $curr_val) {
+ $results .= '
' . str_repeat(' ', $depth * 2)
+ . ' ->' . strtr($curr_key, $_replace) . ' = '
+ . smarty_modifier_debug_print_var($curr_val, $max, $length, ++$depth, $objects);
+ $depth--;
+ }
+ break;
+
+ case 'boolean' :
+ case 'NULL' :
+ case 'resource' :
+ if (true === $var) {
+ $results = 'true';
+ } elseif (false === $var) {
+ $results = 'false';
+ } elseif (null === $var) {
+ $results = 'null';
+ } else {
+ $results = htmlspecialchars((string)$var);
+ }
+ $results = '' . $results . '';
+ break;
+
+ case 'integer' :
+ case 'float' :
+ $results = htmlspecialchars((string)$var);
+ break;
+
+ case 'string' :
+ $results = strtr($var, $_replace);
+ if (Smarty::$_MBSTRING) {
+ if (mb_strlen($var, Smarty::$_CHARSET) > $length) {
+ $results = mb_substr($var, 0, $length - 3, Smarty::$_CHARSET) . '...';
+ }
+ } else {
+ if (isset($var[$length])) {
+ $results = substr($var, 0, $length - 3) . '...';
+ }
+ }
+
+ $results = htmlspecialchars('"' . $results . '"');
+ break;
+
+ case 'unknown type' :
+ default :
+ $results = strtr((string)$var, $_replace);
+ if (Smarty::$_MBSTRING) {
+ if (mb_strlen($results, Smarty::$_CHARSET) > $length) {
+ $results = mb_substr($results, 0, $length - 3, Smarty::$_CHARSET) . '...';
+ }
+ } else {
+ if (strlen($results) > $length) {
+ $results = substr($results, 0, $length - 3) . '...';
+ }
+ }
+
+ $results = htmlspecialchars($results);
+ }
+
+ return $results;
+}