|
Lines 52-71
sub item {
Link Here
|
| 52 |
return Koha::Item->_new_from_dbic($item_rs); |
52 |
return Koha::Item->_new_from_dbic($item_rs); |
| 53 |
} |
53 |
} |
| 54 |
|
54 |
|
| 55 |
=head3 from_library |
|
|
| 56 |
|
| 57 |
my $from_library = $transfer->from_library; |
| 58 |
|
| 59 |
Returns the associated from_library for this transfer. |
| 60 |
|
| 61 |
=cut |
| 62 |
|
| 63 |
sub from_library { |
| 64 |
my ($self) = @_; |
| 65 |
my $from_library_rs = $self->_result->frombranch; |
| 66 |
return Koha::Library->_new_from_dbic($from_library_rs); |
| 67 |
} |
| 68 |
|
| 69 |
=head3 to_library |
55 |
=head3 to_library |
| 70 |
|
56 |
|
| 71 |
my $to_library = $transfer->to_library; |
57 |
my $to_library = $transfer->to_library; |
|
Lines 173-187
sub cancel {
Link Here
|
| 173 |
->store; |
159 |
->store; |
| 174 |
|
160 |
|
| 175 |
# Set up return transfer if transfer was force cancelled whilst in transit |
161 |
# Set up return transfer if transfer was force cancelled whilst in transit |
| 176 |
# and we were not notified that the transfer is being replaced. |
|
|
| 177 |
# NOTE: We don't catch here, as we're happy to fail if there are already |
162 |
# NOTE: We don't catch here, as we're happy to fail if there are already |
| 178 |
# other transfers in the queue. |
163 |
# other transfers in the queue. |
| 179 |
if ($in_transit && !$params->{replace}) { |
164 |
try { |
| 180 |
try { |
165 |
$self->item->request_transfer( |
| 181 |
$self->item->request_transfer( |
166 |
{ to => $self->from_library, reason => 'TransferCancellation' } ); |
| 182 |
{ to => $self->from_library, reason => 'TransferCancellation' } ); |
167 |
}; |
| 183 |
}; |
|
|
| 184 |
} |
| 185 |
|
168 |
|
| 186 |
return $self; |
169 |
return $self; |
| 187 |
} |
170 |
} |