'unpay' => undef,
'hide' => undef,
'unhide' => undef,
+ 'buchung-input' => undef,
+ 'buchung-unpaid' => undef,
+ 'buchung-hidden' => undef,
+ 'list-categories' => undef,
);
my %options = (
'buchung-category|bc:s' => \$data{category},
'verbose' => \$opt_verbose,
'help' => \&usage,
'dm' => sub {$table = "sales_dm"},
- 'buchung-input|bi' => \&buchung_input,
- 'buchung-unpaid|bu' => \&buchung_unpaid,
- 'buchung-hidden|bh' => \&buchung_hidden,
- 'list-categories|lc' => \&list_categories,
+ 'buchung-input|bi' => \$data{'buchung-input'},
+ 'buchung-unpaid|bu' => \$data{'buchung-unpaid'},
+ 'buchung-hidden|bh' => \$data{'buchung-hidden'},
+ 'list-categories|lc' => \$data{'list-categories'},
);
GetOptions(%options);
sales_list;
}
exit;
+} elsif (defined $data{'buchung-input'}) {
+ buchung_input;
+} elsif (defined $data{'buchung-unpaid'}) {
+ buchung_unpaid;
+} elsif (defined $data{'buchung-hidden'}) {
+ buchung_hidden;
+} elsif (defined $data{'list-categories'}) {
+ list_categories;
} elsif (defined $data{pay}) {
pay_invoce($data{pay}, 1);
} elsif (defined $data{unpay}) {