kivitendo/sql/Pg-upgrade2/rm_whitespaces.pl @ 7b1da9c3
| 9c8450d9 | Niclas Zimmermann | # @tag: rm_whitespaces
|
||
# @description: Entfernt mögliche Leerzeichen am Anfang und Ende jeder Währung
|
||||
# @depends: release_3_0_0
|
||||
| 714a28b1 | Niclas Zimmermann | package SL::DBUpgrade2::rm_whitespaces;
|
||
| 9c8450d9 | Niclas Zimmermann | |||
| 714a28b1 | Niclas Zimmermann | use parent qw(SL::DBUpgrade2::Base);
|
||
| 9c8450d9 | Niclas Zimmermann | |||
| 714a28b1 | Niclas Zimmermann | use utf8;
|
||
use strict;
|
||||
| 9c8450d9 | Niclas Zimmermann | |||
| 714a28b1 | Niclas Zimmermann | sub run {
|
||
my ($self) = @_;
|
||||
| a4d74009 | Niclas Zimmermann | |||
my $query;
|
||||
foreach my $table (qw(ar ap oe customer delivery_orders exchangerate vendor)){
|
||||
$self->db_query(qq|UPDATE ${table} SET curr=BTRIM(curr)|)
|
||||
}
|
||||
| 9c8450d9 | Niclas Zimmermann | |||
$query = qq|SELECT curr FROM defaults|;
|
||||
| 714a28b1 | Niclas Zimmermann | my ($curr) = $self->dbh->selectrow_array($query);
|
||
| 9c8450d9 | Niclas Zimmermann | |||
$curr =~ s/ //g;
|
||||
$query = qq|UPDATE defaults SET curr = '$curr'|;
|
||||
| 714a28b1 | Niclas Zimmermann | $self->db_query($query);
|
||
| 9c8450d9 | Niclas Zimmermann | return 1;
|
||
};
|
||||
| 714a28b1 | Niclas Zimmermann | 1;
|