sub schwerer_fehler {

	my $text = shift;
	my $seite;
	my $self;

	if (ref ($text)){
		$self = $text ;
	}
	$text = shift;
	
	$seite .= p ("Ein Fehler ist aufgetreten.")
		 . p (escapeHTML ($text))
		 . p ("Zurück zur PseudEcom "  . $self->home_link ("Homepage"));
		 
	print header (),
		start_html (-title => "PseudEcom Corporation", -bgcolor => "white"),
		$self->standardlayout ($seite),
		end_html ();
	exit (0);

}