WikiPatches/ReportErrorIntoBody

sub ReportError {
  my ($errmsg) = @_;

  - print $q->header, $q->start_html, "<H2>", &QuoteHtml($errmsg), "</H2>", $q->end_html;
  + print &GetHeader('', T('Error'), '');
  + print &QuoteHtml($errmsg);
  + print &GetCommonFooter();
}