Lines 277-286
is a reference-to-hash which may have any of the following keys:
Link Here
|
277 |
|
277 |
|
278 |
There is no item in the catalog with the given barcode. The value is C<$barcode>. |
278 |
There is no item in the catalog with the given barcode. The value is C<$barcode>. |
279 |
|
279 |
|
280 |
=item C<IsPermanent> |
|
|
281 |
|
282 |
The item's home branch is permanent. This doesn't prevent the item from being transferred, though. The value is the code of the item's home branch. |
283 |
|
284 |
=item C<DestinationEqualsHolding> |
280 |
=item C<DestinationEqualsHolding> |
285 |
|
281 |
|
286 |
The item is already at the branch to which it is being transferred. The transfer is nonetheless considered to have failed. The value should be ignored. |
282 |
The item is already at the branch to which it is being transferred. The transfer is nonetheless considered to have failed. The value should be ignored. |
Lines 334-348
sub transferbook {
Link Here
|
334 |
} |
330 |
} |
335 |
} |
331 |
} |
336 |
|
332 |
|
337 |
# if is permanent... |
|
|
338 |
# FIXME Is this still used by someone? |
339 |
# See other FIXME in AddReturn |
340 |
my $library = Koha::Libraries->find($hbr); |
341 |
if ( $library and $library->get_categories->search({'me.categorycode' => 'PE'})->count ) { |
342 |
$messages->{'IsPermanent'} = $hbr; |
343 |
$dotransfer = 0; |
344 |
} |
345 |
|
346 |
# can't transfer book if is already there.... |
333 |
# can't transfer book if is already there.... |
347 |
if ( $fbr eq $tbr ) { |
334 |
if ( $fbr eq $tbr ) { |
348 |
$messages->{'DestinationEqualsHolding'} = 1; |
335 |
$messages->{'DestinationEqualsHolding'} = 1; |
Lines 1770-1781
No item with this barcode exists. The value is C<$barcode>.
Link Here
|
1770 |
|
1757 |
|
1771 |
The book is not currently on loan. The value is C<$barcode>. |
1758 |
The book is not currently on loan. The value is C<$barcode>. |
1772 |
|
1759 |
|
1773 |
=item C<IsPermanent> |
|
|
1774 |
|
1775 |
The book's home branch is a permanent collection. If you have borrowed |
1776 |
this book, you are not allowed to return it. The value is the code for |
1777 |
the book's home branch. |
1778 |
|
1779 |
=item C<withdrawn> |
1760 |
=item C<withdrawn> |
1780 |
|
1761 |
|
1781 |
This book has been withdrawn/cancelled. The value should be ignored. |
1762 |
This book has been withdrawn/cancelled. The value should be ignored. |
Lines 1893-1908
sub AddReturn {
Link Here
|
1893 |
} |
1874 |
} |
1894 |
} |
1875 |
} |
1895 |
|
1876 |
|
1896 |
|
|
|
1897 |
# check if the book is in a permanent collection.... |
1898 |
# FIXME -- This 'PE' attribute is largely undocumented. afaict, there's no user interface that reflects this functionality. |
1899 |
if ( $returnbranch ) { |
1900 |
my $library = Koha::Libraries->find($returnbranch); |
1901 |
if ( $library and $library->get_categories->search({'me.categorycode' => 'PE'})->count ) { |
1902 |
$messages->{'IsPermanent'} = $returnbranch; |
1903 |
} |
1904 |
} |
1905 |
|
1906 |
# check if the return is allowed at this branch |
1877 |
# check if the return is allowed at this branch |
1907 |
my ($returnallowed, $message) = CanBookBeReturned($item, $branch); |
1878 |
my ($returnallowed, $message) = CanBookBeReturned($item, $branch); |
1908 |
unless ($returnallowed){ |
1879 |
unless ($returnallowed){ |