sub ReportError { my ($errmsg) = @_; - print $q->header, $q->start_html, "<H2>", &QuoteHtml($errmsg), "</H2>", $q->end_html; + print $q->header, $q->start_html, '<h2>', &QuoteHtml($errmsg), # There's more than one way to do it + ' - ', "<a href=http://$ENV{HTTP_HOST}$ENV{SCRIPT_NAME}", + &ScriptLinkChar(), ">", T('Home'), '</a>', '</h2>', + $q->end_html; }--JuanmaMP