$dbh->{AutoCommit}= 0; #Für Transaktion eval { bestellung_speichern ($dbh, $bestell_info) and $dbh->commit (); }; if ($@) { #hat nicht Funktioniert $dbh->rollback (); $dbh->disconnect (); $peh->schwerer_fehler ("Ein Problem mit der Datenbank ist aufgetreten.Bitte versuchen sie es noch einmal."); } $dbh->{AutoCommit} = 1; #Transaktion abgeschlossen