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