_replace_special_chars in Helper ausgelagert.

[mfinanz.git] / SL / SEPA / XML.pm

diff --git a/SL/SEPA/XML.pm b/SL/SEPA/XML.pm
index 8ccfa837452d2d9627cd72d458e54372c27185a7..54df4eda61b410c66654a777bdf4a15b28fc2030 100644 (file)
--- a/SL/SEPA/XML.pm
+++ b/SL/SEPA/XML.pm
@@ -12,6 +12,7 @@ use XML::Writer;
 
 use SL::Iconv;
 use SL::SEPA::XML::Transaction;
 
 use SL::Iconv;
 use SL::SEPA::XML::Transaction;

+use SL::DB::Helper::ReplaceSpecialChars qw(replace_special_chars);

 
 sub new {
   my $class = shift;
 
 sub new {
   my $class = shift;


@@ -40,7 +41,7 @@ sub _init {
   croak "Missing parameter: $missing_parameter" if ($missing_parameter);
   croak "Missing parameter: creditor_id"        if !$self->{creditor_id} && $self->{collection};
 
   croak "Missing parameter: $missing_parameter" if ($missing_parameter);
   croak "Missing parameter: creditor_id"        if !$self->{creditor_id} && $self->{collection};
 

-  map { $self->{$_} = $self->_replace_special_chars($self->{iconv}->convert($self->{$_})) } qw(company message_id creditor_id);
+  map { $self->{$_} = replace_special_chars($self->{iconv}->convert($self->{$_})) } qw(company message_id creditor_id);

 }
 
 sub add_transaction {
 }
 
 sub add_transaction {


@@ -54,26 +55,6 @@ sub add_transaction {
   return 1;
 }
 
   return 1;
 }
 

-sub _replace_special_chars {
-  my $self = shift;
-  my $text = shift;
-
-  my %special_chars = (
-    'ä' => 'ae',
-    'ö' => 'oe',
-    'ü' => 'ue',
-    'Ä' => 'Ae',
-    'Ö' => 'Oe',
-    'Ü' => 'Ue',
-    'ß' => 'ss',
-    '&' => '+',
-    );
-
-  map { $text =~ s/$_/$special_chars{$_}/g; } keys %special_chars;
-
-  return $text;
-}
-

 sub _format_amount {
   my $self   = shift;
   my $amount = shift;
 sub _format_amount {
   my $self   = shift;
   my $amount = shift;