sql/Pg-upgrade2/defaults_show_bestbefore.pl

   1 # @tag: defaults_show_bestbefore
   2 # @description: Einstellung, ob Mindesthaltbarkeitsdatum angezeigt wird, vom Config-File in die DB verlagern.
   3 # @depends: release_2_7_0
   4 package SL::DBUpgrade2::defaults_show_bestbefore;
   5
   6 use strict;
   7 use utf8;
   8
   9 use parent qw(SL::DBUpgrade2::Base);
  10
  11 sub run {
  12   my ($self) = @_;
  13
  14   # this query will fail if column already exist (new database)
  15   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN show_bestbefore boolean DEFAULT false|, may_fail => 1);
  16
  17   # check current configuration and set default variables accordingly, so that
  18   # kivitendo behaviour isn't changed by this update
  19   # if show_best_before is not set in config set it to 0
  20   my $show_bestbefore = 0;
  21   if ($::lx_office_conf{features}->{show_best_before}) {
  22     $show_bestbefore = 1;
  23   }
  24
  25   my $update_column = "UPDATE defaults SET show_bestbefore = '$show_bestbefore';";
  26   $self->db_query($update_column);
  27
  28   return 1;
  29 }
  30
  31 1;