View | Details | Raw Unified | Return to bug 41883
Collapse All | Expand All

(-)a/tools/batch_modify_holds.pl (-1 / +6 lines)
Lines 25-30 use JSON qw( to_json ); Link Here
25
25
26
use C4::Auth   qw( get_template_and_user );
26
use C4::Auth   qw( get_template_and_user );
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Log    qw( logaction );
28
29
29
use Koha::DateUtils qw( dt_from_string );
30
use Koha::DateUtils qw( dt_from_string );
30
use Koha::Holds;
31
use Koha::Holds;
Lines 65-70 if ( $op eq 'cud-form' ) { Link Here
65
        Koha::Holds->search( { reserve_id => { -in => \@hold_ids } }, { join => [ "item", "biblio" ] } );
66
        Koha::Holds->search( { reserve_id => { -in => \@hold_ids } }, { join => [ "item", "biblio" ] } );
66
67
67
    while ( my $hold = $holds_to_update->next ) {
68
    while ( my $hold = $holds_to_update->next ) {
69
        my $hold_before_mod = $hold->unblessed;
68
70
69
        if ($new_expiration_date) {
71
        if ($new_expiration_date) {
70
            $hold->expirationdate($new_expiration_date)->store;
72
            $hold->expirationdate($new_expiration_date)->store;
Lines 98-103 if ( $op eq 'cud-form' ) { Link Here
98
        if ($clear_hold_notes) {
100
        if ($clear_hold_notes) {
99
            $hold->reservenotes(undef)->store;
101
            $hold->reservenotes(undef)->store;
100
        }
102
        }
103
104
        logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, $hold, undef, $hold_before_mod )
105
            if C4::Context->preference('HoldsLog');
106
101
        push @holds_data, $hold;
107
        push @holds_data, $hold;
102
    }
108
    }
103
109
104
- 

Return to bug 41883