Se renombra error a exitError() y se hace que acepte un PEAR_Error.

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

diff --git a/lib/MECON/HTML/Page.php b/lib/MECON/HTML/Page.php
index 85cd558a4782511fad2d86d6bddc3715ed569771..aaac822e71528d77a2a804f517004cf1b0b31082 100644 (file)
--- a/lib/MECON/HTML/Page.php
+++ b/lib/MECON/HTML/Page.php
@@ -73,5 +73,19 @@ 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;
+    }
+
 }
 ?>
\ No newline at end of file