Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 24860: DBRev 22.06.00.078

Browse source 
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Tomás Cohen Arazi 2022-11-04 19:52:11 -03:00
parent 5157aaa092
commit d7d2b86136
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
3 changed files with 34 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Koha.pm
View file

@ -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 = "22.06.00.077";
$VERSION = "22.06.00.078";
sub version {
return $VERSION;

26
installer/data/mysql/atomicupdate/bug_24860.perl
View file

@ -1,26 +0,0 @@
$DBversion = 'XXX'; # will be replaced by the RM
if ( CheckVersion( $DBversion ) ) {
unless ( column_exists( 'reserves', 'item_group_id' ) ) {
$dbh->do(q{
ALTER TABLE reserves
ADD COLUMN `item_group_id` int(11) NULL default NULL AFTER biblionumber,
ADD CONSTRAINT `reserves_ibfk_ig` FOREIGN KEY (`item_group_id`) REFERENCES `item_groups` (`item_group_id`) ON DELETE SET NULL ON UPDATE CASCADE;
});
}
unless ( column_exists( 'old_reserves', 'item_group_id' ) ) {
$dbh->do(q{
ALTER TABLE old_reserves
ADD COLUMN `item_group_id` int(11) NULL default NULL AFTER biblionumber,
ADD CONSTRAINT `old_reserves_ibfk_ig` FOREIGN KEY (`item_group_id`) REFERENCES `item_groups` (`item_group_id`) ON DELETE SET NULL ON UPDATE SET NULL;
});
}
$dbh->do(q{
INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
('EnableItemGroupHolds','0','','Enable item group holds feature','YesNo')
});
SetVersion( $DBversion );
print "Upgrade to $DBversion done (Bug 24860 - Add ability to place item group level holds)\n";
}

33
installer/data/mysql/db_revs/220600078.pl Executable file
View file

@ -0,0 +1,33 @@
use Modern::Perl;
return {
bug_number => "24860",
description => "Add ability to place item group level holds",
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
unless ( column_exists( 'reserves', 'item_group_id' ) ) {
$dbh->do(q{
ALTER TABLE reserves
ADD COLUMN `item_group_id` int(11) NULL default NULL AFTER biblionumber,
ADD CONSTRAINT `reserves_ibfk_ig` FOREIGN KEY (`item_group_id`) REFERENCES `item_groups` (`item_group_id`) ON DELETE SET NULL ON UPDATE CASCADE;
});
}
unless ( column_exists( 'old_reserves', 'item_group_id' ) ) {
$dbh->do(q{
ALTER TABLE old_reserves
ADD COLUMN `item_group_id` int(11) NULL default NULL AFTER biblionumber,
ADD CONSTRAINT `old_reserves_ibfk_ig` FOREIGN KEY (`item_group_id`) REFERENCES `item_groups` (`item_group_id`) ON DELETE SET NULL ON UPDATE SET NULL;
});
}
$dbh->do(q{
INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
('EnableItemGroupHolds','0','','Enable item group holds feature','YesNo')
});
say $out "Added new system preference 'EnableItemGroupHolds'";
},
};