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

Return to bug 21756