Danke für den Tip für das Formatieren der Nachkommastellen.

Wie ich die Skriptkontrolle per Print-Befehl mach soll, verstehe ich nicht ganz, weil Perl sich aufhängt, bevor ich zu irgendeiner Ausgabe komme. D.h. ich schicke das Formular ab und der Bilschirm "bleibt so hängen". Wenn ich dann Perl über den Task-Manager kille, kommt natürlich ein Internal Server Error. Das liegt vielleicht auch daran, dass ich HTML::Template einsetze; das Skript wird also erst ganz durchlaufen, die zur Ausgabe nötigen Variablen werden gesammelt und erst ganz am Schluss erfolgt die Ausgabe.

@ Dieter:
Um hier das Problem zu sehen, reichen meine Informatik-Kenntnisse leider nicht aus ;-). Normalerweise funktioniert das ganze ja. Nur hier nicht bei zweimaligem Aufruf.

Der Aufruf sieht folgendermaßen aus:

Quote

# Bestelldaten ändern
elsif ( $cgi->param( 'updateOrder' ) ) {

   my ( $updateCartError ) = updateCart( $dbh, $cgi );

   unless ( $updateCartError eq "noNumber" ) {
       updateOrder( $dbh, $cgi );
   }

   displayProfile( $dbh, $cgi, $sh );

} # elsif updateOrder

Obige Berechnung wird in updateOrder() durchgeführt und danach in der Ausgabe-Funktion displayProfile(). Wenn ich displayProfile() nicht ausführe, läuft das Skript durch.