/**
  * A link to page that this class (or its subclasses) represents
  * without any additional GET variables set.
  */
 protected function get_current_base_url()
 {
     #$url = $this->get_current_url_just_file();
     #
     #$url->set_get_variable('oo-page');
     #$url->set_get_variable('page-class', get_class($this));
     #
     #return $url;
     return PublicHTML_URLFactory::make_local_url(get_class($this));
 }
 /**
  * DEPRECATED!
  *
  * Use PublicHTML_URLFactory::make_local_url instead.
  */
 public static function get_oo_page_url($page_class, $get_variables = NULL)
 {
     #$url = new HTMLTags_URL();
     #
     ##$url->set_file('/haddock/public-html/public-html/index.php');
     #
     ##print_r($get_variables);
     #
     #if (isset($get_variables)) {
     #	$url->set_file('/');
     #
     #	$url->set_get_variable('oo-page');
     #	$url->set_get_variable('page-class', $page_class);
     #
     #	foreach ($get_variables as $k => $v) {
     #		$url->set_get_variable($k, $v);
     #	}
     #} else {
     #	$url->set_file("/$page_class");
     #}
     #
     #return $url;
     return PublicHTML_URLFactory::make_local_url($page_class, $get_variables);
 }