sql/Pg-upgrade2/auth_enable_sales_all_edit.pl

   1 # @tag: auth_enable_sales_all_edit
   2 # @description: Neues gruppenbezogenes Recht für den Bereich Verkauf hinzugefügt (sales_all_edit := Nur wenn angehakt, können Verkaufsdokumente von anderen Bearbeitern eingesehen werden) Das Skript hakt standardmässig dieses Recht an, sodass es keinen Unterschied zu vorhergehenden Version gibt.
   3 # @depends: release_2_6_0
   4 # @charset: utf-8
   5
   6 use strict;
   7 use Data::Dumper;
   8 die("This script cannot be run from the command line.") unless ($main::form);
   9
  10 sub mydberror {
  11   my ($msg) = @_;
  12   die($dbup_locale->text("Database update error:") .
  13       "<br>$msg<br>" . $DBI::errstr);
  14 }
  15
  16 sub do_query {
  17   my ($query, $may_fail) = @_;
  18
  19   if (!$dbh->do($query)) {
  20     mydberror($query) unless ($may_fail);
  21     $dbh->rollback();
  22     $dbh->begin_work();
  23   }
  24 }
  25
  26 sub do_update {
  27   my @queries;
  28
  29 #  do_query("ALTER TABLE project ADD PRIMARY KEY (id);", 1);
  30 #  map({ do_query($_, 0); } @queries);
  31 #  print "hieryy";
  32 #  print (Dumper($main::form));
  33   my $dbh = $main::auth->dbconnect();
  34   my $query = qq|SELECT distinct group_id from auth.user_group|;
  35   my $sth_all_groups = prepare_execute_query($form, $dbh, $query);
  36   while (my $hash_ref = $sth_all_groups->fetchrow_hashref()) {  # Schleife
  37     push @queries, "INSERT INTO auth.group_rights (group_id, \"right\", granted) VALUES (" . $hash_ref->{group_id} . ", 'sales_all_edit', 't')";
  38 }
  39 # if in doubt use brute force ;-) jb
  40   foreach my $query (@queries){
  41 #    print "hier:" . $query;
  42     my $dbh = $main::auth->dbconnect();
  43     my $sth   = prepare_query($form, $dbh, $query);
  44     do_statement($form,$sth,$query);
  45     $sth->finish();
  46     $dbh ->commit();
  47 }
  48   return 1;
  49 }
  50
  51 return do_update();
  52