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