]> git.llucax.com Git - mecon/meconlib.git/blobdiff - pear_lib_tmp/HTML/Page.php
Marco: Esta terminada la funcionalidad principal que se planteo al inicio. Falta...
[mecon/meconlib.git] / pear_lib_tmp / HTML / Page.php
index 801ffab95fff3134714f9c9a55e061d6a3782271..233b416b066f84e0373f4324c63864e455587dcd 100644 (file)
@@ -5,10 +5,10 @@
 // +----------------------------------------------------------------------+
 // | Copyright (c) 1997 - 2003 The PHP Group                              |
 // +----------------------------------------------------------------------+
-// | This source file is subject to version 2.0 of the PHP license,       |
+// | This source file is subject to version 3.0 of the PHP license,       |
 // | that is bundled with this package in the file LICENSE, and is        |
 // | available at through the world-wide-web at                           |
-// | http://www.php.net/license/2_02.txt.                                 |
+// | http://www.php.net/license/3_0.txt.                                  |
 // | If you did not receive a copy of the PHP license and are unable to   |
 // | obtain it through the world-wide-web, please send a note to          |
 // | license@php.net so we can mail you a copy immediately.               |
 // |          Klaus Guenther <klaus@capitalfocus.org>                     |
 // +----------------------------------------------------------------------+
 //
+// $Id$
 
 require_once 'PEAR.php';
-require_once 'Common.php';
+require_once 'HTML/Common.php';
+// HTML/Page/Doctypes.php is required in _getDoctype()
+// HTML/Page/Namespaces.php is required in _getNamespace()
 
 /**
  * Base class for XHTML pages
@@ -54,11 +57,12 @@ require_once 'Common.php';
  * <code>
  * // The initializing code can also be in in the form of an HTML
  * // attr="value" string.
- * // Possible attributes are: charset, lineend, tab, doctype, language and cache
+ * // Possible attributes are: charset, mime, lineend, tab, doctype, namespace, language and cache
  * 
  * $p = new HTML_Page(array (
  *
  *                          // Sets the charset encoding
+ *                          // utf-8 is default
  *                          'charset'  => 'utf-8',
  *
  *                          // Sets the line end character
@@ -97,7 +101,7 @@ require_once 'Common.php';
  * // for more details
  * if ($error) {
  *     $p->setTitle("Error!");
- *     $p->setBodyContent("<p>oops, we have an error: $error</p>");
+ *     $p->setBodyContent("<p>Houston, we have a problem: $error</p>");
  *     $p->display();
  *     die;
  * } // end error handling
@@ -112,7 +116,7 @@ require_once 'Common.php';
  * // An XHTML compliant page (with title) is automatically generated
  *
  * // This overrides the XHTML 1.0 Transitional default
- * $p->setDoctype('xhtml');
+ * $p->setDoctype('XHTML 1.0 Strict');
  * 
  * // Put some content in here
  * $p->addBodyContent("<p>some text</p>");
@@ -143,7 +147,7 @@ require_once 'Common.php';
  * 
  * @author       Adam Daniel <adaniel1@eesus.jnj.com>
  * @author       Klaus Guenther <klaus@capitalfocus.org>
- * @version      0.8b2
+ * @version      2.0
  * @since        PHP 4.0.3pl1
  */
 class HTML_Page extends HTML_Common {
@@ -196,6 +200,22 @@ class HTML_Page extends HTML_Common {
      */
     var $_metaTags = array( 'standard' => array ( 'Generator' => 'PEAR HTML_Page' ) );
     
+    /**
+     * Document mime type
+     * 
+     * @var  string
+     * @access   private
+     */
+    var $_mime = 'text/html';
+    
+    /**
+     * Document namespace
+     * 
+     * @var  string
+     * @access   private
+     */
+    var $_namespace = '';
+    
     /**
      * Array of linked scripts
      * 
@@ -204,6 +224,14 @@ class HTML_Page extends HTML_Common {
      */
     var $_scripts = array();
     
+    /**
+     * Array of scripts placed in the header
+     * 
+     * @var  array
+     * @access   private
+     */
+    var $_script = array();
+    
     /**
      * Array of linked scripts
      * 
@@ -241,24 +269,25 @@ class HTML_Page extends HTML_Common {
      * Possible attributes are:
      * - general options:
      *     - "lineend" => "unix|win|mac" (Sets line ending style; defaults to unix.)
-     *     - "tab" => string (Sets line ending style; defaults to \t.)
+     *     - "tab"     => string (Sets line ending style; defaults to \t.)
      *     - "cache"   => "false|true"
      *     - "charset" => charset string (Sets charset encoding; defaults to utf-8)
+     *     - "mime"    => mime encoding string (Sets document mime type; defaults to text/html)
      * - XHTML specific:
-     *     - "doctype"  => mixed (Sets XHTML doctype; defaults to XHTML 1.0 Transitional.)
+     *     - "doctype"  => string (Sets XHTML doctype; defaults to XHTML 1.0 Transitional.)
      *     - "language" => two letter language designation. (Defines global document language; defaults to "en".)
+     *     - "namespace"  => string (Sets document namespace; defaults to the W3C defined namespace.)
      * 
      * @param   mixed   $attributes     Associative array of table tag attributes
      *                                  or HTML attributes name="value" pairs
      * @access  public
      */
-    function HTML_Page($attributes = "")
+    function HTML_Page($attributes = array())
     {
         $commonVersion = 1.7;
         if (HTML_Common::apiVersion() < $commonVersion) {
             return PEAR::raiseError("HTML_Page version " . $this->apiVersion() . " requires " .
-                "HTML_Common version $commonVersion or greater. You can get the (still) unofficial ".
-                "update here: http://www.geist.uni-freiburg.de/pear/HTML/Common.txt", 0, PEAR_ERROR_TRIGGER);
+                "HTML_Common version 1.2 or greater.", 0, PEAR_ERROR_TRIGGER);
         }
         
         if ($attributes) {
@@ -285,6 +314,18 @@ class HTML_Page extends HTML_Common {
             $this->setLang($attributes['language']);
         }
         
+        if (isset($attributes['mime'])) {
+            $this->setMimeEncoding($attributes['mime']);
+        }
+        
+        if (isset($attributes['namespace'])) {
+            $this->setNamespace($attributes['namespace']);
+        }
+        
+        if (isset($attributes['tab'])) {
+            $this->setTab($attributes['tab']);
+        }
+        
         if (isset($attributes['cache'])) {
             $this->setCache($attributes['cache']);
         }
@@ -357,22 +398,6 @@ class HTML_Page extends HTML_Common {
         return $strHtml;
     } // end func _generateHead
     
-    /**
-     * Outputs a page containing the error message and then dies
-     * 
-     * @return void
-     * @access private
-     */
-    function _error(&$error){
-            
-        $this->setTitle('HTML_Page doctype Error');
-        $this->setBody('<p>' . $error->getMessage() . '</p>');
-        $this->setDoctype();
-        $this->display();
-        die;
-        
-    } //
-    
     /**
      * Generates the HTML string for the &lt;head&lt; tag
      * 
@@ -381,6 +406,12 @@ class HTML_Page extends HTML_Common {
      */
     function _generateHead()
     {
+        // close empty tags if XHTML
+        if ($this->_doctype['type'] == 'html'){
+            $tagEnd = '>';
+        } else {
+            $tagEnd = ' />';
+        }
         
         // get line endings
         $lnEnd = $this->_getLineEnd();
@@ -393,46 +424,106 @@ class HTML_Page extends HTML_Common {
         foreach ($this->_metaTags as $type => $tag) {
             foreach ($tag as $name => $content) {
                 if ($type == 'http-equiv') {
-                    $strHtml .= $tab . "<meta http-equiv=\"$name\" content=\"$content\" />" . $lnEnd;
+                    $strHtml .= $tab . "<meta http-equiv=\"$name\" content=\"$content\"" . $tagEnd . $lnEnd;
                 } elseif ($type == 'standard') {
-                    $strHtml .= $tab . "<meta name=\"$name\" content=\"$content\" />" . $lnEnd;
+                    $strHtml .= $tab . "<meta name=\"$name\" content=\"$content\"" . $tagEnd . $lnEnd;
                 }
             }
         }
         
         // Generate stylesheet links
-        for($intCounter=0; $intCounter<count($this->_styleSheets); $intCounter++) {
-            $strStyleSheet = $this->_styleSheets[$intCounter];
-            $strHtml .= $tab . "<link rel=\"stylesheet\" href=\"$strStyleSheet\" type=\"text/css\" />" . $lnEnd;
+        foreach ($this->_styleSheets as $strStyleSheet) {
+            $strHtml .= $tab . "<link rel=\"stylesheet\" href=\"$strStyleSheet\" type=\"text/css\"" . $tagEnd . $lnEnd;
         }
         
         // Generate stylesheet declarations
         foreach ($this->_style as $type => $content) {
             $strHtml .= $tab . '<style type="' . $type . '">' . $lnEnd;
-            $strHtml .= $tab . $tab . '<!--' . $lnEnd;
+            
+            // This is for full XHTML supporte.
+            if ($this->_mime == 'text/html' ) {
+                $strHtml .= $tab . $tab . '<!--' . $lnEnd;
+            } else {
+                $strHtml .= $tab . $tab . '<![CDATA[' . $lnEnd;
+            }
+            
             if (is_object($content)) {
+                
+                // first let's propagate line endings and tabs for other HTML_Common-based objects
                 if (is_subclass_of($content, "html_common")) {
                     $content->setTab($tab);
                     $content->setTabOffset(3);
                     $content->setLineEnd($lnEnd);
                 }
+                
+                // now let's get a string from the object
                 if (method_exists($content, "toString")) {
                     $strHtml .= $content->toString() . $lnEnd;
+                } else {
+                    return PEAR::raiseError('Error: Style content object does not support  method toString().',
+                    0,PEAR_ERROR_TRIGGER);
                 }
+                
             } else {
                 $strHtml .= $content . $lnEnd;
             }
-            $strHtml .= $tab . $spacer . "-->" . $lnEnd;
-            $strHtml .= $tab . "</style>" . $lnEnd;
+            
+            // See above note
+            
+            if ($this->_mime == 'text/html' ) {
+                $strHtml .= $tab . $tab . '-->' . $lnEnd;
+            } else {
+                $strHtml .= $tab . $tab . ']]>' . $lnEnd;
+            }
+            $strHtml .= $tab . '</style>' . $lnEnd;
         }
         
         // Generate script file links
-        for($intCounter=0; $intCounter<count($this->_scripts); $intCounter++) {
-            $strType = $this->_scripts[$intCounter]["type"];
-            $strSrc = $this->_scripts[$intCounter]["src"];
+        foreach ($this->_scripts as $strSrc => $strType) {
             $strHtml .= $tab . "<script type=\"$strType\" src=\"$strSrc\"></script>" . $lnEnd;
         }
         
+        // Generate script declarations
+        foreach ($this->_script as $type => $content) {
+            $strHtml .= $tab . '<script type="' . $type . '">' . $lnEnd;
+            
+            // This is for full XHTML support.
+            if ($this->_mime == 'text/html' ) {
+                $strHtml .= $tab . $tab . '<!--' . $lnEnd;
+            } else {
+                $strHtml .= $tab . $tab . '<![CDATA[' . $lnEnd;
+            }
+            
+            if (is_object($content)) {
+                
+                // first let's propagate line endings and tabs for other HTML_Common-based objects
+                if (is_subclass_of($content, "html_common")) {
+                    $content->setTab($tab);
+                    $content->setTabOffset(3);
+                    $content->setLineEnd($lnEnd);
+                }
+                
+                // now let's get a string from the object
+                if (method_exists($content, "toString")) {
+                    $strHtml .= $content->toString() . $lnEnd;
+                } else {
+                    return PEAR::raiseError('Error: Script content object does not support  method toString().',
+                    0,PEAR_ERROR_TRIGGER);
+                }
+                
+            } else {
+                $strHtml .= $content . $lnEnd;
+            }
+            
+            // See above note
+            if ($this->_mime == 'text/html' ) {
+                $strHtml .= $tab . $tab . '-->' . $lnEnd;
+            } else {
+                $strHtml .= $tab . $tab . ']]>' . $lnEnd;
+            }
+            $strHtml .= $tab . '</script>' . $lnEnd;
+        }
+        
         // Close tag
         $strHtml .=  '</head>' . $lnEnd;
         
@@ -443,26 +534,34 @@ class HTML_Page extends HTML_Common {
     /**
      * Returns the doctype declaration
      *
-     * @return string
+     * @return mixed
      * @access private
      */
     function _getDoctype()
     {
-        include('Page/Doctypes.php');
+        require('HTML/Page/Doctypes.php');
+        
+        if (isset($this->_doctype['type'])) {
+            $type = $this->_doctype['type'];
+        }
         
-        $type = $this->_doctype['type'];
-        $version = $this->_doctype['version'];
-        $variant = $this->_doctype['variant'];
+        if (isset($this->_doctype['version'])) {
+            $version = $this->_doctype['version'];
+        }
+        
+        if (isset($this->_doctype['variant'])) {
+            $variant = $this->_doctype['variant'];
+        }
         
         $strDoctype = '';
         
-        if ($variant != '') {
+        if (isset($variant)) {
             if (isset($doctype[$type][$version][$variant][0])) {
                 foreach ( $doctype[$type][$version][$variant] as $string) {
                     $strDoctype .= $string.$this->_getLineEnd();
                 }
             }
-        } elseif ($version != '') {
+        } elseif (isset($version)) {
             if (isset($doctype[$type][$version][0])) {
                 foreach ( $doctype[$type][$version] as $string) {
                     $strDoctype .= $string.$this->_getLineEnd();
@@ -473,7 +572,7 @@ class HTML_Page extends HTML_Common {
                     $strDoctype = $this->_getDoctype();
                 }
             }
-        } elseif ($type != '') {
+        } elseif (isset($type)) {
             if (isset($default[$type][0])){
                 $this->_doctype = $this->_parseDoctypeString($default[$type][0]);
                 $strDoctype = $this->_getDoctype();
@@ -487,11 +586,65 @@ class HTML_Page extends HTML_Common {
             return $strDoctype;
         } else {
             return PEAR::raiseError('Error: "'.$this->getDoctypeString().'" is an unsupported or illegal document type.',
-                                    0,PEAR_ERROR_RETURN);
+                                    0,PEAR_ERROR_TRIGGER);
         }
         
     } // end func _getDoctype
     
+    /**
+     * Retrieves the document namespace
+     *
+     * @return mixed
+     * @access private
+     */
+    function _getNamespace()
+    {
+        require('HTML/Page/Namespaces.php');
+        
+        if (isset($this->_doctype['type'])) {
+            $type = $this->_doctype['type'];
+        }
+        
+        if (isset($this->_doctype['version'])) {
+            $version = $this->_doctype['version'];
+        }
+        
+        if (isset($this->_doctype['variant'])) {
+            $variant = $this->_doctype['variant'];
+        }
+        
+        $strNamespace = '';
+        
+        if (isset($variant)){
+            if (isset($namespace[$type][$version][$variant][0]) && is_string($namespace[$type][$version][$variant][0])) {
+                $strNamespace = $namespace[$type][$version][$variant][0];
+            } elseif (isset($namespace[$type][$version][0]) && is_string($namespace[$type][$version][0]) ) {
+                $strNamespace = $namespace[$type][$version][0];
+            } elseif (isset($namespace[$type][0]) && is_string($namespace[$type][0]) ) {
+                $strNamespace = $namespace[$type][0];
+            }
+        } elseif (isset($version)) {
+            if (isset($namespace[$type][$version][0]) && is_string($namespace[$type][$version][0]) ) {
+                $strNamespace = $namespace[$type][$version][0];
+            } elseif (isset($namespace[$type][0]) && is_string($namespace[$type][0]) ) {
+                $strNamespace = $namespace[$type][0];
+            }
+        } else {
+            if (isset($namespace[$type][0]) && is_string($namespace[$type][0]) ) {
+                $strNamespace = $namespace[$type][0];
+            }
+        }
+            
+        
+        if ($strNamespace) {
+            return $strNamespace;
+        } else {
+            return PEAR::raiseError('Error: "'.$this->getDoctypeString().'" does not have a default namespace. Use setNamespace() to define your namespace.',
+                                    0,PEAR_ERROR_TRIGGER);
+        }
+        
+    } // end func _getNamespace
+    
     /**
      * Parses a doctype declaration like "XHTML 1.0 Strict" to an array
      *
@@ -504,7 +657,13 @@ class HTML_Page extends HTML_Common {
         $split = explode(' ',strtolower($string));
         $elements = count($split);
         
-        $array = array('type'=>$split[0],'version'=>$split[1],'variant'=>$split[2]);
+        if (isset($split[2])){
+            $array = array('type'=>$split[0],'version'=>$split[1],'variant'=>$split[2]);
+        } elseif (isset($split[1])){
+            $array = array('type'=>$split[0],'version'=>$split[1]);
+        } else {
+            $array = array('type'=>$split[0]);
+        }
         
         return $array;
     } // end func _parseDoctypeString
@@ -515,61 +674,97 @@ class HTML_Page extends HTML_Common {
      * If you wish to overwrite whatever is in the body, use {@link setBody};
      * {@link unsetBody} completely empties the body without inserting new content.
      * It is possible to add objects, strings or an array of strings and/or objects
+     * Objects must have a toString method.
      * 
-     * @param mixed $content New &lt;body&gt; tag content.
+     * @param mixed $content  New &lt;body&gt; tag content (may be passed as a reference)
      * @access public
      */
     function addBodyContent($content)
     {
         $this->_body[] =& $content;
-    } // end addBodyContent
+        if (is_object($content)) {
+            if (method_exists($content, "toStyleSheet")) {
+                $this->addStyleSheet($content->toStyleSheet());
+            }
+            if (method_exists($content, "toScript")) {
+                               $script = $content->toScript();
+                               if (is_array($script)) {
+                                       $this->addScript($script[0], $script[1]);
+                               } else {
+                                       $this->addScript($script);
+                               }
+            }
+        } elseif (is_array($content)) {
+                       foreach ($content as $element) {
+                       if (is_object($content)) {
+                                       if (method_exists($element, "toStyleSheet")) {
+                                               $this->addStyleSheet($element->toStyleSheet());
+                                       }
+                                       if (method_exists($element, "toScript")) {
+                                               $script = $element->toScript();
+                                               if (is_array($script)) {
+                                                       $this->addScript($script[0], $script[1]);
+                                               } else {
+                                                       $this->addScript($script);
+                                               }
+                                       }
+                               }
+                       }
+               }
+    } // end addBodyContent    
     
     /**
-     * Depreciated. Sets or alters a meta tag. Use {@link setMetaData} instead.
-     * This function only allows for standard META tags.
+     * Adds a linked script to the page
      * 
-     * @param string  $name     Value of name or http-equiv tag
-     * @param string  $content  Value of the content tag
-     * @access public
+     * @param    string  $url        URL to the linked script
+     * @param    string  $type       Type of script. Defaults to 'text/javascript'
+     * @access   public
      */
-    function addMetaData($name, $content)
+    function addScript($url, $type="text/javascript")
     {
-        $this->setMetaData($name, $content);
-    } // end func addMetaData
+        $this->_scripts[$url] = $type;
+    } // end func addScript
     
     /**
-     * Adds a linked script to the page
+     * Adds a script to the page.
+     * Content can be a string or an object with a toString method.
+     * Defaults to text/javascript.
      * 
-     * @param    string  $url        URL to the linked style sheet
-     * @param    string  $type       Type of script. Defaults to 'text/javascript'
      * @access   public
+     * @param    mixed   $content   Script (may be passed as a reference)
+     * @param    string  $type      Scripting mime (defaults to 'text/javascript')
+     * @return   void
      */
-    function addScript($url, $type="text/javascript")
+    function addScriptDeclaration($content, $type = 'text/javascript')
     {
-        $this->_scripts[] = array("type"=>$type, "src"=>$url);
-    } // end func addScript
+        $this->_script[strtolower($type)] =& $content;
+    } // end func addScriptDeclaration
     
     /**
-     * Adds a linked style sheet to the page
+     * Adds a linked stylesheet to the page
      * 
      * @param    string  $url    URL to the linked style sheet
      * @access   public
+     * @return   void
      */
     function addStyleSheet($url)
     {
-        $this->_styleSheets[] = $url;
+        $this->_styleSheets[$url] = $url;
     } // end func addStyleSheet
     
     /**
-     * Adds a linked style sheet to the page
+     * Adds a stylesheet declaration to the page.
+     * Content can be a string or an object with a toString method.
+     * Defaults to text/css.
      * 
-     * @param    string  $type      Type of stylesheet (e.g., text/css)
-     * @param    string  $content   Style declarations
      * @access   public
+     * @param    mixed   $content   Style declarations (may be passed as a reference)
+     * @param    string  $type      Type of stylesheet (defaults to 'text/css')
+     * @return   void
      */
-    function addStyleDeclaration($type, $content)
+    function addStyleDeclaration($content, $type = 'text/css')
     {
-        $this->_style[$type] =& $content;
+        $this->_style[strtolower($type)] =& $content;
     } // end func addStyleDeclaration
     
     /**
@@ -580,35 +775,14 @@ class HTML_Page extends HTML_Common {
      */
     function apiVersion()
     {
-        return 0.8;
+        return 2.0;
     } // end func apiVersion
     
     /**
-     * Outputs the HTML content to the screen.
+     * Returns the document charset encoding.
      * 
-     * @access    public
-     */
-    function display()
-    {
-        if(! $this->_cache) {
-            header("Expires: Tue, 1 Jan 1980 12:00:00 GMT");
-            header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
-            header("Cache-Control: no-cache");
-            header("Pragma: no-cache");
-        }
-        
-        // set character encoding
-        header("Content-Type: text/html; charset=" . $this->_charset);
-        
-        $strHtml = $this->toHTML();
-        print $strHtml;
-    } // end func display
-    
-    /**
-     * Defines if the document should be cached by the browser. Defaults to false.
-     * 
-     * @param string $cache Options are currently 'true' or 'false'. Defaults to 'false'.
      * @access public
+     * @returns string
      */
     function getCharset()
     {
@@ -662,43 +836,29 @@ class HTML_Page extends HTML_Common {
     } // end func getTitle
     
     /**
-     * Sets or alters the XHTML !DOCTYPE declaration. Can be set to "strict",
-     * "transitional" or "frameset". Defaults to "transitional". This must come
-     * _after_ declaring the character encoding with {@link setCharset} or directly
-     * when the class is initiated {@link HTML_Page}.
-     * 
-     * @param mixed $type   String containing a document type. Defaults to "XHTML 1.0 Transitional"
-     * @access public
-     */
-    function setDoctype($type = "XHTML 1.0 Transitional")
-    {
-        $this->_doctype = $this->_parseDoctypeString($type);
-    } // end func setDoctype
-    
-    /**
-     * Sets the global document language declaration. Default is English.
+     * Sets the content of the &lt;body&gt; tag. If content exists, it is overwritten.
+     * If you wish to use a "safe" version, use {@link addBodyContent}
+     * Objects must have a toString method.
      * 
+     * @param mixed $content New &lt;body&gt; tag content. May be an object. (may be passed as a reference)
      * @access public
-     * @param string $lang Two-letter language designation.
      */
-    function setLang($lang = "en")
+    function setBody($content)
     {
-        $this->_language = strtolower($lang);
-    } // end setLang
+        $this->unsetBody();
+        $this->addBodyContent($content);
+    } // end setBody
     
     /**
-     * Sets the content of the &lt;body&gt; tag. If content exists, it is overwritten.
-     * If you wish to use a "safe" version, use {@link addBodyContent}
+     * Unsets the content of the &lt;body&gt; tag.
      * 
-     * @param mixed &$content New &lt;body&gt; tag content.
      * @access public
      */
-    function setBody(&$content)
+    function unsetBody()
     {
         $this->_body = '';
-        $this->_body[] =& $content;
-    } // end setBody
-    
+    } // end unsetBody
+        
     /**
      * Defines if the document should be cached by the browser. Defaults to false.
      * 
@@ -719,29 +879,68 @@ class HTML_Page extends HTML_Common {
      * 
      * @param string $cache Options are currently 'true' or 'false'. Defaults to 'false'.
      * @access public
+     * @returns void
      */
     function setCharset($type = 'utf-8')
     {
         $this->_charset = $type;
     } // end setCache
     
+    /**
+     * Sets or alters the XHTML !DOCTYPE declaration. Can be set to "strict",
+     * "transitional" or "frameset". Defaults to "transitional". This must come
+     * _after_ declaring the character encoding with {@link setCharset} or directly
+     * when the class is initiated {@link HTML_Page}.
+     * 
+     * @param string $type   String containing a document type. Defaults to "XHTML 1.0 Transitional"
+     * @access public
+     * @returns void
+     */
+    function setDoctype($type = "XHTML 1.0 Transitional")
+    {
+        $this->_doctype = $this->_parseDoctypeString($type);
+    } // end func setDoctype
+    
+    /**
+     * Sets the global document language declaration. Default is English.
+     * 
+     * @access public
+     * @param string $lang Two-letter language designation.
+     */
+    function setLang($lang = "en")
+    {
+        $this->_language = strtolower($lang);
+    } // end setLang
+    
     /**
      * Sets or alters a meta tag.
      * 
      * @param string  $name     Value of name or http-equiv tag
      * @param string  $content  Value of the content tag
      * @param bool    $http_equiv     META type "http-equiv" defaults to NULL
+     * @return void
      * @access public
      */
     function setMetaData($name, $content, $http_equiv = false)
     {
         if ($http_equiv == true) {
-            $this->_meta['http-equiv'][$name] = $content;
+            $this->_metaTags['http-equiv'][$name] = $content;
         } else {
-            $this->_meta['standard'][$name] = $content;
+            $this->_metaTags['standard'][$name] = $content;
         }
     } // end func setMetaData
     
+    /**
+     * Sets an http-equiv Content-Type meta tag
+     * 
+     * @access   public
+     * @returns  void
+     */
+    function setMetaContentType()
+    {
+        $this->setMetaData('Content-Type', $this->_mime . '; charset=' . $this->_charset , true );
+    } // end func setMetaContentType
+    
     /**
      * Easily sets or alters a refresh meta tag. 
      * If no $url is passed, "self" is presupposed, and the appropriate URL
@@ -749,7 +948,8 @@ class HTML_Page extends HTML_Common {
      * 
      * @param string  $time    Time till refresh (in seconds)
      * @param string  $url     Absolute URL or "self"
-     * @param bool    $https   If $url = self, this allows for the https protocol
+     * @param bool    $https   If $url = self, this allows for the https protocol defaults to NULL
+     * @return void
      * @access public
      */
     function setMetaRefresh($time, $url = 'self', $https = false)
@@ -765,11 +965,40 @@ class HTML_Page extends HTML_Common {
         $this->setMetaData("Refresh", "$time; url=$url", true);
     } // end func setMetaRefresh
     
+    /**
+     * Sets the document MIME encoding that is sent to the browser.
+     * 
+     * @param    string    $type
+     * @access   public
+     * @returns  void
+     */
+    function setMimeEncoding($type = 'text/html')
+    {
+        $this->_mime = strtolower($type);
+    } // end func setMimeEncoding
+    
+    /**
+     * Sets the document namespace
+     * 
+     * @param    string    $namespace  Optional. W3C namespaces are used by default.
+     * @access   public
+     * @returns  void
+     */
+    function setNamespace($namespace = '')
+    {
+        if (isset($namespace)){
+            $this->_namespace = $namespace;
+        } else {
+            $this->_namespace = $this->_getNamespace();
+        }
+    } // end func setTitle
+    
     /**
      * Sets the title of the page
      * 
      * @param    string    $title
      * @access   public
+     * @returns  void
      */
     function setTitle($title)
     {
@@ -787,39 +1016,59 @@ class HTML_Page extends HTML_Common {
         
         // get line endings
         $lnEnd = $this->_getLineEnd();
+        
+        // get the doctype declaration
         $strDoctype = $this->_getDoctype();
-        if (!PEAR::isError($strDoctype)){
+        
+        // This determines how the doctype is declared
+        if ($this->_simple) {
             
-            if ($this->_simple) {
-                $strHtml = '<html>' . $lnEnd;
-            } elseif ($this->_doctype['type'] == 'xhtml') {
-                $strHtml  = '<?xml version="1.0" encoding="' . $this->_charset . '"?>' . $lnEnd;
-                $strHtml .= $strDoctype . $lnEnd;
-                $strHtml .= '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="'.$this->_language.'">';
-            } else {
-                $strHtml  = $strDoctype . $lnEnd;
-                $strHtml .= '<html>' . $lnEnd;
+            $strHtml = '<html>' . $lnEnd;
+            
+        } elseif ($this->_doctype['type'] == 'xhtml') {
+            
+            // get the namespace if not already set
+            if (!$this->_namespace){
+                $this->_namespace = $this->_getNamespace();
             }
-
+            
+            $strHtml  = '<?xml version="1.0" encoding="' . $this->_charset . '"?>' . $lnEnd;
+            $strHtml .= $strDoctype . $lnEnd;
+            $strHtml .= '<html xmlns="' . $this->_namespace . '" xml:lang="' . $this->_language . '">' . $lnEnd;
+            
         } else {
             
-            $this->_error($strDoctype);
+            $strHtml  = $strDoctype . $lnEnd;
+            $strHtml .= '<html>' . $lnEnd;
             
         }
+
         $strHtml .= $this->_generateHead();
         $strHtml .= $this->_generateBody();
         $strHtml .= '</html>';
         return $strHtml;
     } // end func toHtml
-    
+
     /**
-     * Unsets the content of the &lt;body&gt; tag.
+     * Outputs the HTML content to the screen.
      * 
-     * @access public
+     * @access    public
      */
-    function unsetBody()
+    function display()
     {
-        $this->_body = '';
-    } // end unsetBody
+        if(! $this->_cache) {
+            header("Expires: Tue, 1 Jan 1980 12:00:00 GMT");
+            header("Last-Modified: " . gmdate("D, d M Y H:i:s") . " GMT");
+            header("Cache-Control: no-cache");
+            header("Pragma: no-cache");
+        }
+        
+        // set character encoding
+        header('Content-Type: ' . $this->_mime .  '; charset=' . $this->_charset);
+        
+        $strHtml = $this->toHTML();
+        print $strHtml;
+    } // end func display
+    
 }
-?>
+?>
\ No newline at end of file