[Koha-patches] [PATCH 27/55] (MT 2260 MT 2263) Adding updatedatabase scripts

[Henri-Damien LAURENT]

updatedatabase for debarred user management
---
 installer/data/mysql/updatedatabase.pl |   11 +++++++++++
 kohaversion.pl                         |    2 +-
 2 files changed, 12 insertions(+), 1 deletions(-)

diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
index f1db35d..ed1cf7c 100755
--- a/installer/data/mysql/updatedatabase.pl
+++ b/installer/data/mysql/updatedatabase.pl
@@ -3572,6 +3572,17 @@ if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
     SetVersion ($DBversion);
 }
 
+$DBversion = "3.01.00.130";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+	my $borrowers=$dbh->selectall_arrayref("SELECT borrowernumber from borrowers where debarred <>0;",[0]);
+	$dbh->do("ALTER TABLE borrowers MODIFY debarred DATE DEFAULT NULL;");
+	$dbh->do("UPDATE borrowers set debarred='9999-12-31' where borrowernumber IN (".join (",",@$borrowers).");");
+	$dbh->do("ALTER TABLE borrowers ADD COLUMN debarredcomment VARCHAR(255) DEFAULT NULL AFTER debarred;");
+	print "Upgrade done (Change borrowers.debarred into Date )\n";
+
+    SetVersion ($DBversion);
+}
+
 
 =item DropAllForeignKeys($table)
 
diff --git a/kohaversion.pl b/kohaversion.pl
index 884c0e2..509c6e2 100644
--- a/kohaversion.pl
+++ b/kohaversion.pl
@@ -10,7 +10,7 @@
 use strict;
 
 sub kohaversion {
-    our $VERSION = '3.01.00.129';
+    our $VERSION = '3.01.00.130';
     # version needs to be set this way
     # so that it can be picked up by Makefile.PL
     # during install
-- 
1.6.3.3