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
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
