2 # @description: Entfernt mögliche Leerzeichen am Anfang und Ende jeder Währung
3 # @depends: release_3_0_0
9 die("This script cannot be run from the command line.") unless ($main::form);
13 die($dbup_locale->text("Database update error:") . "<br>$msg<br>" . $DBI::errstr);
17 my ($query, $may_fail) = @_;
19 if (!$dbh->do($query)) {
20 mydberror($query) unless ($may_fail);
28 my $query = qq|UPDATE ar SET curr = RTRIM(LTRIM(curr))|;
30 $query = qq|UPDATE ap SET curr = RTRIM(LTRIM(curr))|;
32 $query = qq|UPDATE oe SET curr = RTRIM(LTRIM(curr))|;
34 $query = qq|UPDATE customer SET curr = RTRIM(LTRIM(curr))|;
36 $query = qq|UPDATE delivery_orders SET curr = RTRIM(LTRIM(curr))|;
38 $query = qq|UPDATE exchangerate SET curr = RTRIM(LTRIM(curr))|;
40 $query = qq|UPDATE vendor SET curr = RTRIM(LTRIM(curr))|;
43 $query = qq|SELECT curr FROM defaults|;
44 my ($curr) = selectrow_query($self, $dbh, $query);
48 $query = qq|UPDATE defaults SET curr = '$curr'|;