@@ -, +, @@ recall cancellation --- installer/data/mysql/atomicupdate/bug_30924.pl | 16 ++++++++++++++++ installer/data/mysql/kohastructure.sql | 2 +- recalls/recalls_to_pull.pl | 5 ++++- svc/recall | 5 ++++- 4 files changed, 25 insertions(+), 3 deletions(-) create mode 100755 installer/data/mysql/atomicupdate/bug_30924.pl --- a/installer/data/mysql/atomicupdate/bug_30924.pl +++ a/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' + }); + }, +}; --- a/installer/data/mysql/kohastructure.sql +++ a/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`), --- a/recalls/recalls_to_pull.pl +++ a/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'; --- a/svc/recall +++ a/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 ){ --