sql/Pg-upgrade2/defaults_feature.pl

   1 # @tag: defaults_feature
   2 # @description: Einstellen der Feature vom Config-File in die DB verlagern.
   3 # @depends: release_3_0_0
   4 package SL::DBUpgrade2::defaults_feature;
   5
   6 use utf8;
   7
   8 use parent qw(SL::DBUpgrade2::Base);
   9 use strict;
  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 webdav              boolean DEFAULT false|);
  16   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN webdav_documents    boolean DEFAULT false|);
  17   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN vertreter           boolean DEFAULT false|);
  18   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN parts_show_image    boolean DEFAULT true|);
  19   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN parts_listing_image boolean DEFAULT true|);
  20   $self->db_query(qq|ALTER TABLE defaults ADD COLUMN parts_image_css     text    DEFAULT 'border:0;float:left;max-width:250px;margin-top:20px:margin-right:10px;margin-left:10px;'|);
  21
  22   # check current configuration and set default variables accordingly, so that
  23   # kivitendo's behaviour isn't changed by this update
  24   my %old_defaults = ( parts_show_image => 1 );
  25
  26   foreach my $check (qw(webdav vertreter parts_show_image parts_listing_image)) {
  27     my $check_set = exists $::lx_office_conf{features}->{$check} ? $::lx_office_conf{features}->{$check} : $old_defaults{$check};
  28     $self->db_query("UPDATE defaults SET $check = ?", bind => [ $check_set ? 1 : 0 ]);
  29   }
  30
  31   if (exists $::lx_office_conf{features}->{parts_image_css}) {
  32     my $update_column = "UPDATE defaults SET parts_image_css = ?";
  33     $self->db_query($update_column, bind => [ $::lx_office_conf{features}->{parts_image_css} ]);
  34   }
  35
  36   return 1;
  37 }
  38
  39 1;