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

Bug 31086: (QA follow-up) Use plain SQL in db_rev 

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Tomas Cohen Arazi 2022-07-22 14:36:39 -03:00
parent 0704102bc8
commit efd2dfdaae
No known key found for this signature in database
GPG Key ID: 0A272EA1B2F3C15F
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
installer/data/mysql/atomicupdate/bug_31086_do_not_allow_null_branchcode_in_reserves.pl
View File

@ -1,5 +1,4 @@
use Modern::Perl;
use Koha::Holds;
return {
bug_number => "31086",
@ -8,11 +7,22 @@ return {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
my $holds_no_branch = Koha::Holds->search({ branchcode => undef });
if( $holds_no_branch->count > 0 ){
my $sth = $dbh->prepare(q{
SELECT borrowernumber, biblionumber
FROM reserves
WHERE branchcode IS NULL;
});
$sth->execute;
my $holds_no_branch = $sth->fetchall_arrayref( {} );
if ( scalar @{$holds_no_branch} > 0 ) {
say $out "Holds with no branchcode were found and will be updated to the first branch in the system";
while ( my $hnb = $holds_no_branch->next ){
say $out "Please review hold for borrowernumber " . $hnb->borrowernumber . " on biblionumber " . $hnb->biblionumber . " to correct pickup branch if necessary";
foreach my $hnb ( @{$holds_no_branch} ) {
say $out "Please review hold for borrowernumber "
. $hnb->{borrowernumber}
. " on biblionumber "
. $hnb->{biblionumber}
. " to correct pickup branch if necessary";
}
}