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;