gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 33970: DBRev 23.06.00.053 

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Tomas Cohen Arazi 2023-10-25 11:37:41 -03:00
parent feb499e87f
commit 5bbc0090f3
No known key found for this signature in database
GPG Key ID: 0A272EA1B2F3C15F
2 changed files with 8 additions and 8 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 = "23.06.00.052";
$VERSION = "23.06.00.053";
sub version {
return $VERSION;

14
installer/data/mysql/atomicupdate/bug_33970.pl → installer/data/mysql/db_revs/230600053.pl
View File

@ -2,28 +2,27 @@ use Modern::Perl;
return {
bug_number => "33970",
description => "Add 'backend' column and to composite primary key in illrequestattributes",
description => "Bind ILL attributes to specific backends",
up => sub {
my ($args) = @_;
my ( $dbh, $out ) = @$args{qw(dbh out)};
if ( !column_exists( 'illrequestattributes', 'backend' ) ) {
say $out "Adding 'backend' column to 'illrequestattributes' table";
$dbh->do(
q{ ALTER TABLE illrequestattributes ADD COLUMN backend varchar(80) NOT NULL COMMENT 'API ILL backend name' AFTER illrequest_id }
);
say $out "Added column 'illrequestattributes.backend'";
say $out "Dropping illrequestattributes_ifk foreign key in 'illrequestattributes' table ";
$dbh->do(q{ ALTER TABLE illrequestattributes DROP FOREIGN KEY illrequestattributes_ifk });
say $out "Removed 'illrequestattributes.illrequestattributes_ifk' foreign key";
say $out "Dropping primary key in 'illrequestattributes' table ";
$dbh->do(q{ ALTER TABLE illrequestattributes DROP PRIMARY KEY });
say $out "Removed 'illrequestattributes' primary key";
say $out "Creating new primary key in 'illrequestattributes' table ";
$dbh->do(q{ ALTER TABLE illrequestattributes ADD PRIMARY KEY( illrequest_id, backend, type (191)) });
say $out "Added new primary key in 'illrequestattributes'";
say $out "Creating new foreign key constraint in 'illrequestattributes' table ";
$dbh->do(
q{
ALTER TABLE illrequestattributes ADD CONSTRAINT illrequestattributes_ifk
@ -32,8 +31,8 @@ return {
ON DELETE CASCADE ON UPDATE CASCADE;
}
);
say $out "Added 'illrequestattributes.illrequestattributes_ifk' foreign key";
say $out "Updating backend value for all pre-existing illrequestattributes";
$dbh->do(
q{
UPDATE
@ -43,6 +42,7 @@ return {
WHERE ira . illrequest_id = ir.illrequest_id;
}
);
say $out "Updated 'backend' column for all pre-existing rows in 'illrequestattributes'";
}
},
};