sql/Pg-upgrade2-auth/customer_vendor_record_extra_tab_rights.pl

   1 # @tag: customer_vendor_record_extra_tab_rights
   2 # @description: Setzt Rechte um bei Kunden/Lieferanten einen Extratab anzeigen zu lassen, der Belege anzeigt per Default erlaubt
   3 # @depends: release_3_5_2
   4 # @locales: Show record tab in customer
   5 # @locales: Show record tab in vendor
   6 package SL::DBUpgrade2::Auth::customer_vendor_record_extra_tab_rights;
   7
   8 use strict;
   9 use utf8;
  10
  11 use parent qw(SL::DBUpgrade2::Base);
  12
  13 use SL::DBUtils;
  14
  15 sub run {
  16   my ($self) = @_;
  17
  18   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES ( 610,  'show_extra_record_tab_customer',   'Show record tab in customer')");
  19   $self->db_query("INSERT INTO auth.master_rights (position, name, description) VALUES ( 611,  'show_extra_record_tab_vendor',   'Show record tab in vendor')");
  20
  21   my $groups = $main::auth->read_groups();
  22
  23   foreach my $group (values %{$groups}) {
  24     $group->{rights}->{show_extra_record_tab_customer}   = 1;
  25     $group->{rights}->{show_extra_record_tab_vendor}     = 1;
  26     $main::auth->save_group($group);
  27   }
  28
  29   return 1;
  30 } # end run
  31
  32 1;