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.pm
8 8 
use List::Util qw(first sum);
9 9 
use List::MoreUtils qw(any);
10 10 
use POSIX qw(strftime);
11 
use Text::Iconv;
12 11 
use XML::Writer;
13 12 

  		




  
  13
  
    
use SL::Iconv;


  		




  14
  14
  
    
use SL::SEPA::XML::Transaction;


  		




  15
  15
  
    

  		




  16
  16
  
    
sub new {


  		




  ......




  34
  34
  
    

  		




  35
  35
  
    
  map { $self->{$_} = $params{$_} if (exists $params{$_}) } qw(src_charset company message_id grouped);


  		




  36
  36
  
    

  		




  37
  
  
    
  $self->{iconv} = Text::Iconv->new($self->{src_charset}, "UTF-8") || croak "Unsupported source charset $self->{src_charset}.";


  		




  
  37
  
    
  $self->{iconv} = SL::Iconv->new($self->{src_charset}, "UTF-8") || croak "Unsupported source charset $self->{src_charset}.";


  		




  38
  38
  
    

  		




  39
  39
  
    
  my $missing_parameter = first { !$self->{$_} } qw(company message_id);


  		




  40
  40
  
    
  croak "Missing parameter: $missing_parameter" if ($missing_parameter);


  		




  41
  41
  
    

  		




  42
  
  
    
  map { $self->{$_} = $self->_replace_special_chars(decode('UTF-8', $self->{iconv}->convert($self->{$_}))) } qw(company message_id);


  		




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


  		




  43
  43
  
    
}


  		




  44
  44
  
    

  		




  45
  45
  
    
sub add_transaction {


  		












Auch abrufbar als:  Unified diff