Lines 1755-1780
sub AddReturn {
Link Here
|
1755 |
|
1755 |
|
1756 |
my $borrowernumber = $borrower->{'borrowernumber'} || undef; # we don't know if we had a borrower or not |
1756 |
my $borrowernumber = $borrower->{'borrowernumber'} || undef; # we don't know if we had a borrower or not |
1757 |
|
1757 |
|
1758 |
my $yaml = C4::Context->preference('UpdateNotForLoanStatusOnCheckin'); |
|
|
1759 |
if ($yaml) { |
1760 |
$yaml = "$yaml\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
1761 |
my $rules; |
1762 |
eval { $rules = YAML::Load($yaml); }; |
1763 |
if ($@) { |
1764 |
warn "Unable to parse UpdateNotForLoanStatusOnCheckin syspref : $@"; |
1765 |
} |
1766 |
else { |
1767 |
foreach my $key ( keys %$rules ) { |
1768 |
if ( $item->{notforloan} eq $key ) { |
1769 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1770 |
ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber ); |
1771 |
last; |
1772 |
} |
1773 |
} |
1774 |
} |
1775 |
} |
1776 |
|
1777 |
|
1778 |
# check if the book is in a permanent collection.... |
1758 |
# check if the book is in a permanent collection.... |
1779 |
# FIXME -- This 'PE' attribute is largely undocumented. afaict, there's no user interface that reflects this functionality. |
1759 |
# FIXME -- This 'PE' attribute is largely undocumented. afaict, there's no user interface that reflects this functionality. |
1780 |
if ( $hbr ) { |
1760 |
if ( $hbr ) { |
Lines 1846-1852
sub AddReturn {
Link Here
|
1846 |
|
1826 |
|
1847 |
} |
1827 |
} |
1848 |
|
1828 |
|
1849 |
ModItem({ onloan => undef }, $issue->{'biblionumber'}, $item->{'itemnumber'}); |
1829 |
my $fields = { onloan => undef }; |
|
|
1830 |
|
1831 |
my $yaml = C4::Context->preference('UpdateNotForLoanStatusOnCheckin'); |
1832 |
if ($yaml) { |
1833 |
$yaml = "$yaml\n\n"; # YAML is anal on ending \n. Surplus does not hurt |
1834 |
my $rules; |
1835 |
eval { $rules = YAML::Load($yaml); }; |
1836 |
if ($@) { |
1837 |
warn "Unable to parse UpdateNotForLoanStatusOnCheckin syspref : $@"; |
1838 |
} |
1839 |
else { |
1840 |
foreach my $key ( keys %$rules ) { |
1841 |
if ( $item->{notforloan} eq $key ) { |
1842 |
$messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; |
1843 |
$fields->{notforloan} = $rules->{$key}; |
1844 |
last; |
1845 |
} |
1846 |
} |
1847 |
} |
1848 |
} |
1849 |
|
1850 |
ModItem( $fields, $issue->{'biblionumber'}, $item->{'itemnumber'} ); |
1850 |
} |
1851 |
} |
1851 |
|
1852 |
|
1852 |
# the holdingbranch is updated if the document is returned to another location. |
1853 |
# the holdingbranch is updated if the document is returned to another location. |
1853 |
- |
|
|