Browse Source

Bug 30924: Add missing branchtransfers.reason value for recall cancellation

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
22.11.x
Tomás Cohen Arazi 8 months ago
parent
commit
54372681be
Signed by: tomascohen GPG Key ID: 0A272EA1B2F3C15F
  1. 16
      installer/data/mysql/atomicupdate/bug_30924.pl
  2. 2
      installer/data/mysql/kohastructure.sql
  3. 5
      recalls/recalls_to_pull.pl
  4. 5
      svc/recall

16
installer/data/mysql/atomicupdate/bug_30924.pl

@ -0,0 +1,16 @@
use Modern::Perl;
return {
bug_number => 30924,
description => "Add missing RecallCancellation option to branchtransfers.reason ENUM",
up => sub {
my ($args) = @_;
my ($dbh) = @$args{qw(dbh)};
# Add RecallCancellation ENUM option to branchtransfers.reason
$dbh->do(q{
ALTER TABLE branchtransfers MODIFY COLUMN reason
ENUM('Manual','StockrotationAdvance','StockrotationRepatriation','ReturnToHome','ReturnToHolding','RotatingCollection','Reserve','LostReserve','CancelReserve','TransferCancellation','Recall','RecallCancellation') COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'what triggered the transfer'
});
},
};

2
installer/data/mysql/kohastructure.sql

@ -1566,7 +1566,7 @@ CREATE TABLE `branchtransfers` (
`datecancelled` datetime DEFAULT NULL COMMENT 'the date the transfer was cancelled',
`tobranch` varchar(10) COLLATE utf8mb4_unicode_ci NOT NULL DEFAULT '' COMMENT 'the branch the transfer was going to',
`comments` longtext COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'any comments related to the transfer',
`reason` enum('Manual','StockrotationAdvance','StockrotationRepatriation','ReturnToHome','ReturnToHolding','RotatingCollection','Reserve','LostReserve','CancelReserve','TransferCancellation','Recall') COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'what triggered the transfer',
`reason` ENUM('Manual','StockrotationAdvance','StockrotationRepatriation','ReturnToHome','ReturnToHolding','RotatingCollection','Reserve','LostReserve','CancelReserve','TransferCancellation','Recall','RecallCancellation') COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'what triggered the transfer',
`cancellation_reason` enum('Manual','StockrotationAdvance','StockrotationRepatriation','ReturnToHome','ReturnToHolding','RotatingCollection','Reserve','LostReserve','CancelReserve','ItemLost','WrongTransfer','CancelRecall') COLLATE utf8mb4_unicode_ci DEFAULT NULL COMMENT 'what triggered the transfer cancellation',
PRIMARY KEY (`branchtransfer_id`),
KEY `frombranch` (`frombranch`),

5
recalls/recalls_to_pull.pl

@ -40,7 +40,10 @@ my $recall_id = $query->param('recall_id');
if ( $op eq 'cancel' ) {
my $recall = Koha::Recalls->find( $recall_id );
if ( $recall->in_transit ) {
C4::Items::ModItemTransfer( $recall->item->itemnumber, $recall->item->holdingbranch, $recall->item->homebranch, 'CancelRecall' );
C4::Items::ModItemTransfer(
$recall->item->itemnumber, $recall->item->holdingbranch,
$recall->item->homebranch, 'RecallCancellation'
);
}
$recall->set_cancelled;
$op = 'list';

5
svc/recall

@ -78,7 +78,10 @@ if ( $op eq 'cancel' ) {
} elsif ( $op eq 'transit' ) {
# cancel recall and return item to home library
if ( $recall->in_transit ) {
C4::Items::ModItemTransfer( $recall->item->itemnumber, $recall->item->holdingbranch, $recall->item->homebranch, 'CancelRecall' );
C4::Items::ModItemTransfer(
$recall->item->itemnumber, $recall->item->holdingbranch,
$recall->item->homebranch, 'RecallCancellation'
);
}
$recall->set_cancelled;
if ( $recall->cancelled ){

Loading…
Cancel
Save