Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8add0ccd

Von Bernd Blessmann vor etwa 13 Jahren hinzugefügt

  • ID 8add0ccd27ab0ff17256b74dccd1f761c0d09182
  • Vorgänger 8084ef35
  • Nachfolger 80b36869

Leerzeichen am Ende bei curr(ency) entfernen.

In der Datenbank werden f. Währungen drei Zeichen gespeichert. Eine
Währung mit zwei Zeichen hat dann ein Leerzeichen am Ende und der
Vergleich in den Maske schlägt fehl, wenn es dort bleibt.

Unterschiede anzeigen:

SL/Form.pm
2968 2968
      $self->{$key} = $ref->{$key};
2969 2969
    }
2970 2970

  
2971
    # remove any trailing whitespace
2972
    $self->{currency} =~ s/\s*$//;
2973

  
2971 2974
    my $transdate = "current_date";
2972 2975
    if ($self->{transdate}) {
2973 2976
      $transdate = $dbh->quote($self->{transdate});
......
3144 3147

  
3145 3148
  map { $self->{$_} = $ref->{$_} } values %column_map;
3146 3149

  
3150
  # remove any trailing whitespace
3151
  $self->{currency} =~ s/\s*$// if $self->{currency};
3152

  
3147 3153
  $main::lxdebug->leave_sub();
3148 3154
}
3149 3155

  

Auch abrufbar als: Unified diff