|
Lines 275-284
is a reference-to-hash which may have any of the following keys:
Link Here
|
| 275 |
|
275 |
|
| 276 |
There is no item in the catalog with the given barcode. The value is C<$barcode>. |
276 |
There is no item in the catalog with the given barcode. The value is C<$barcode>. |
| 277 |
|
277 |
|
| 278 |
=item C<IsPermanent> |
|
|
| 279 |
|
| 280 |
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. |
| 281 |
|
| 282 |
=item C<DestinationEqualsHolding> |
278 |
=item C<DestinationEqualsHolding> |
| 283 |
|
279 |
|
| 284 |
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. |
280 |
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 333-347
sub transferbook {
Link Here
|
| 333 |
} |
329 |
} |
| 334 |
} |
330 |
} |
| 335 |
|
331 |
|
| 336 |
# if is permanent... |
|
|
| 337 |
# FIXME Is this still used by someone? |
| 338 |
# See other FIXME in AddReturn |
| 339 |
my $library = Koha::Libraries->find($hbr); |
| 340 |
if ( $library and $library->get_categories->search({'me.categorycode' => 'PE'})->count ) { |
| 341 |
$messages->{'IsPermanent'} = $hbr; |
| 342 |
$dotransfer = 0; |
| 343 |
} |
| 344 |
|
| 345 |
# can't transfer book if is already there.... |
332 |
# can't transfer book if is already there.... |
| 346 |
if ( $fbr eq $tbr ) { |
333 |
if ( $fbr eq $tbr ) { |
| 347 |
$messages->{'DestinationEqualsHolding'} = 1; |
334 |
$messages->{'DestinationEqualsHolding'} = 1; |
|
Lines 1758-1769
No item with this barcode exists. The value is C<$barcode>.
Link Here
|
| 1758 |
|
1745 |
|
| 1759 |
The book is not currently on loan. The value is C<$barcode>. |
1746 |
The book is not currently on loan. The value is C<$barcode>. |
| 1760 |
|
1747 |
|
| 1761 |
=item C<IsPermanent> |
|
|
| 1762 |
|
| 1763 |
The book's home branch is a permanent collection. If you have borrowed |
| 1764 |
this book, you are not allowed to return it. The value is the code for |
| 1765 |
the book's home branch. |
| 1766 |
|
| 1767 |
=item C<withdrawn> |
1748 |
=item C<withdrawn> |
| 1768 |
|
1749 |
|
| 1769 |
This book has been withdrawn/cancelled. The value should be ignored. |
1750 |
This book has been withdrawn/cancelled. The value should be ignored. |
|
Lines 1881-1896
sub AddReturn {
Link Here
|
| 1881 |
} |
1862 |
} |
| 1882 |
} |
1863 |
} |
| 1883 |
|
1864 |
|
| 1884 |
|
|
|
| 1885 |
# check if the book is in a permanent collection.... |
| 1886 |
# FIXME -- This 'PE' attribute is largely undocumented. afaict, there's no user interface that reflects this functionality. |
| 1887 |
if ( $returnbranch ) { |
| 1888 |
my $library = Koha::Libraries->find($returnbranch); |
| 1889 |
if ( $library and $library->get_categories->search({'me.categorycode' => 'PE'})->count ) { |
| 1890 |
$messages->{'IsPermanent'} = $returnbranch; |
| 1891 |
} |
| 1892 |
} |
| 1893 |
|
| 1894 |
# check if the return is allowed at this branch |
1865 |
# check if the return is allowed at this branch |
| 1895 |
my ($returnallowed, $message) = CanBookBeReturned($item, $branch); |
1866 |
my ($returnallowed, $message) = CanBookBeReturned($item, $branch); |
| 1896 |
unless ($returnallowed){ |
1867 |
unless ($returnallowed){ |