Merge branch 'b-3.6.1' of ../kivitendo-erp_20220811
[kivitendo-erp.git] / SL / Presenter / BankAccount.pm
index 13a8cb2..925dd97 100644 (file)
@@ -2,21 +2,21 @@ package SL::Presenter::BankAccount;
 
 use strict;
 
-use parent qw(Exporter);
+use SL::Presenter::EscapedText qw(escape);
 
 use Exporter qw(import);
-our @EXPORT = qw(account_number bank_code);
+our @EXPORT_OK = qw(account_number bank_code);
 
 use Carp;
 
 sub account_number {
-  my ($self, $bank_account) = @_;
-  return $self->escaped_text($bank_account->account_number);
+  my ($bank_account) = @_;
+  escape($bank_account->account_number);
 }
 
 sub bank_code {
-  my ($self, $bank_account) = @_;
-  return $self->escaped_text($bank_account->bank_code);
+  my ($bank_account) = @_;
+  escape($bank_account->bank_code);
 }
 
 1;