projekt kivitendo

sub dispatcher {

  my $form     = $main::form;

  my $locale   = $main::locale;

  foreach my $action (qw(delete delivery_order e_mail invoice print purchase_order purchase_order quotation

                         request_for_quotation sales_order sales_order save save_and_close save_as_new ship_to update)) {

    if ($form->{"action_${action}"}) {

      call_sub($action);

      return;

    }

  }

  $form->error($locale->text('No action defined.'));

}