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