|
Lines 89-96
sub pay {
Link Here
|
| 89 |
my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface; |
89 |
my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface; |
| 90 |
Koha::Exceptions::Account::RegisterRequired->throw() |
90 |
Koha::Exceptions::Account::RegisterRequired->throw() |
| 91 |
if ( C4::Context->preference("UseCashRegisters") |
91 |
if ( C4::Context->preference("UseCashRegisters") |
| 92 |
&& !defined($cash_register) |
92 |
&& defined($payment_type) |
| 93 |
&& ( $interface ne 'opac' ) ); |
93 |
&& ( $payment_type eq 'CASH' ) |
|
|
94 |
&& !defined($cash_register) ); |
| 94 |
|
95 |
|
| 95 |
my @fines_paid; # List of account lines paid on with this payment |
96 |
my @fines_paid; # List of account lines paid on with this payment |
| 96 |
|
97 |
|
|
Lines 352-359
sub add_credit {
Link Here
|
| 352 |
|
353 |
|
| 353 |
Koha::Exceptions::Account::RegisterRequired->throw() |
354 |
Koha::Exceptions::Account::RegisterRequired->throw() |
| 354 |
if ( C4::Context->preference("UseCashRegisters") |
355 |
if ( C4::Context->preference("UseCashRegisters") |
| 355 |
&& !defined($cash_register) |
356 |
&& defined($payment_type) |
| 356 |
&& ( $payment_type eq 'CASH' ) ); |
357 |
&& ( $payment_type eq 'CASH' ) |
|
|
358 |
&& !defined($cash_register) ); |
| 357 |
|
359 |
|
| 358 |
my $schema = Koha::Database->new->schema; |
360 |
my $schema = Koha::Database->new->schema; |
| 359 |
|
361 |
|
| 360 |
- |
|
|