Changeset 17

Timestamp:

10/24/10 20:24:44 (19 months ago)

Author:

solar

Message:

 

Files:

• flohkasse/flohkasse (modified) (5 diffs)

flohkasse/flohkasse

@@ -4 +4 @@
 # $HeadURL$
 
-my $VERSION = "v1.0 alpha 3";
+my $VERSION = "v1.0 alpha 4";
 
 # "Flohkasse"
@@ -60 +60 @@
 sub print_both( $ )
 {
-    my ( $string ) = @ARGV;
+    my ( $string ) = @_;
     print $string;
     print $kassenrolle $string;
@@ -178 +178 @@
             while ( 1 )
             {
-                $summe = <$kassenrolle>;
+                $_ = <$kassenrolle>;
+                last if ( /^# Summe: / );
+                next if ( /^#/ );
                 die "Unerwartetes Dateieinde bei Suche nach Storno - DATEI KORRUPT\n" if eof;
-                last if ( $summe =~ /# Summe: / );
-                my ( $verk, $preis ) = split( $summe );
-                my $logline = sprintf( " %5d\t-%8.2f\n", $verk, $preis );
+                my ( $verk, $preis ) = split();
+                $preis =~ s/,/./;
+                $preis *= -1;
+                my $logline = sprintf( " %5d\t%8.2f\n", $verk, $preis );
                 $logline =~ s/\./,/;
                 $storno .= $logline;
             }
-            chomp( $summe );
-            $summe =~ s/# Summe: //;
-            $summe =~ s/ €//;
-            $summe =~ s/,/./;
+            chomp;
+            s/# Summe: //;
+            s/ €//;
+            s/,/./;
+            $summe = $_;
             last;
+        }
+    }
+    if ( "$summe" eq "" )
+    {
+        close( $kassenrolle );
+        open( $kassenrolle, ">> $kassenrolle_dateiname" )
+            || die "FEHLER beim Öffnen der Kassenrolle ($kassenrolle_dateiname)!";
+        print_both "### FEHLER: Bon #$storno_bon nicht gefunden. Kein Storno.\n";
+        return;
+    }
+    while ( <$kassenrolle> )
+    {
+        if ( /# STORNO BON #$storno_bon/ )
+        {
+            close( $kassenrolle );
+            open( $kassenrolle, ">> $kassenrolle_dateiname" )
+                || die "FEHLER beim Öffnen der Kassenrolle ($kassenrolle_dateiname)!";
+            print_both "\n### FEHLER: Bon #$storno_bon ist bereits storniert.\n\n";
+            return;
         }
     }
@@ -196 +219 @@
     open( $kassenrolle, ">> $kassenrolle_dateiname" )
         || die "FEHLER beim Öffnen der Kassenrolle ($kassenrolle_dateiname)!";
-    if ( "$summe" eq "" )
-    {
-        print_both "### FEHLER: Bon #$storno_bon nicht gefunden. Kein Storno.\n";
-        return;
-    }
     print "\n$storno\n# Summe: $summe €\n\nWIRKLICH STORNIEREN? (j/n)\n";
     my $confirm = <STDIN>;
-    chump $confirm;
+    chomp $confirm;
     if ( $confirm =~ /^[jJ]/ )
     {
@@ -309 +327 @@
 print $kassenrolle "# Eingabe zu beginnen.\n\n";
 system( "killall xterm >/dev/null 2>&1" );
-system( "xterm -T Kassenrolle -sb -rightbar -e \"tail -f $kassenrolle_dateiname\" &" );
+system( "xterm -T Kassenrolle -sb -rightbar -e \"tail -n+1 -f $kassenrolle_dateiname\" &" );
 print "Nebenan sollte jetzt die Kassenrolle zu sehen sein.\n";
 print "Bitte in dieses Fenster klicken, um die Eingabe zu starten!\n\n";