View | Details | Raw Unified | Return to bug 21756
Collapse All | Expand All

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

Return to bug 21756