[Koha-patches] [PATCH] DB update for 'editholdings' permission.
Mason James
mason.loves.sushi at gmail.com
Tue May 13 22:17:31 CEST 2008
---
installer/data/mysql/updatedatabase.pl | 12 +++++++++++-
kohaversion.pl | 2 +-
2 files changed, 12 insertions(+), 2 deletions(-)
diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index e6a23c4..84221be 100755
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -1549,13 +1549,23 @@ if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
SetVersion ($DBversion);
}
-$DBversion = "3.00.00.083";
+$DBversion = "3.00.00.083";
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
$dbh->do( qq(UPDATE systempreferences SET value='local' where variable='yuipath' and value like "%/intranet-tmpl/prog/%"));
print "Upgrade to $DBversion done (Changing yuipath behaviour in managing a local value)\n";
SetVersion ($DBversion);
}
+
+$DBversion = "3.00.00.084";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do("UPDATE userflags set bit = 18 where bit = 10");
+ $dbh->do("UPDATE userflags set flagdesc = 'Edit Catalogue (Modify bibliographic-level data)' where flag = 'editcatalogue')");
+ $dbh->do("INSERT INTO `userflags` VALUES (10,'editholdings',' Edit Holdings (Modify holdings-level data)',0");
+ print "Upgrade to $DBversion done (Adding 'editholdings' staff access permission)\n";
+ SetVersion ($DBversion);
+}
+
=item DropAllForeignKeys($table)
Drop all foreign keys of the table $table
diff --git a/kohaversion.pl b/kohaversion.pl
index 8b3e02d..f1e6135 100644
--- a/kohaversion.pl
+++ b/kohaversion.pl
@@ -10,7 +10,7 @@
use strict;
sub kohaversion {
- our $VERSION = "3.00.00.083";
+ our $VERSION = "3.00.00.084";
# version needs to be set this way
# so that it can be picked up by Makefile.PL
# during install
--
1.5.4.2
More information about the Koha-patches
mailing list