Lines 29-34
use Koha::Account::Lines;
Link Here
|
29 |
use Koha::Account::Offsets; |
29 |
use Koha::Account::Offsets; |
30 |
use Koha::Items; |
30 |
use Koha::Items; |
31 |
|
31 |
|
|
|
32 |
use Mojo::Util qw(deprecated); |
32 |
use Data::Dumper qw(Dumper); |
33 |
use Data::Dumper qw(Dumper); |
33 |
|
34 |
|
34 |
use vars qw(@ISA @EXPORT); |
35 |
use vars qw(@ISA @EXPORT); |
Lines 37-43
BEGIN {
Link Here
|
37 |
require Exporter; |
38 |
require Exporter; |
38 |
@ISA = qw(Exporter); |
39 |
@ISA = qw(Exporter); |
39 |
@EXPORT = qw( |
40 |
@EXPORT = qw( |
40 |
&manualinvoice |
|
|
41 |
&getnextacctno |
41 |
&getnextacctno |
42 |
&chargelostitem |
42 |
&chargelostitem |
43 |
&purge_zero_balance_fees |
43 |
&purge_zero_balance_fees |
Lines 161-189
sub chargelostitem{
Link Here
|
161 |
&manualinvoice($borrowernumber, $itemnumber, $description, $type, |
161 |
&manualinvoice($borrowernumber, $itemnumber, $description, $type, |
162 |
$amount, $note); |
162 |
$amount, $note); |
163 |
|
163 |
|
164 |
C<$borrowernumber> is the patron's borrower number. |
164 |
This function is now deprecated and not used anywhere within koha. It is due for complete removal in 19.11 |
165 |
C<$description> is a description of the transaction. |
|
|
166 |
C<$type> may be one of C<CS>, C<CB>, C<CW>, C<CF>, C<CL>, C<N>, C<L>, |
167 |
or C<REF>. |
168 |
C<$itemnumber> is the item involved, if pertinent; otherwise, it |
169 |
should be the empty string. |
170 |
|
165 |
|
171 |
=cut |
166 |
=cut |
172 |
|
167 |
|
173 |
#' |
|
|
174 |
# FIXME: In Koha 3.0 , the only account adjustment 'types' passed to this function |
175 |
# are: |
176 |
# 'C' = CREDIT |
177 |
# 'FOR' = FORGIVEN (Formerly 'F', but 'F' is taken to mean 'FINE' elsewhere) |
178 |
# 'N' = New Card fee |
179 |
# 'F' = Fine |
180 |
# 'A' = Account Management fee |
181 |
# 'M' = Sundry |
182 |
# 'L' = Lost Item |
183 |
# |
184 |
|
185 |
sub manualinvoice { |
168 |
sub manualinvoice { |
186 |
my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_; |
169 |
my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_; |
|
|
170 |
|
171 |
deprecated "C4::Accounts::manualinvoice is deprecated in favor of Koha::Account->add_debit"; |
172 |
|
187 |
my $manager_id = 0; |
173 |
my $manager_id = 0; |
188 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
174 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
189 |
my $dbh = C4::Context->dbh; |
175 |
my $dbh = C4::Context->dbh; |
190 |
- |
|
|