Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c1716dbd

Von Moritz Bunkus vor fast 14 Jahren hinzugefügt

  • ID c1716dbdeb0ba6d2cd9c708a2c54b9845e9532b4
  • Vorgänger 56a7606e
  • Nachfolger 39d61f60

Unterstützung für die XML-Ausgabe von Lastschriften

Unterschiede anzeigen:

SL/SEPA/XML/Transaction.pm
25 25 
  $self->{sepa}  = $params{sepa};
26 26 
  delete $params{sepa};
27 27 

  		




  28
  
  
    
  my $missing_parameter = first { !$params{$_} } qw(src_iban src_bic dst_iban dst_bic recipient reference amount end_to_end_id);


  		




  
  28
  
    
  my $missing_parameter = first { !$params{$_} } qw(src_iban src_bic dst_iban dst_bic company reference amount end_to_end_id);


  		




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


  		




  30
  30
  
    

  		




  31
  31
  
    
  $params{end_to_end_id}  ||= 'NOTPROVIDED';


  		




  ......




  35
  35
  
    

  		




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


  		




  37
  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);


  		




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


  		




  39
  39
  
    
}


  		




  40
  40
  
    

  		




  41
  41
  
    
sub get {


  		












Auch abrufbar als:  Unified diff