<%

sub absolute_URI
{
    my $path_info = shift;
    my $cgix = lib::cgi::CGI->get->new;
    for ($cgix->param) { $cgix->delete ($_) }
    $cgix->path_info ($path_info);
    return $cgix->self_url;
}


sub encode_html
{
    use lib::util::Text2Html ();
    my $data = shift;
    return lib::util::Text2Html::text2html ($data);
}

%>