Umstellung von eur zu 3 Variablen in defaults

[kivitendo-erp.git] / sql / Pg-upgrade2 / umstellung_eur.pl

diff --git a/sql/Pg-upgrade2/umstellung_eur.pl b/sql/Pg-upgrade2/umstellung_eur.pl
new file mode 100644 (file)
index 0000000..560bf64
--- /dev/null
+++ b/sql/Pg-upgrade2/umstellung_eur.pl
@@ -0,0 +1,75 @@
+# @tag: umstellung_eur
+# @description: Variable eur umstellen: bitte doc/umstellung_eur.txt lesen
+# @depends: units_id
+# @charset: utf-8
+
+# this script relies on $eur still being set in lx_office.conf, and the
+# variable available in $::lx_office_conf{system}->{eur}
+# better @depends would be release_2_6_3
+
+use utf8;
+#use strict;
+use Data::Dumper;
+die("This script cannot be run from the command line.") unless ($main::form);
+
+sub mydberror {
+  my ($msg) = @_;
+  die($dbup_locale->text("Database update error:") .
+      "<br>$msg<br>" . $DBI::errstr);
+}
+
+sub do_query {
+  my ($query, $may_fail) = @_;
+
+  if (!$dbh->do($query)) {
+    mydberror($query) unless ($may_fail);
+    $dbh->rollback();
+    $dbh->begin_work();
+  }
+}
+
+sub do_update {
+
+  # check if accounting_method has already been set (new database), if so return
+  # only set variables according to eur for update of existing database
+
+
+  foreach my $column (qw(accounting_method inventory_system profit_determination)) {
+    # this query will fail if columns already exist (new database)
+    do_query(qq|ALTER TABLE defaults ADD COLUMN ${column} TEXT|, 1);
+  }
+
+  my $accounting_method;
+  my $inventory_system;
+  my $profit_determination;
+
+  # check current configuration and set default variables accordingly, so that
+  # Lx-Office behaviour isn't changed by this update
+
+  if ($::lx_office_conf{system}->{eur} == 0 ) {
+    $accounting_method = 'accrual';
+    $inventory_system = 'perpetual';
+    $profit_determination = 'balance';
+  } elsif ( $::lx_office_conf{system}->{eur} == 1 ) {
+    $accounting_method = 'cash';
+    $inventory_system = 'periodic';
+    $profit_determination = 'income';
+  } else {
+    die "illegal configuration of eur, must be 0 or 1, not " . $::lx_office_conf{system}->{eur} . "\n";
+    # or maybe just return 1, dont do anything, because we assume everything is
+    # already set, or has maybe already been deleted
+  };
+
+  # only set parameters if they haven't already been set (this in only the case
+  # when upgrading)
+
+  my $update_eur = "UPDATE defaults set accounting_method = '$accounting_method' where accounting_method is null;" . 
+                   "UPDATE defaults set inventory_system = '$inventory_system' where inventory_system is null; " .
+                   "UPDATE defaults set profit_determination = '$profit_determination' where profit_determination is null;";
+  do_query($update_eur);
+
+  return 1;
+}
+
+return do_update();
+