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   my $query = qq|UPDATE ar SET curr = RTRIM(LTRIM(curr))|;
  15   $self->db_query($query);
  16   $query = qq|UPDATE ap SET curr = RTRIM(LTRIM(curr))|;
  17   $self->db_query($query);
  18   $query = qq|UPDATE oe SET curr = RTRIM(LTRIM(curr))|;
  19   $self->db_query($query);
  20   $query = qq|UPDATE customer SET curr = RTRIM(LTRIM(curr))|;
  21   $self->db_query($query);
  22   $query = qq|UPDATE delivery_orders SET curr = RTRIM(LTRIM(curr))|;
  23   $self->db_query($query);
  24   $query = qq|UPDATE exchangerate SET curr = RTRIM(LTRIM(curr))|;
  25   $self->db_query($query);
  26   $query = qq|UPDATE vendor SET curr = RTRIM(LTRIM(curr))|;
  27   $self->db_query($query);
  28
  29   $query = qq|SELECT curr FROM defaults|;
  30   my ($curr)     = $self->dbh->selectrow_array($query);
  31
  32   $curr  =~ s/ //g;
  33
  34   $query = qq|UPDATE defaults SET curr = '$curr'|;
  35   $self->db_query($query);
  36   return 1;
  37 };
  38
  39 1;