Lines 1785-1803
sub AddReturn {
Link Here
|
1785 |
} |
1785 |
} |
1786 |
|
1786 |
|
1787 |
if ($borrowernumber) { |
1787 |
if ($borrowernumber) { |
1788 |
if($issue->{'overdue'}){ |
1788 |
if ( $issue->{'overdue'} ) { |
1789 |
my ( $amount, $type, $unitcounttotal ) = C4::Overdues::CalcFine( $item, $borrower->{categorycode},$branch, $datedue, $today ); |
1789 |
my $control = C4::Context->preference('CircControl'); |
|
|
1790 |
my $control_branchcode = |
1791 |
( $control eq 'ItemHomeLibrary' ) ? $item->{homebranch} |
1792 |
: ( $control eq 'PatronLibrary' ) ? $borrower->{branchcode} |
1793 |
: $issue->{branchcode}; |
1794 |
|
1795 |
my ( $amount, $type, $unitcounttotal ) = |
1796 |
C4::Overdues::CalcFine( $item, $borrower->{categorycode}, |
1797 |
$control_branchcode, $datedue, $today ); |
1798 |
|
1790 |
$type ||= q{}; |
1799 |
$type ||= q{}; |
1791 |
if ( $amount > 0 && ( C4::Context->preference('finesMode') eq 'production' )) { |
1800 |
|
1792 |
C4::Overdues::UpdateFine( |
1801 |
if ( $amount > 0 |
1793 |
$issue->{itemnumber}, |
1802 |
&& C4::Context->preference('finesMode') eq 'production' ) |
1794 |
$issue->{borrowernumber}, |
1803 |
{ |
1795 |
$amount, $type, output_pref($datedue) |
1804 |
C4::Overdues::UpdateFine( $issue->{itemnumber}, |
1796 |
); |
1805 |
$issue->{borrowernumber}, |
1797 |
} |
1806 |
$amount, $type, output_pref($datedue) ); |
|
|
1807 |
} |
1798 |
} |
1808 |
} |
1799 |
MarkIssueReturned($borrowernumber, $item->{'itemnumber'}, $circControlBranch, '', $borrower->{'privacy'}); |
1809 |
|
1800 |
$messages->{'WasReturned'} = 1; # FIXME is the "= 1" right? This could be the borrower hash. |
1810 |
MarkIssueReturned( $borrowernumber, $item->{'itemnumber'}, |
|
|
1811 |
$circControlBranch, '', $borrower->{'privacy'} ); |
1812 |
|
1813 |
# FIXME is the "= 1" right? This could be the borrower hash. |
1814 |
$messages->{'WasReturned'} = 1; |
1815 |
|
1801 |
} |
1816 |
} |
1802 |
|
1817 |
|
1803 |
ModItem({ onloan => undef }, $issue->{'biblionumber'}, $item->{'itemnumber'}); |
1818 |
ModItem({ onloan => undef }, $issue->{'biblionumber'}, $item->{'itemnumber'}); |
1804 |
- |
|
|