From 79331b4910fb59a8c78013c6efb974d2bbbc4874 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@lx-office-hosting.de>
Date: Wed, 30 Nov 2011 12:18:14 +0100
Subject: [PATCH] =?utf8?q?Neues=20Recht=20'Schreibgesch=C3=BCtzte=20Preise?=
 =?utf8?q?'=20hinzugef=C3=BCgt=20und=20als=20Standard=20aktiviert=20gesetz?=
 =?utf8?q?t.=20Zus=C3=A4tzliches=20Recht=20edit=5Fprices=20f=C3=BCr=20das?=
 =?utf8?q?=20cgi->textfield=20Attribut=20readonly=20bei=20Preisen=20und=20?=
 =?utf8?q?Rabatten=20hinzugef=C3=BCgt.=20Das=20Upgrade-Skript=20hakt=20sta?=
 =?utf8?q?ndardm=C3=A4ssig=20dieses=20Recht=20an,=20sodass=20es=20keinen?=
 =?utf8?q?=20Unterschied=20zu=20vorhergehenden=20Version=20gibt=20(analog?=
 =?utf8?q?=20zu=20auth=5Fenable=5Fsales=5Fall=5Fedit.pl).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 sql/Pg-upgrade2/auth_enable_edit_prices.pl | 50 ++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 sql/Pg-upgrade2/auth_enable_edit_prices.pl

diff --git a/sql/Pg-upgrade2/auth_enable_edit_prices.pl b/sql/Pg-upgrade2/auth_enable_edit_prices.pl
new file mode 100644
index 000000000..dbe3eb32b
--- /dev/null
+++ b/sql/Pg-upgrade2/auth_enable_edit_prices.pl
@@ -0,0 +1,50 @@
+# @tag: auth_enable_edit_prices
+# @description: Zusätzliches Recht readonly für das Attribut readonly bei Preisen und Rabatten im Textfeld. Das Skript hakt standardmässig dieses Recht an, sodass es keinen Unterschied zu vorhergehenden Version gibt.
+# @depends: release_2_6_3
+# @charset: utf-8
+
+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_update {
+  my $dbh   = $main::auth->dbconnect();
+  my $query = <<SQL;
+    SELECT id
+    FROM auth."group"
+    WHERE NOT EXISTS(
+      SELECT group_id
+      FROM auth.group_rights
+      WHERE (auth.group_rights.group_id = auth."group".id)
+        AND (auth.group_rights."right"  = 'edit_prices')
+    )
+SQL
+
+  my @group_ids = selectall_array_query($form, $dbh, $query);
+  if (@group_ids) {
+    $query = <<SQL;
+      INSERT INTO auth.group_rights (group_id, "right",          granted)
+      VALUES                        (?,        'edit_prices', TRUE)
+SQL
+    my $sth = prepare_query($form, $dbh, $query);
+
+    foreach my $id (@group_ids) {
+      do_statement($form, $sth, $query, $id);
+    }
+
+    $sth->finish();
+    $dbh->commit();
+  }
+
+  return 1;
+}
+
+return do_update();
+
-- 
2.20.1