Bug Fixes para que se vea bien en el netscape.

[mecon/meconlib.git] / lib / MECON / HTML / Page.php

diff --git a/lib/MECON/HTML/Page.php b/lib/MECON/HTML/Page.php
index 85cd558a4782511fad2d86d6bddc3715ed569771..492012a68a4bcbafde1dce58ad51116e58de2c78 100644 (file)
--- a/lib/MECON/HTML/Page.php
+++ b/lib/MECON/HTML/Page.php
@@ -40,7 +40,7 @@ class MECON_HTML_Page extends HTML_Page {
      * @return void
      * @access public
      */
-    function MECON_HTML_Page() // ~X2C
+    function MECON_HTML_Page()
     {
         parent::HTML_Page(
                 array (
@@ -73,5 +73,35 @@ class MECON_HTML_Page extends HTML_Page {
         parent::addBodyContent($content);
     }
 
+    /**
+     * Muestra un error y termina el programa.
+     */
+    function exitError($msg)
+    {
+        require_once 'MECON/HTML/Error.php';
+        if (is_a($msg, 'pear_error')) {
+            $msg = $msg->getMessage();
+        }
+        $this->addBodyContent(new MECON_HTML_Error($msg));
+        $this->display();
+        exit;
+    }
+
+    /**
+     * Muestra una variable para debug.
+     */
+    function dump($var, $exit = false)
+    {
+        if (!isset($this->_dump)) {
+            require_once 'Var_Dump.php';
+            $this->_dump = new Var_Dump(
+                array('displayMode' => VAR_DUMP_DISPLAY_MODE_HTML_TABLE));
+        }
+        $this->addBodyContent('<pre>');
+        $this->addBodyContent($this->_dump->r_display($var));
+        $this->addBodyContent('</pre>');
+        if ($exit) exit;
+    }
+
 }
 ?>
\ No newline at end of file