|
Lines 95-101
sub pay {
Link Here
|
| 95 |
|
95 |
|
| 96 |
my $patron = Koha::Patrons->find( $self->{patron_id} ); |
96 |
my $patron = Koha::Patrons->find( $self->{patron_id} ); |
| 97 |
|
97 |
|
| 98 |
my $manager_id = $userenv ? $userenv->{number} : 0; |
98 |
my $manager_id = $userenv ? $userenv->{number} : undef; |
| 99 |
my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface; |
99 |
my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface; |
| 100 |
Koha::Exceptions::Account::RegisterRequired->throw() |
100 |
Koha::Exceptions::Account::RegisterRequired->throw() |
| 101 |
if ( C4::Context->preference("UseCashRegisters") |
101 |
if ( C4::Context->preference("UseCashRegisters") |
| 102 |
- |
|
|