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

Bug 22421: DBRev 24.06.00.057 

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Katrin Fischer 2024-11-08 11:01:50 +00:00
parent 9ab9219a10
commit c9bccdcd70
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
2 changed files with 8 additions and 9 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 = "24.06.00.056";
$VERSION = "24.06.00.057";
sub version {
return $VERSION;

15
installer/data/mysql/atomicupdate/bug_22421.pl → installer/data/mysql/db_revs/240600057.pl
View File

@ -1,4 +1,5 @@
use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_success say_info);
return {
bug_number => "22421",
@ -15,7 +16,7 @@ return {
ADD COLUMN old_issue_id int(11) DEFAULT NULL AFTER issue_id
}
);
say $out "Added column 'accountlines.old_issue_id'";
say_success( $out, "Added column 'accountlines.old_issue_id'" );
}
unless ( foreign_key_exists( 'accountlines', 'accountlines_ibfk_old_issues' ) ) {
@ -30,7 +31,7 @@ return {
ON UPDATE CASCADE
}
);
say $out "Added constraint 'accountlines.old_issues'";
say_success( $out, "Added constraint 'accountlines.old_issues'" );
}
# Add constraint for issue_id
@ -48,7 +49,7 @@ return {
o.issue_id IS NOT NULL
}
);
say $out "Updated 'accountlines.old_issue_id' from 'old_issues'";
say_success( $out, "Updated 'accountlines.old_issue_id' from 'old_issues'" );
$dbh->do(
q{
@ -61,7 +62,7 @@ return {
i.issue_id IS NULL
}
);
say $out, "Fixed accountlines.issue_id where missing from issues";
say_success( $out, "Fixed 'accountlines.issue_id' where missing from issues" );
$dbh->do(
q{
@ -73,11 +74,9 @@ return {
ON UPDATE CASCADE
}
);
say $out "Added constraint 'accountlines.issues'";
say_success( $out, "Added constraint 'accountlines.issues'" );
}
say $out "Add old_issue_id to accountlines and setup appropriate constraints)\n";
say_success( $out, "Added old_issue_id to accountlines and set up appropriate constraints)" );
}
};