use C4::Members;
use C4::Reserves;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-
-BEGIN {
- $VERSION = 3.07.00.049;
- require Exporter;
- @ISA = qw(Exporter);
- @EXPORT_OK = qw();
-}
+our $VERSION = 3.07.00.049;
=head1 EXAMPLE
);
sub next_hold {
- my $self = shift or return;
+ my $self = shift;
# use Data::Dumper; warn "next_hold() hold_shelf: " . Dumper($self->{hold_shelf}); warn "next_hold() pending_queue: " . $self->{pending_queue};
foreach (@{$self->hold_shelf}) { # If this item was taken from the hold shelf, then that reserve still governs
next unless ($_->{itemnumber} and $_->{itemnumber} == $self->{itemnumber});
}
sub hold_patron_name {
- my $self = shift or return;
+ my $self = shift;
my $borrowernumber = (@_ ? shift: $self->hold_patron_id()) or return;
my $holder = GetMember(borrowernumber=>$borrowernumber);
unless ($holder) {
}
sub hold_patron_bcode {
- my $self = shift or return;
+ my $self = shift;
my $borrowernumber = (@_ ? shift: $self->hold_patron_id()) or return;
my $holder = GetMember(borrowernumber => $borrowernumber);
if ($holder) {
}
sub sip_security_marker {
+ my $self = shift;
return '02'; # FIXME? 00-other; 01-None; 02-Tattle-Tape Security Strip (3M); 03-Whisper Tape (3M)
}
sub sip_fee_type {
+ my $self = shift;
return '01'; # FIXME? 01-09 enumerated in spec. We just use O1-other/unknown.
}
return $member->{borrowernumber};
}
sub barcode_is_borrowernumber { # because hold_queue only has borrowernumber...
- my $self = shift; # not really used
+ my $self = shift;
my $barcode = shift;
my $number = shift or return; # can't be zero
return unless defined $barcode; # might be 0 or 000 or 000000
use C4::Branch qw(GetBranchName);
use Digest::MD5 qw(md5_base64);
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-
-BEGIN {
- $VERSION = 3.07.00.049;
- @ISA = qw(Exporter);
- @EXPORT_OK = qw(invalid_patron);
-}
+our $VERSION = 3.07.00.049;
our $kp; # koha patron
# from the SIP request. Note those incoming values are 1-indexed, not 0-indexed.
#
sub x_items {
- my $self = shift or return;
+ my $self = shift;
my $array_var = shift or return;
my ($start, $end) = @_;
$self->{$array_var} or return [];
# List of outstanding holds placed
#
sub hold_items {
- my $self = shift or return;
+ my $self = shift;
return $self->x_items('hold_items', @_);
}
sub overdue_items {
- my $self = shift or return;
+ my $self = shift;
return $self->x_items('overdue_items', @_);
}
sub charged_items {
- my $self = shift or return;
+ my $self = shift;
return $self->x_items('items', @_);
}
sub fine_items {
- my $self = shift or return;
+ my $self = shift;
return $self->x_items('fine_items', @_);
}
sub recall_items {
- my $self = shift or return;
+ my $self = shift;
return $self->x_items('recall_items', @_);
}
sub unavail_holds {
- my $self = shift or return;
+ my $self = shift;
return $self->x_items('unavail_holds', @_);
}
}
sub fee_limit {
- # my $self = shift;
+ my $self = shift;
return C4::Context->preference("noissuescharge") || 5;
}
sub excessive_fees {
- my $self = shift or return;
+ my $self = shift;
return ($self->fee_amount and $self->fee_amount > $self->fee_limit);
}
sub excessive_fines {
- my $self = shift or return;
+ my $self = shift;
return $self->excessive_fees; # excessive_fines is the same thing as excessive_fees for Koha
}
#
sub invalid_patron {
+ my $self = shift;
return "Please contact library staff";
}
sub charge_denied {
+ my $self = shift;
return "Please contact library staff";
}
use C4::Items qw( ModItemTransfer );
use C4::Debug;
-our @ISA = qw(ILS::Transaction);
+use parent qw(ILS::Transaction);
my %fields = (
magnetic => 0,
use C4::Members;
use C4::Reserves qw(ModReserveFill);
use C4::Debug;
+use parent qw(ILS::Transaction);
-use vars qw($VERSION @ISA $debug);
+our $debug;
-BEGIN {
- $VERSION = 3.07.00.049;
- @ISA = qw(ILS::Transaction);
-}
+our $VERSION = 3.07.00.049;
# Most fields are handled by the Transaction superclass
my %fields = (
use C4::Accounts qw(recordpayment);
use ILS;
-use base qw(ILS::Transaction);
+use parent qw(ILS::Transaction);
-use vars qw($VERSION @ISA $debug);
our $debug = 0;
our $VERSION = 3.07.00.049;
use C4::Reserves; # AddReserve
use C4::Members; # GetMember
use C4::Biblio; # GetBiblioFromItemNumber GetBiblioItemByBiblioNumber
+use parent qw(ILS::Transaction);
-use vars qw($VERSION @ISA);
-BEGIN {
- $VERSION = 3.07.00.049;
- @ISA = qw(ILS::Transaction);
-}
+our $VERSION = 3.07.00.049;
my %fields = (
expiration_date => 0,
use C4::Circulation;
use C4::Members;
-use base qw(ILS::Transaction);
+use parent qw(ILS::Transaction);
my %fields = (
renewal_ok => 0,
use C4::Members qw( GetMember );
-use base qw(ILS::Transaction::Renew);
+use parent qw(ILS::Transaction::Renew);
my %fields = (
renewed => [],