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