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"); |