|
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 |
- |
|
|