Support in/visible rows
authorJoey Schulze <joey@infodrom.org>
Wed, 24 Mar 2010 16:51:38 +0000 (16:51 +0000)
committerJoey Schulze <joey@infodrom.org>
Wed, 24 Mar 2010 16:51:38 +0000 (16:51 +0000)
src/InfoCon/buch/infocon

index c862d51..afdf50c 100755 (executable)
@@ -152,9 +152,15 @@ sub sales_list
        }
     }
 
+    if ($where !~ /visible/) {
+       $where .= " AND " if $where;
+       $where .= "visible = 1";
+    }
+
     $query  = "SELECT nr,date,description,price FROM $table";
     $query .= " WHERE $where" if ($where);
     $query .= " ORDER by date,nr";
+
     $sth = $dbh->prepare($query);
     if ($sth && (my $rc = $sth->execute) > 0) {
        print " Nr.   Datum  Bezeichnung                                 Betrag\n";
@@ -421,7 +427,7 @@ my %options = (
     'hide=s' => \$data{hide},
     'unhide=s' => \$data{unhide},
     'year=i' => \$opt_year,
-    'direction=s' => \$opt_direction,
+    'direction|d=s' => \$opt_direction,
     'mailto:s' => \$data{mailto},
     'all' => \$opt_all,
     'verbose' => \$opt_verbose,