Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision cc042e07

Von Sven Schöling vor mehr als 14 Jahren hinzugefügt

  • ID cc042e07ef78786b758b22cee75509815e59ba5b
  • Vorgänger 5367525b
  • Nachfolger ad7353df

UTF8-Flags setzen/beachten

Conflicts:

SL/ReportGenerator.pm

Unterschiede anzeigen:

SL/SEPA/XML/Transaction.pm
6 6 
use Encode;
7 7 
use List::Util qw(first);
8 8 
use POSIX qw(strftime);
9 
use Text::Iconv;
10 9 

  		




  11
  10
  
    
sub new {


  		




  12
  11
  
    
  my $class = shift;


  		




  ......




  34
  33
  
    

  		




  35
  34
  
    
  croak "Execution date format wrong for '$params{execution_date}': not YYYY-MM-DD." if ($params{execution_date} !~ /^\d{4}-\d{2}-\d{2}$/);


  		




  36
  35
  
    

  		




  37
  
  
    
  map { $self->{$_} = decode('UTF-8', $self->{sepa}->{iconv}->convert($params{$_})) } keys %params;


  		




  38
  
  
    
  map { $self->{$_} =~ s/\s+//g                                                     } qw(src_iban src_bic dst_iban dst_bic);


  		




  39
  
  
    
  map { $self->{$_} = $self->{sepa}->_replace_special_chars($self->{$_})            } qw(recipient reference end_to_end_id);


  		




  
  36
  
    
  map { $self->{$_} = $self->{sepa}->{iconv}->convert($params{$_})       } keys %params;


  		




  
  37
  
    
  map { $self->{$_} =~ s/\s+//g                                          } qw(src_iban src_bic dst_iban dst_bic);


  		




  
  38
  
    
  map { $self->{$_} = $self->{sepa}->_replace_special_chars($self->{$_}) } qw(recipient reference end_to_end_id);


  		




  40
  39
  
    
}


  		




  41
  40
  
    

  		




  42
  41
  
    
sub get {


  		












Auch abrufbar als:  Unified diff