Lines 23-35
use C4::Reserves;
Link Here
|
23 |
use C4::Branch qw(GetBranchName); |
23 |
use C4::Branch qw(GetBranchName); |
24 |
use Digest::MD5 qw(md5_base64); |
24 |
use Digest::MD5 qw(md5_base64); |
25 |
|
25 |
|
26 |
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); |
26 |
our $VERSION = 3.07.00.049; |
27 |
|
|
|
28 |
BEGIN { |
29 |
$VERSION = 3.07.00.049; |
30 |
@ISA = qw(Exporter); |
31 |
@EXPORT_OK = qw(invalid_patron); |
32 |
} |
33 |
|
27 |
|
34 |
our $kp; # koha patron |
28 |
our $kp; # koha patron |
35 |
|
29 |
|
Lines 253-259
sub drop_hold {
Link Here
|
253 |
# from the SIP request. Note those incoming values are 1-indexed, not 0-indexed. |
247 |
# from the SIP request. Note those incoming values are 1-indexed, not 0-indexed. |
254 |
# |
248 |
# |
255 |
sub x_items { |
249 |
sub x_items { |
256 |
my $self = shift or return; |
250 |
my $self = shift; |
257 |
my $array_var = shift or return; |
251 |
my $array_var = shift or return; |
258 |
my ($start, $end) = @_; |
252 |
my ($start, $end) = @_; |
259 |
$self->{$array_var} or return []; |
253 |
$self->{$array_var} or return []; |
Lines 268-295
sub x_items {
Link Here
|
268 |
# List of outstanding holds placed |
262 |
# List of outstanding holds placed |
269 |
# |
263 |
# |
270 |
sub hold_items { |
264 |
sub hold_items { |
271 |
my $self = shift or return; |
265 |
my $self = shift; |
272 |
return $self->x_items('hold_items', @_); |
266 |
return $self->x_items('hold_items', @_); |
273 |
} |
267 |
} |
274 |
|
268 |
|
275 |
sub overdue_items { |
269 |
sub overdue_items { |
276 |
my $self = shift or return; |
270 |
my $self = shift; |
277 |
return $self->x_items('overdue_items', @_); |
271 |
return $self->x_items('overdue_items', @_); |
278 |
} |
272 |
} |
279 |
sub charged_items { |
273 |
sub charged_items { |
280 |
my $self = shift or return; |
274 |
my $self = shift; |
281 |
return $self->x_items('items', @_); |
275 |
return $self->x_items('items', @_); |
282 |
} |
276 |
} |
283 |
sub fine_items { |
277 |
sub fine_items { |
284 |
my $self = shift or return; |
278 |
my $self = shift; |
285 |
return $self->x_items('fine_items', @_); |
279 |
return $self->x_items('fine_items', @_); |
286 |
} |
280 |
} |
287 |
sub recall_items { |
281 |
sub recall_items { |
288 |
my $self = shift or return; |
282 |
my $self = shift; |
289 |
return $self->x_items('recall_items', @_); |
283 |
return $self->x_items('recall_items', @_); |
290 |
} |
284 |
} |
291 |
sub unavail_holds { |
285 |
sub unavail_holds { |
292 |
my $self = shift or return; |
286 |
my $self = shift; |
293 |
return $self->x_items('unavail_holds', @_); |
287 |
return $self->x_items('unavail_holds', @_); |
294 |
} |
288 |
} |
295 |
|
289 |
|
Lines 321-336
sub inet_privileges {
Link Here
|
321 |
} |
315 |
} |
322 |
|
316 |
|
323 |
sub fee_limit { |
317 |
sub fee_limit { |
324 |
# my $self = shift; |
318 |
my $self = shift; |
325 |
return C4::Context->preference("noissuescharge") || 5; |
319 |
return C4::Context->preference("noissuescharge") || 5; |
326 |
} |
320 |
} |
327 |
|
321 |
|
328 |
sub excessive_fees { |
322 |
sub excessive_fees { |
329 |
my $self = shift or return; |
323 |
my $self = shift; |
330 |
return ($self->fee_amount and $self->fee_amount > $self->fee_limit); |
324 |
return ($self->fee_amount and $self->fee_amount > $self->fee_limit); |
331 |
} |
325 |
} |
332 |
sub excessive_fines { |
326 |
sub excessive_fines { |
333 |
my $self = shift or return; |
327 |
my $self = shift; |
334 |
return $self->excessive_fees; # excessive_fines is the same thing as excessive_fees for Koha |
328 |
return $self->excessive_fees; # excessive_fines is the same thing as excessive_fees for Koha |
335 |
} |
329 |
} |
336 |
|
330 |
|
Lines 346-355
sub library_name {
Link Here
|
346 |
# |
340 |
# |
347 |
|
341 |
|
348 |
sub invalid_patron { |
342 |
sub invalid_patron { |
|
|
343 |
my $self = shift; |
349 |
return "Please contact library staff"; |
344 |
return "Please contact library staff"; |
350 |
} |
345 |
} |
351 |
|
346 |
|
352 |
sub charge_denied { |
347 |
sub charge_denied { |
|
|
348 |
my $self = shift; |
353 |
return "Please contact library staff"; |
349 |
return "Please contact library staff"; |
354 |
} |
350 |
} |
355 |
|
351 |
|