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

(-)a/C4/Circulation.pm (+19 lines)
Lines 77-82 BEGIN { Link Here
77
    # FIXME subs that should probably be elsewhere
77
    # FIXME subs that should probably be elsewhere
78
    push @EXPORT_OK, qw(
78
    push @EXPORT_OK, qw(
79
      barcodedecode
79
      barcodedecode
80
      FoundItem
80
      LostItem
81
      LostItem
81
      ReturnLostItem
82
      ReturnLostItem
82
      GetPendingOnSiteCheckouts
83
      GetPendingOnSiteCheckouts
Lines 4011-4016 sub LostItem{ Link Here
4011
    }
4012
    }
4012
}
4013
}
4013
4014
4015
sub FoundItem {
4016
    my $itemnumber = shift;
4017
4018
    my $accountlines = Koha::Account::Lines->search(
4019
        {
4020
            itemnumber        => $itemnumber,
4021
            debit_type_code   => 'OVERDUE',
4022
            status            => 'LOST',
4023
            amountoutstanding => { '!=', 0 }
4024
        }
4025
    );
4026
    return unless $accountlines->count;
4027
4028
    my $accountline = $accountlines->next;
4029
    $accountline->status('UNRETURNED');
4030
    $accountline->store;
4031
}
4032
4014
sub GetOfflineOperations {
4033
sub GetOfflineOperations {
4015
    my $dbh = C4::Context->dbh;
4034
    my $dbh = C4::Context->dbh;
4016
    my $sth = $dbh->prepare("SELECT * FROM pending_offline_operations WHERE branchcode=? ORDER BY timestamp");
4035
    my $sth = $dbh->prepare("SELECT * FROM pending_offline_operations WHERE branchcode=? ORDER BY timestamp");
(-)a/catalogue/updateitem.pl (-3 / +8 lines)
Lines 22-28 use CGI qw ( -utf8 ); Link Here
22
use C4::Auth qw( checkauth );
22
use C4::Auth qw( checkauth );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output;
25
use C4::Circulation qw( LostItem );
25
use C4::Circulation qw( LostItem FoundItem );
26
use C4::Reserves;
26
use C4::Reserves;
27
27
28
my $cgi= CGI->new;
28
my $cgi= CGI->new;
Lines 85-90 elsif ( $op eq "set_public_note" ) { # i.e., itemnotes parameter passed from for Link Here
85
85
86
$item->store;
86
$item->store;
87
87
88
LostItem($itemnumber, 'moredetail') if $op eq "set_lost";
88
if ($op eq "set_lost") {
89
    if ($itemlost) {
90
        LostItem($itemnumber, 'moredetail');
91
    } else {
92
        FoundItem($itemnumber);
93
    }
94
}
89
95
90
print $cgi->redirect("moredetail.pl?" . $messages . "biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
96
print $cgi->redirect("moredetail.pl?" . $messages . "biblionumber=$biblionumber&itemnumber=$itemnumber#item$itemnumber");
91
- 

Return to bug 31060