|
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 211-239
sub chargelostitem{
Link Here
|
| 211 |
&manualinvoice($borrowernumber, $itemnumber, $description, $type, |
211 |
&manualinvoice($borrowernumber, $itemnumber, $description, $type, |
| 212 |
$amount, $note); |
212 |
$amount, $note); |
| 213 |
|
213 |
|
| 214 |
C<$borrowernumber> is the patron's borrower number. |
214 |
This function is now deprecated and not used anywhere within koha. It is due for complete removal in 19.11 |
| 215 |
C<$description> is a description of the transaction. |
|
|
| 216 |
C<$type> may be one of C<CS>, C<CB>, C<CW>, C<CF>, C<CL>, C<N>, C<L>, |
| 217 |
or C<REF>. |
| 218 |
C<$itemnumber> is the item involved, if pertinent; otherwise, it |
| 219 |
should be the empty string. |
| 220 |
|
215 |
|
| 221 |
=cut |
216 |
=cut |
| 222 |
|
217 |
|
| 223 |
#' |
|
|
| 224 |
# FIXME: In Koha 3.0 , the only account adjustment 'types' passed to this function |
| 225 |
# are: |
| 226 |
# 'C' = CREDIT |
| 227 |
# 'FOR' = FORGIVEN (Formerly 'F', but 'F' is taken to mean 'FINE' elsewhere) |
| 228 |
# 'N' = New Card fee |
| 229 |
# 'F' = Fine |
| 230 |
# 'A' = Account Management fee |
| 231 |
# 'M' = Sundry |
| 232 |
# 'L' = Lost Item |
| 233 |
# |
| 234 |
|
| 235 |
sub manualinvoice { |
218 |
sub manualinvoice { |
| 236 |
my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_; |
219 |
my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_; |
|
|
220 |
|
| 221 |
deprecated "C4::Accounts::manualinvoice is deprecated in favor of Koha::Account->add_debit"; |
| 222 |
|
| 237 |
my $manager_id = 0; |
223 |
my $manager_id = 0; |
| 238 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
224 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
| 239 |
my $dbh = C4::Context->dbh; |
225 |
my $dbh = C4::Context->dbh; |
| 240 |
- |
|
|