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

(-)a/Koha/Account.pm (-5 / +6 lines)
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
- 

Return to bug 23321