Lines 48-54
sub new {
Link Here
|
48 |
sub do_checkout { |
48 |
sub do_checkout { |
49 |
my $self = shift; |
49 |
my $self = shift; |
50 |
syslog('LOG_DEBUG', "ILS::Transaction::Checkout performing checkout..."); |
50 |
syslog('LOG_DEBUG', "ILS::Transaction::Checkout performing checkout..."); |
51 |
my $pending = $self->{item}->pending_queue; |
|
|
52 |
my $shelf = $self->{item}->hold_shelf; |
51 |
my $shelf = $self->{item}->hold_shelf; |
53 |
my $barcode = $self->{item}->id; |
52 |
my $barcode = $self->{item}->id; |
54 |
my $patron_barcode = $self->{patron}->id; |
53 |
my $patron_barcode = $self->{patron}->id; |
55 |
- |
|
|