Bug 19524: DBRev 18.06.006

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Koha.pm

@@ -29,7 +29,7 @@ use vars qw{ $VERSION };
 # - #4 : the developer version. The 4th number is the database subversion.
 #        used by developers when the database changes. updatedatabase take care of the changes itself
 #        and is automatically called by Auth.pm when needed.
-$VERSION = "18.06.00.005";
+$VERSION = "18.06.00.006";
 
 sub version {
     return $VERSION;

Koha/Schema/Result/PatronList.pm

@@ -41,6 +41,12 @@ __PACKAGE__->table("patron_lists");
   is_foreign_key: 1
   is_nullable: 0
 
+=head2 shared
+
+  data_type: 'tinyint'
+  default_value: 0
+  is_nullable: 1
+
 =cut
 
 __PACKAGE__->add_columns(
@@ -50,6 +56,8 @@ __PACKAGE__->add_columns(
   { data_type => "varchar", is_nullable => 0, size => 255 },
   "owner",
   { data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
+  "shared",
+  { data_type => "tinyint", default_value => 0, is_nullable => 1 },
 );
 
 =head1 PRIMARY KEY
@@ -97,8 +105,8 @@ __PACKAGE__->has_many(
 );
 
 
-# Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 21:34:14
-# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:iWNlXRM+XvkJMlnu4F0xKw
+# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-07-18 16:54:33
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:ulv0BHLlcWdeLgD6qPxmUQ
 
 
 # You can replace this text with custom content, and it will be preserved on regeneration

installer/data/mysql/atomicupdate/bug_19524.sql

@@ -1 +0,0 @@
-ALTER TABLE patron_lists ADD COLUMN shared tinyint(1) default 0 AFTER owner;

installer/data/mysql/updatedatabase.pl

@@ -16136,6 +16136,13 @@ if( CheckVersion( $DBversion ) ) {
     print "Upgrade to $DBversion done (Bug 12395 - Save order line's creator)\n";
 }
 
+$DBversion = '18.06.00.006';
+if( CheckVersion( $DBversion ) ) {
+    $dbh->do( "ALTER IGNORE TABLE patron_lists ADD COLUMN shared tinyint(1) default 0 AFTER owner;" );
+    SetVersion( $DBversion );
+    print "Upgrade to $DBversion done (Bug 19524 - Share patron lists between staff)\n";
+}
+
 # SEE bug 13068
 # if there is anything in the atomicupdate, read and execute it.