projekt kivitendo

  my $qr_account;

  my $bank_accounts = SL::DB::Manager::BankAccount->get_all_sorted;

  $qr_account = first { $_->use_for_qrbill } @{ $bank_accounts };

  if (!$qr_account) {

  my $amount = $_[0];

  # parameter should be a string containing a number

  unless ($amount =~ /^\d+\.\d{2}$/) {

    return undef;

  }