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

Return to bug 21756