Lines 34-40
use Date::Calc qw( Date_to_Days );
Link Here
|
34 |
use C4::Output qw( output_html_with_http_headers ); |
34 |
use C4::Output qw( output_html_with_http_headers ); |
35 |
use C4::Auth qw( get_template_and_user ); |
35 |
use C4::Auth qw( get_template_and_user ); |
36 |
use C4::Reserves |
36 |
use C4::Reserves |
37 |
qw( RevertWaitingStatus AlterPriority ToggleLowestPriority ToggleSuspend CanBookBeReserved GetMaxPatronHoldsForRecord CanItemBeReserved IsAvailableForItemLevelRequest ); |
37 |
qw( RevertWaitingStatus AlterPriority ToggleLowestPriority CanBookBeReserved GetMaxPatronHoldsForRecord CanItemBeReserved IsAvailableForItemLevelRequest ); |
38 |
use C4::Items qw( get_hostitemnumbers_of ); |
38 |
use C4::Items qw( get_hostitemnumbers_of ); |
39 |
use C4::Koha qw( getitemtypeimagelocation ); |
39 |
use C4::Koha qw( getitemtypeimagelocation ); |
40 |
use C4::Serials qw( CountSubscriptionFromBiblionumber ); |
40 |
use C4::Serials qw( CountSubscriptionFromBiblionumber ); |
Lines 90-96
my $warnings;
Link Here
|
90 |
my $messages; |
90 |
my $messages; |
91 |
my $exceeded_maxreserves; |
91 |
my $exceeded_maxreserves; |
92 |
my $exceeded_holds_per_record; |
92 |
my $exceeded_holds_per_record; |
93 |
my @failed_holds = $input->multi_param('failed_holds'); |
93 |
my @failed_holds = $input->multi_param('failed_holds'); |
|
|
94 |
my $form_submitted = $input->param('form_submitted'); |
94 |
|
95 |
|
95 |
my $op = $input->param('op') || q{}; |
96 |
my $op = $input->param('op') || q{}; |
96 |
|
97 |
|
Lines 118-127
if ( $op eq 'cud-move' ) {
Link Here
|
118 |
} elsif ( $op eq 'cud-setLowestPriority' ) { |
119 |
} elsif ( $op eq 'cud-setLowestPriority' ) { |
119 |
my $reserve_id = $input->param('reserve_id'); |
120 |
my $reserve_id = $input->param('reserve_id'); |
120 |
ToggleLowestPriority($reserve_id); |
121 |
ToggleLowestPriority($reserve_id); |
121 |
} elsif ( $op eq 'cud-toggleSuspend' ) { |
122 |
} elsif ( $op eq 'cud-suspend' ) { |
122 |
my $reserve_id = $input->param('reserve_id'); |
123 |
my $reserve_id = $input->param('reserve_id'); |
123 |
my $suspend_until = $input->param('suspend_until'); |
124 |
my $suspend_until = $input->param('suspend_until'); |
124 |
ToggleSuspend( $reserve_id, $suspend_until ); |
125 |
my $hold = Koha::Holds->find($reserve_id); |
|
|
126 |
$hold->suspend_hold($suspend_until) if $hold; |
127 |
} elsif ( $op eq 'cud-unsuspend' ) { |
128 |
my $reserve_id = $input->param('reserve_id'); |
129 |
my $hold = Koha::Holds->find($reserve_id); |
130 |
$hold->resume() if $hold; |
125 |
} elsif ( $op eq 'cud-cancel_bulk' ) { |
131 |
} elsif ( $op eq 'cud-cancel_bulk' ) { |
126 |
my $cancellation_reason = $input->param("cancellation-reason"); |
132 |
my $cancellation_reason = $input->param("cancellation-reason"); |
127 |
my @hold_ids = split( ',', scalar $input->param("ids") ); |
133 |
my @hold_ids = split( ',', scalar $input->param("ids") ); |
Lines 142-165
if ($findborrower) {
Link Here
|
142 |
$borrowernumber_hold = $patron->borrowernumber if $patron; |
148 |
$borrowernumber_hold = $patron->borrowernumber if $patron; |
143 |
} |
149 |
} |
144 |
|
150 |
|
145 |
if ($findclub) { |
151 |
if ($form_submitted) { |
146 |
my $club = Koha::Clubs->find( { name => $findclub } ); |
152 |
if ($findclub) { |
147 |
if ($club) { |
153 |
my $club = Koha::Clubs->find( { name => $findclub } ); |
148 |
$club_hold = $club->id; |
154 |
if ($club) { |
149 |
} else { |
155 |
$club_hold = $club->id; |
150 |
my @clubs = Koha::Clubs->search( |
|
|
151 |
[ |
152 |
{ name => { like => '%' . $findclub . '%' } }, |
153 |
{ description => { like => '%' . $findclub . '%' } } |
154 |
] |
155 |
)->as_list; |
156 |
if ( scalar @clubs == 1 ) { |
157 |
$club_hold = $clubs[0]->id; |
158 |
} elsif (@clubs) { |
159 |
$template->param( clubs => \@clubs ); |
160 |
} else { |
156 |
} else { |
161 |
$messageclub = "'$findclub'"; |
157 |
my @clubs = Koha::Clubs->search( |
|
|
158 |
[ |
159 |
{ name => { like => '%' . $findclub . '%' } }, |
160 |
{ description => { like => '%' . $findclub . '%' } } |
161 |
] |
162 |
)->as_list; |
163 |
if ( scalar @clubs == 1 ) { |
164 |
$club_hold = $clubs[0]->id; |
165 |
} elsif (@clubs) { |
166 |
$template->param( clubs => \@clubs ); |
167 |
} else { |
168 |
$messageclub = "'$findclub'"; |
169 |
} |
162 |
} |
170 |
} |
|
|
171 |
} else { |
172 |
my @clubs = Koha::Clubs->search()->as_list; |
173 |
$template->param( clubs => \@clubs ); |
163 |
} |
174 |
} |
164 |
} |
175 |
} |
165 |
|
176 |
|
166 |
- |
|
|