Lines 106-112
sub chargelostitem{
Link Here
|
106 |
amount => $processfee, |
106 |
amount => $processfee, |
107 |
description => $description, |
107 |
description => $description, |
108 |
note => $processingfeenote, |
108 |
note => $processingfeenote, |
109 |
user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : 0, |
109 |
user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef, |
110 |
library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef, |
110 |
library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef, |
111 |
type => 'processing', |
111 |
type => 'processing', |
112 |
item_id => $itemnumber, |
112 |
item_id => $itemnumber, |
Lines 121-127
sub chargelostitem{
Link Here
|
121 |
amount => $replacementprice, |
121 |
amount => $replacementprice, |
122 |
description => $description, |
122 |
description => $description, |
123 |
note => undef, |
123 |
note => undef, |
124 |
user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : 0, |
124 |
user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef, |
125 |
library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef, |
125 |
library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef, |
126 |
type => 'lost_item', |
126 |
type => 'lost_item', |
127 |
item_id => $itemnumber, |
127 |
item_id => $itemnumber, |
Lines 146-153
sub manualinvoice {
Link Here
|
146 |
|
146 |
|
147 |
deprecated "C4::Accounts::manualinvoice is deprecated in favor of Koha::Account->add_debit"; |
147 |
deprecated "C4::Accounts::manualinvoice is deprecated in favor of Koha::Account->add_debit"; |
148 |
|
148 |
|
149 |
my $manager_id = 0; |
149 |
my $manager_id = C4::Context->userenv ? C4::Context->userenv->{'number'} : undef; |
150 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
|
|
151 |
my $dbh = C4::Context->dbh; |
150 |
my $dbh = C4::Context->dbh; |
152 |
my $insert; |
151 |
my $insert; |
153 |
my $amountleft = $amount; |
152 |
my $amountleft = $amount; |