[Koha-patches] [PATCH] DB update for 'editholdings' permission.

Mason James mason.loves.sushi at gmail.com
Wed May 14 14:34:58 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