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

(-)a/C4/Accounts.pm (+2 lines)
Lines 107-112 sub chargelostitem{ Link Here
107
                    description => $description,
107
                    description => $description,
108
                    note        => $processingfeenote,
108
                    note        => $processingfeenote,
109
                    user_id     => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
109
                    user_id     => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
110
                    interface   => C4::Context->interface,
110
                    library_id  => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
111
                    library_id  => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
111
                    type        => 'processing',
112
                    type        => 'processing',
112
                    item_id     => $itemnumber,
113
                    item_id     => $itemnumber,
Lines 122-127 sub chargelostitem{ Link Here
122
                    description => $description,
123
                    description => $description,
123
                    note        => undef,
124
                    note        => undef,
124
                    user_id     => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
125
                    user_id     => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
126
                    interface   => C4::Context->interface,
125
                    library_id  => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
127
                    library_id  => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
126
                    type        => 'lost_item',
128
                    type        => 'lost_item',
127
                    item_id     => $itemnumber,
129
                    item_id     => $itemnumber,
(-)a/C4/Circulation.pm (-1 / +9 lines)
Lines 2416-2421 sub _FixAccountForLostAndReturned { Link Here
2416
            {   amount      => $credit_total,
2416
            {   amount      => $credit_total,
2417
                description => 'Item Returned ' . $item_id,
2417
                description => 'Item Returned ' . $item_id,
2418
                type        => 'lost_item_return',
2418
                type        => 'lost_item_return',
2419
                interface   => C4::Context->interface,
2419
                library_id  => $branchcode
2420
                library_id  => $branchcode
2420
            }
2421
            }
2421
        );
2422
        );
Lines 3220-3225 sub AddIssuingCharge { Link Here
3220
            note        => undef,
3221
            note        => undef,
3221
            user_id     => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
3222
            user_id     => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
3222
            library_id  => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
3223
            library_id  => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
3224
            interface   => C4::Context->interface,
3223
            type        => 'rent',
3225
            type        => 'rent',
3224
            item_id     => $checkout->itemnumber,
3226
            item_id     => $checkout->itemnumber,
3225
            issue_id    => $checkout->issue_id,
3227
            issue_id    => $checkout->issue_id,
Lines 3810-3816 sub ProcessOfflinePayment { Link Here
3810
3812
3811
    my $patron = Koha::Patrons->find({ cardnumber => $operation->{cardnumber} });
3813
    my $patron = Koha::Patrons->find({ cardnumber => $operation->{cardnumber} });
3812
3814
3813
    $patron->account->pay({ amount => $operation->{amount}, library_id => $operation->{branchcode} });
3815
    $patron->account->pay(
3816
        {
3817
            amount     => $operation->{amount},
3818
            library_id => $operation->{branchcode},
3819
            interface  => 'koc'
3820
        }
3821
    );
3814
3822
3815
    return "Success.";
3823
    return "Success.";
3816
}
3824
}
(-)a/C4/Log.pm (-1 / +1 lines)
Lines 56-62 The functions in this module perform various functions in order to log all the o Link Here
56
56
57
=item logaction
57
=item logaction
58
58
59
  &logaction($modulename, $actionname, $objectnumber, $infos);
59
  &logaction($modulename, $actionname, $objectnumber, $infos, $interface);
60
60
61
Adds a record into action_logs table to report the different changes upon the database.
61
Adds a record into action_logs table to report the different changes upon the database.
62
Each log entry includes the number of the user currently logged in.  For batch
62
Each log entry includes the number of the user currently logged in.  For batch
(-)a/C4/Overdues.pm (-3 / +11 lines)
Lines 573-580 sub UpdateFine { Link Here
573
573
574
    if ( $data ) {
574
    if ( $data ) {
575
        if ( $data->{'amount'} != $amount ) {
575
        if ( $data->{'amount'} != $amount ) {
576
            my $accountline = Koha::Account::Lines->find( $data->{accountlines_id} );
576
            my $accountline =
577
            $accountline->adjust({ amount => $amount, type => 'fine_update' });
577
              Koha::Account::Lines->find( $data->{accountlines_id} );
578
            $accountline->adjust(
579
                {
580
                    amount    => $amount,
581
                    type      => 'fine_update',
582
                    interface => C4::Context->interface
583
                }
584
            );
578
        }
585
        }
579
    } else {
586
    } else {
580
        if ( $amount ) { # Don't add new fines with an amount of 0
587
        if ( $amount ) { # Don't add new fines with an amount of 0
Lines 592-598 sub UpdateFine { Link Here
592
                    description => $desc,
599
                    description => $desc,
593
                    note        => undef,
600
                    note        => undef,
594
                    user_id     => undef,
601
                    user_id     => undef,
595
                    library_id  => undef,
602
                    interface   => C4::Context->interface,
603
                    library_id  => undef, #FIXME: Should we grab the checkout or circ-control branch here perhaps?
596
                    type        => 'fine',
604
                    type        => 'fine',
597
                    item_id     => $itemnum,
605
                    item_id     => $itemnum,
598
                    issue_id    => $issue_id,
606
                    issue_id    => $issue_id,
(-)a/C4/Reserves.pm (+1 lines)
Lines 575-580 sub ChargeReserveFee { Link Here
575
            note         => undef,
575
            note         => undef,
576
            user_id      => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
576
            user_id      => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
577
            library_id   => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
577
            library_id   => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
578
            interface    => C4::Context->interface,
578
            sip          => undef,
579
            sip          => undef,
579
            invoice_type => undef,
580
            invoice_type => undef,
580
            type         => 'reserve',
581
            type         => 'reserve',
(-)a/C4/SIP/ILS/Transaction/FeePayment.pm (-7 / +9 lines)
Lines 65-74 sub pay { Link Here
65
        if ( $fee ) {
65
        if ( $fee ) {
66
            $account->pay(
66
            $account->pay(
67
                {
67
                {
68
                    amount => $amt,
68
                    amount    => $amt,
69
                    sip    => $sip_type,
69
                    sip       => $sip_type,
70
                    type   => $type,
70
                    type      => $type,
71
                    lines  => [$fee],
71
                    lines     => [$fee],
72
                    interface => C4::Context->interface
72
                }
73
                }
73
            );
74
            );
74
            return 1;
75
            return 1;
Lines 80-88 sub pay { Link Here
80
    else {
81
    else {
81
        $account->pay(
82
        $account->pay(
82
            {
83
            {
83
                amount => $amt,
84
                amount    => $amt,
84
                sip    => $sip_type,
85
                sip       => $sip_type,
85
                type   => $type,
86
                type      => $type,
87
                interface => C4::Context->interface
86
            }
88
            }
87
        );
89
        );
88
        return 1;
90
        return 1;
(-)a/C4/SIP/SIPServer.pm (+4 lines)
Lines 11-16 use IO::Socket::INET; Link Here
11
use Socket qw(:DEFAULT :crlf);
11
use Socket qw(:DEFAULT :crlf);
12
require UNIVERSAL::require;
12
require UNIVERSAL::require;
13
13
14
use C4::Context;
14
use C4::SIP::Sip::Constants qw(:all);
15
use C4::SIP::Sip::Constants qw(:all);
15
use C4::SIP::Sip::Configuration;
16
use C4::SIP::Sip::Configuration;
16
use C4::SIP::Sip::Checksum qw(checksum verify_cksum);
17
use C4::SIP::Sip::Checksum qw(checksum verify_cksum);
Lines 27-32 use constant LOG_SIP => "local6"; # Local alias for the logging facility Link Here
27
# A script with no MAIN namespace?
28
# A script with no MAIN namespace?
28
# A module that takes command line args?
29
# A module that takes command line args?
29
30
31
# Set interface to 'sip'
32
C4::Context->interface('sip');
33
30
my %transports = (
34
my %transports = (
31
    RAW    => \&raw_transport,
35
    RAW    => \&raw_transport,
32
    telnet => \&telnet_transport,
36
    telnet => \&telnet_transport,
(-)a/Koha/Account.pm (-5 / +18 lines)
Lines 86-91 sub pay { Link Here
86
    my $patron = Koha::Patrons->find( $self->{patron_id} );
86
    my $patron = Koha::Patrons->find( $self->{patron_id} );
87
87
88
    my $manager_id = $userenv ? $userenv->{number} : 0;
88
    my $manager_id = $userenv ? $userenv->{number} : 0;
89
    my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface;
89
90
90
    my @fines_paid; # List of account lines paid on with this payment
91
    my @fines_paid; # List of account lines paid on with this payment
91
92
Lines 135-141 sub pay { Link Here
135
                        manager_id            => $manager_id,
136
                        manager_id            => $manager_id,
136
                        note                  => $note,
137
                        note                  => $note,
137
                    }
138
                    }
138
                )
139
                ),
140
                $interface
139
            );
141
            );
140
            push( @fines_paid, $fine->id );
142
            push( @fines_paid, $fine->id );
141
        }
143
        }
Lines 185-191 sub pay { Link Here
185
                        manager_id            => $manager_id,
187
                        manager_id            => $manager_id,
186
                        note                  => $note,
188
                        note                  => $note,
187
                    }
189
                    }
188
                )
190
                ),
191
                $interface
189
            );
192
            );
190
            push( @fines_paid, $fine->id );
193
            push( @fines_paid, $fine->id );
191
        }
194
        }
Lines 211-216 sub pay { Link Here
211
            payment_type      => $payment_type,
214
            payment_type      => $payment_type,
212
            amountoutstanding => 0 - $balance_remaining,
215
            amountoutstanding => 0 - $balance_remaining,
213
            manager_id        => $manager_id,
216
            manager_id        => $manager_id,
217
            interface         => $interface,
214
            branchcode        => $library_id,
218
            branchcode        => $library_id,
215
            note              => $note,
219
            note              => $note,
216
        }
220
        }
Lines 244-250 sub pay { Link Here
244
                    accountlines_paid => \@fines_paid,
248
                    accountlines_paid => \@fines_paid,
245
                    manager_id        => $manager_id,
249
                    manager_id        => $manager_id,
246
                }
250
                }
247
            )
251
            ),
252
            $interface
248
        );
253
        );
249
    }
254
    }
250
255
Lines 289-294 my $credit_line = Koha::Account->new({ patron_id => $patron_id })->add_credit( Link Here
289
        description  => $description,
294
        description  => $description,
290
        note         => $note,
295
        note         => $note,
291
        user_id      => $user_id,
296
        user_id      => $user_id,
297
        interface    => $interface,
292
        library_id   => $library_id,
298
        library_id   => $library_id,
293
        sip          => $sip,
299
        sip          => $sip,
294
        payment_type => $payment_type,
300
        payment_type => $payment_type,
Lines 315-320 sub add_credit { Link Here
315
    my $description  = $params->{description} // q{};
321
    my $description  = $params->{description} // q{};
316
    my $note         = $params->{note} // q{};
322
    my $note         = $params->{note} // q{};
317
    my $user_id      = $params->{user_id};
323
    my $user_id      = $params->{user_id};
324
    my $interface    = $params->{interface};
318
    my $library_id   = $params->{library_id};
325
    my $library_id   = $params->{library_id};
319
    my $sip          = $params->{sip};
326
    my $sip          = $params->{sip};
320
    my $payment_type = $params->{payment_type};
327
    my $payment_type = $params->{payment_type};
Lines 344-349 sub add_credit { Link Here
344
                    payment_type      => $payment_type,
351
                    payment_type      => $payment_type,
345
                    note              => $note,
352
                    note              => $note,
346
                    manager_id        => $user_id,
353
                    manager_id        => $user_id,
354
                    interface         => $interface,
347
                    branchcode        => $library_id,
355
                    branchcode        => $library_id,
348
                    itemnumber        => $item_id,
356
                    itemnumber        => $item_id,
349
                    lastincrement     => undef,
357
                    lastincrement     => undef,
Lines 382-388 sub add_credit { Link Here
382
                            manager_id        => $user_id,
390
                            manager_id        => $user_id,
383
                            branchcode        => $library_id,
391
                            branchcode        => $library_id,
384
                        }
392
                        }
385
                    )
393
                    ),
394
                    $interface
386
                );
395
                );
387
            }
396
            }
388
        }
397
        }
Lines 401-406 my $debit_line = Koha::Account->new({ patron_id => $patron_id })->add_debit( Link Here
401
        description  => $description,
410
        description  => $description,
402
        note         => $note,
411
        note         => $note,
403
        user_id      => $user_id,
412
        user_id      => $user_id,
413
        interface    => $interface,
404
        library_id   => $library_id,
414
        library_id   => $library_id,
405
        type         => $debit_type,
415
        type         => $debit_type,
406
        item_id      => $item_id,
416
        item_id      => $item_id,
Lines 437-442 sub add_debit { Link Here
437
    my $description  = $params->{description} // q{};
447
    my $description  = $params->{description} // q{};
438
    my $note         = $params->{note} // q{};
448
    my $note         = $params->{note} // q{};
439
    my $user_id      = $params->{user_id};
449
    my $user_id      = $params->{user_id};
450
    my $interface    = $params->{interface};
440
    my $library_id   = $params->{library_id};
451
    my $library_id   = $params->{library_id};
441
    my $type         = $params->{type};
452
    my $type         = $params->{type};
442
    my $item_id      = $params->{item_id};
453
    my $item_id      = $params->{item_id};
Lines 468-473 sub add_debit { Link Here
468
                    payment_type      => undef,
479
                    payment_type      => undef,
469
                    note              => $note,
480
                    note              => $note,
470
                    manager_id        => $user_id,
481
                    manager_id        => $user_id,
482
                    interface         => $interface,
471
                    itemnumber        => $item_id,
483
                    itemnumber        => $item_id,
472
                    issue_id          => $issue_id,
484
                    issue_id          => $issue_id,
473
                    branchcode        => $library_id,
485
                    branchcode        => $library_id,
Lines 498-504 sub add_debit { Link Here
498
                            itemnumber        => $item_id,
510
                            itemnumber        => $item_id,
499
                            manager_id        => $user_id,
511
                            manager_id        => $user_id,
500
                        }
512
                        }
501
                    )
513
                    ),
514
                    $interface
502
                );
515
                );
503
            }
516
            }
504
        }
517
        }
(-)a/Koha/Account/Line.pm (-2 / +5 lines)
Lines 229-236 This method allows updating a debit or credit on a patron's account Link Here
229
229
230
    $account_line->adjust(
230
    $account_line->adjust(
231
        {
231
        {
232
            amount => $amount,
232
            amount    => $amount,
233
            type   => $update_type,
233
            type      => $update_type,
234
            interface => $interface
234
        }
235
        }
235
    );
236
    );
236
237
Lines 250-255 sub adjust { Link Here
250
251
251
    my $amount       = $params->{amount};
252
    my $amount       = $params->{amount};
252
    my $update_type  = $params->{type};
253
    my $update_type  = $params->{type};
254
    my $interface    = $params->{interface};
253
255
254
    unless ( exists($Koha::Account::Line::allowed_update->{$update_type}) ) {
256
    unless ( exists($Koha::Account::Line::allowed_update->{$update_type}) ) {
255
        Koha::Exceptions::Account::UnrecognisedType->throw(
257
        Koha::Exceptions::Account::UnrecognisedType->throw(
Lines 286-291 sub adjust { Link Here
286
                        amount      => $new_outstanding * -1,
288
                        amount      => $new_outstanding * -1,
287
                        description => 'Overpayment refund',
289
                        description => 'Overpayment refund',
288
                        type        => 'credit',
290
                        type        => 'credit',
291
                        interface   => $interface,
289
                        ( $update_type eq 'fine_update' ? ( item_id => $self->itemnumber ) : ()),
292
                        ( $update_type eq 'fine_update' ? ( item_id => $self->itemnumber ) : ()),
290
                    }
293
                    }
291
                );
294
                );
(-)a/Koha/Hold.pm (-4 / +5 lines)
Lines 369-379 sub cancel { Link Here
369
                  Koha::Account->new( { patron_id => $self->borrowernumber } );
369
                  Koha::Account->new( { patron_id => $self->borrowernumber } );
370
                $account->add_debit(
370
                $account->add_debit(
371
                    {
371
                    {
372
                        amount  => $charge,
372
                        amount     => $charge,
373
                        user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
373
                        user_id    => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
374
                        interface  => C4::Context->interface,
374
                        library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
375
                        library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
375
                        type    => 'hold_expired',
376
                        type       => 'hold_expired',
376
                        item_id => $self->itemnumber
377
                        item_id    => $self->itemnumber
377
                    }
378
                    }
378
                );
379
                );
379
            }
380
            }
(-)a/Koha/Patron.pm (-3 / +4 lines)
Lines 848-857 sub add_enrolment_fee_if_needed { Link Here
848
    if ( $enrolment_fee && $enrolment_fee > 0 ) {
848
    if ( $enrolment_fee && $enrolment_fee > 0 ) {
849
        $self->account->add_debit(
849
        $self->account->add_debit(
850
            {
850
            {
851
                amount  => $enrolment_fee,
851
                amount     => $enrolment_fee,
852
                user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
852
                user_id    => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef,
853
                interface  => C4::Context->interface,
853
                library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
854
                library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef,
854
                type => 'account'
855
                type       => 'account'
855
            }
856
            }
856
        );
857
        );
857
    }
858
    }
(-)a/Koha/REST/V1/Patrons/Account.pm (+1 lines)
Lines 114-119 sub add_credit { Link Here
114
                description  => $description,
114
                description  => $description,
115
                note         => $note,
115
                note         => $note,
116
                user_id      => $user->id,
116
                user_id      => $user->id,
117
                interface    => 'api',
117
                library_id   => $library_id
118
                library_id   => $library_id
118
            }
119
            }
119
        );
120
        );
(-)a/installer/data/mysql/atomicupdate/bug_22600.perl (+52 lines)
Line 0 Link Here
1
$DBversion = 'XXX';    # will be replaced by the RM
2
if ( CheckVersion($DBversion) ) {
3
4
    if ( !column_exists( 'accountlines', 'interface' ) ) {
5
        $dbh->do(
6
            qq{
7
            ALTER TABLE `accountlines`
8
            ADD
9
              `interface` varchar(16)
10
            AFTER
11
              `manager_id`;
12
          }
13
        );
14
    }
15
16
    $dbh->do(qq{
17
        UPDATE
18
          `accountlines`
19
        SET
20
          interface = 'opac'
21
        WHERE
22
          borrowernumber = manager_id;     
23
    });
24
25
    $dbh->do(qq{
26
        UPDATE
27
          `accountlines`
28
        SET
29
          interface = 'cron'
30
        WHERE
31
          manager_id IS NULL
32
        AND
33
          branchcode IS NULL;
34
    });
35
36
    $dbh->do(qq{
37
        UPDATE
38
          `accountlines`
39
        SET
40
          interface = 'intranet'
41
        WHERE
42
          interface IS NULL;
43
    });
44
45
    $dbh->do(qq{
46
        ALTER TABLE `accountlines`
47
        MODIFY COLUMN `interface` varchar(16) NOT NULL;
48
    });
49
50
    SetVersion($DBversion);
51
    print "Upgrade to $DBversion done (Bug 22600 - Add interface to accountlines)\n";
52
}
(-)a/installer/data/mysql/kohastructure.sql (+1 lines)
Lines 2683-2688 CREATE TABLE `accountlines` ( Link Here
2683
  `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
2683
  `timestamp` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
2684
  `note` MEDIUMTEXT NULL default NULL,
2684
  `note` MEDIUMTEXT NULL default NULL,
2685
  `manager_id` int(11) NULL DEFAULT NULL,
2685
  `manager_id` int(11) NULL DEFAULT NULL,
2686
  `interface` VARCHAR(16) NOT NULL,
2686
  `branchcode` VARCHAR( 10 ) NULL DEFAULT NULL, -- the branchcode of the library where a payment was made, a manual invoice created, etc.
2687
  `branchcode` VARCHAR( 10 ) NULL DEFAULT NULL, -- the branchcode of the library where a payment was made, a manual invoice created, etc.
2687
  PRIMARY KEY (`accountlines_id`),
2688
  PRIMARY KEY (`accountlines_id`),
2688
  KEY `acctsborridx` (`borrowernumber`),
2689
  KEY `acctsborridx` (`borrowernumber`),
(-)a/members/mancredit.pl (-1 / +2 lines)
Lines 90-96 if ($add){ Link Here
90
        library_id  => $library_id,
90
        library_id  => $library_id,
91
        note        => $note,
91
        note        => $note,
92
        type        => $type,
92
        type        => $type,
93
        user_id     => $logged_in_user->id
93
        user_id     => $logged_in_user->id,
94
        interface   => C4::Context->interface
94
    });
95
    });
95
96
96
    if ( C4::Context->preference('AccountAutoReconcile') ) {
97
    if ( C4::Context->preference('AccountAutoReconcile') ) {
(-)a/members/pay.pl (+2 lines)
Lines 114-119 elsif ( $input->param('confirm_writeoff') ) { Link Here
114
                lines      => [ scalar Koha::Account::Lines->find($accountlines_id) ],
114
                lines      => [ scalar Koha::Account::Lines->find($accountlines_id) ],
115
                type       => 'writeoff',
115
                type       => 'writeoff',
116
                note       => $payment_note,
116
                note       => $payment_note,
117
                interface  => C4::Context->interface,
117
                library_id => $branch,
118
                library_id => $branch,
118
            }
119
            }
119
        );
120
        );
Lines 218-223 sub writeoff_all { Link Here
218
                    lines  => [ scalar Koha::Account::Lines->find($accountlines_id) ],
219
                    lines  => [ scalar Koha::Account::Lines->find($accountlines_id) ],
219
                    type   => 'writeoff',
220
                    type   => 'writeoff',
220
                    note   => $payment_note,
221
                    note   => $payment_note,
222
                    interface  => C4::Context->interface,
221
                    library_id => $branch,
223
                    library_id => $branch,
222
                }
224
                }
223
            );
225
            );
(-)a/members/paycollect.pl (+3 lines)
Lines 126-131 if ( $total_paid and $total_paid ne '0.00' ) { Link Here
126
                    amount       => $total_paid,
126
                    amount       => $total_paid,
127
                    library_id   => $branch,
127
                    library_id   => $branch,
128
                    note         => $payment_note,
128
                    note         => $payment_note,
129
                    interface    => C4::Context->interface,
129
                    payment_type => $payment_type,
130
                    payment_type => $payment_type,
130
                }
131
                }
131
            );
132
            );
Lines 158-163 if ( $total_paid and $total_paid ne '0.00' ) { Link Here
158
                        amount       => $total_paid,
159
                        amount       => $total_paid,
159
                        lines        => \@lines,
160
                        lines        => \@lines,
160
                        note         => $note,
161
                        note         => $note,
162
                        interface    => C4::Context->interface,
161
                        payment_type => $payment_type,
163
                        payment_type => $payment_type,
162
                    }
164
                    }
163
                  );
165
                  );
Lines 169-174 if ( $total_paid and $total_paid ne '0.00' ) { Link Here
169
                        amount       => $total_paid,
171
                        amount       => $total_paid,
170
                        note         => $note,
172
                        note         => $note,
171
                        payment_type => $payment_type,
173
                        payment_type => $payment_type,
174
                        interface    => C4::Context->interface
172
                    }
175
                    }
173
                );
176
                );
174
            }
177
            }
(-)a/offline_circ/process_koc.pl (-1 / +1 lines)
Lines 371-377 sub kocMakePayment { Link Here
371
    my $patron = Koha::Patrons->find( { cardnumber => $cardnumber } );
371
    my $patron = Koha::Patrons->find( { cardnumber => $cardnumber } );
372
372
373
    Koha::Account->new( { patron_id => $patron->id } )
373
    Koha::Account->new( { patron_id => $patron->id } )
374
      ->pay( { amount => $amount } );
374
      ->pay( { amount => $amount, interface => C4::Context->interface } );
375
375
376
    push @output,
376
    push @output,
377
      {
377
      {
(-)a/opac/opac-account-pay-paypal-return.pl (-2 / +2 lines)
Lines 103-109 if ( $response->is_success ) { Link Here
103
            {
103
            {
104
                amount => $amount,
104
                amount => $amount,
105
                lines  => \@lines,
105
                lines  => \@lines,
106
                note   => 'PayPal'
106
                note   => 'PayPal',
107
                interface => C4::Context->interface
107
            }
108
            }
108
        );
109
        );
109
    }
110
    }
110
- 

Return to bug 22600