|
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 |
- |
|
|