Lines 80-89
sub drop_hold {
Link Here
|
80 |
my $self = shift; |
80 |
my $self = shift; |
81 |
my $patron = Koha::Patrons->find( $self->{patron}->borrowernumber ); |
81 |
my $patron = Koha::Patrons->find( $self->{patron}->borrowernumber ); |
82 |
unless ($patron) { |
82 |
unless ($patron) { |
83 |
$self->screen_msg('drop_hold called with undefined patron'); |
83 |
$self->screen_msg('drop_hold called with undefined patron'); |
84 |
$self->ok(0); |
84 |
$self->ok(0); |
85 |
return $self; |
85 |
return $self; |
86 |
} |
86 |
} |
87 |
|
87 |
|
88 |
my $item = Koha::Items->find({ barcode => $self->{item}->id }); |
88 |
my $item = Koha::Items->find({ barcode => $self->{item}->id }); |
89 |
my $holds = $item->holds->search({ borrowernumber => $patron->borrowernumber }); |
89 |
my $holds = $item->holds->search({ borrowernumber => $patron->borrowernumber }); |
Lines 100-109
sub change_hold {
Link Here
|
100 |
my $self = shift; |
100 |
my $self = shift; |
101 |
my $patron = Koha::Patrons->find( $self->{patron}->borrowernumber ); |
101 |
my $patron = Koha::Patrons->find( $self->{patron}->borrowernumber ); |
102 |
unless ($patron) { |
102 |
unless ($patron) { |
103 |
$self->screen_msg('change_hold called with undefined patron'); |
103 |
$self->screen_msg('change_hold called with undefined patron'); |
104 |
$self->ok(0); |
104 |
$self->ok(0); |
105 |
return $self; |
105 |
return $self; |
106 |
} |
106 |
} |
107 |
my $item = Koha::Items->find({ barcode => $self->{item}->id }); |
107 |
my $item = Koha::Items->find({ barcode => $self->{item}->id }); |
108 |
unless ($item) { |
108 |
unless ($item) { |
109 |
$self->screen_msg('No biblio record matches barcode "' . $self->{item}->id . '".'); |
109 |
$self->screen_msg('No biblio record matches barcode "' . $self->{item}->id . '".'); |
110 |
- |
|
|