sub rewrite {
	        $dbh->rollback ();
		$dbh->disconnect ();
	        $peh->schwerer_fehler ("Ein Problem mit der Datenbank ist aufgetreten.Bitte versuchen sie es noch einmal.");
}

$dbh->do ("INSERT INTO doku_bestell (bestell_datum, bestell_preis, aut_id, kunden_name,
			kunden_email) VALUES (CURRENT_DATE,?,?,?,?)", undef,
			$bestell_info->{gesamtpreis},
			$bestell_info->{aut_id},
			$bestell_info->{kunden_name},
			$bestell_info->{kunden_email})
or rewrite();