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