CustomerVendor POD korrigiert
[kivitendo-erp.git] / sql / Pg-upgrade2 / rm_whitespaces.pl
1 # @tag: rm_whitespaces
2 # @description: Entfernt mögliche Leerzeichen am Anfang und Ende jeder Währung
3 # @depends: release_3_0_0
4
5 package SL::DBUpgrade2::rm_whitespaces;
6
7 use parent qw(SL::DBUpgrade2::Base);
8
9 use utf8;
10 use strict;
11
12 sub run {
13   my ($self) = @_;
14
15   my $query;
16
17   foreach my $table (qw(ar ap oe customer delivery_orders exchangerate vendor)){
18     $self->db_query(qq|UPDATE ${table} SET curr=BTRIM(curr)|)
19   }
20
21   $query = qq|SELECT curr FROM defaults|;
22   my ($curr)     = $self->dbh->selectrow_array($query);
23
24   $curr  =~ s/ //g;
25
26   $query = qq|UPDATE defaults SET curr = '$curr'|;
27   $self->db_query($query);
28   return 1;
29 };
30
31 1;