View | Details | Raw Unified | Return to bug 7190
Collapse All | Expand All

(-)a/C4/Circulation.pm (-2 / +2 lines)
Lines 1866-1875 sub _FixAccountForLostAndReturned { Link Here
1866
    my $item_id        = @_ ? shift : $itemnumber;  # Send the barcode if you want that logged in the description
1866
    my $item_id        = @_ ? shift : $itemnumber;  # Send the barcode if you want that logged in the description
1867
    my $dbh = C4::Context->dbh;
1867
    my $dbh = C4::Context->dbh;
1868
    # check for charge made for lost book
1868
    # check for charge made for lost book
1869
    my $sth = $dbh->prepare("SELECT * FROM accountlines WHERE (itemnumber = ?) AND (accounttype='L' OR accounttype='Rep') ORDER BY date DESC");
1869
    my $sth = $dbh->prepare("SELECT * FROM accountlines WHERE itemnumber = ? AND accounttype IN ('L', 'Rep', 'W') ORDER BY date DESC");
1870
    $sth->execute($itemnumber);
1870
    $sth->execute($itemnumber);
1871
    my $data = $sth->fetchrow_hashref;
1871
    my $data = $sth->fetchrow_hashref;
1872
    $data or return;    # bail if there is nothing to do
1872
    $data or return;    # bail if there is nothing to do
1873
    $data->{accounttype} eq 'W' and return;    # Written off
1873
1874
1874
    # writeoff this amount
1875
    # writeoff this amount
1875
    my $offset;
1876
    my $offset;
1876
- 

Return to bug 7190