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 # @charset: utf-8
   5
   6 use utf8;
   7 use strict;
   8
   9 die("This script cannot be run from the command line.") unless ($main::form);
  10
  11 sub mydberror {
  12   my ($msg) = @_;
  13   die($dbup_locale->text("Database update error:") . "<br>$msg<br>" . $DBI::errstr);
  14 }
  15
  16 sub do_query {
  17   my ($query, $may_fail) = @_;
  18
  19   if (!$dbh->do($query)) {
  20     mydberror($query) unless ($may_fail);
  21     $dbh->rollback();
  22     $dbh->begin_work();
  23   }
  24 }
  25
  26
  27 sub do_update {
  28   my $query = qq|UPDATE ar SET curr = RTRIM(LTRIM(curr))|;
  29   do_query($query);
  30   $query = qq|UPDATE ap SET curr = RTRIM(LTRIM(curr))|;
  31   do_query($query);
  32   $query = qq|UPDATE oe SET curr = RTRIM(LTRIM(curr))|;
  33   do_query($query);
  34   $query = qq|UPDATE customer SET curr = RTRIM(LTRIM(curr))|;
  35   do_query($query);
  36   $query = qq|UPDATE delivery_orders SET curr = RTRIM(LTRIM(curr))|;
  37   do_query($query);
  38   $query = qq|UPDATE exchangerate SET curr = RTRIM(LTRIM(curr))|;
  39   do_query($query);
  40   $query = qq|UPDATE vendor SET curr = RTRIM(LTRIM(curr))|;
  41   do_query($query);
  42
  43   $query = qq|SELECT curr FROM defaults|;
  44   my ($curr)     = selectrow_query($self, $dbh, $query);
  45
  46   $curr  =~ s/ //g;
  47
  48   $query = qq|UPDATE defaults SET curr = '$curr'|;
  49   do_query($query);
  50   return 1;
  51 };
  52
  53 return do_update();