Switch to indirect function calls
authorJoey Schulze <joey@infodrom.org>
Sat, 7 Jun 2008 14:03:19 +0000 (14:03 +0000)
committerJoey Schulze <joey@infodrom.org>
Sat, 7 Jun 2008 14:03:19 +0000 (14:03 +0000)
src/InfoCon/buch/infocon

index 47c2f9a..49cd230 100755 (executable)
@@ -408,6 +408,10 @@ sub usage
     '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},
@@ -421,10 +425,10 @@ my %options = (
     '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);
@@ -444,6 +448,14 @@ if (defined $data{category}) {
        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}) {