my $self = $class->SUPER::new(@_);
- my $element;
-
- foreach $element (keys %fields) {
+ foreach my $element (keys %fields) {
$self->{_permitted}->{$element} = $fields{$element};
}
my $results = $U->simplereq('open-ils.actor', 'open-ils.actor.user.transactions.history.have_balance', $self->{authtoken}, $self->patron->internal_id);
if (ref $results eq 'ARRAY') {
syslog('LOG_INFO', scalar @$results . " bills found for " . $self->patron->internal_id);
- my $bill;
my $payment = $self->fee_amount;
- foreach $bill (@{$results}) {
+ foreach my $bill (@{$results}) {
syslog('LOG_INFO', 'bill '. $bill->id . ' amount ' . $bill->balance_owed);
if (!$self->transaction_id) {
if ($bill->balance_owed >= $payment) {
}
}
-sub pay_bill
-{
+sub pay_bill {
my ($self, $bill, $amount) = @_;
my $user = $self->patron->{user};
my $r = $U->simplereq('open-ils.circ', 'open-ils.circ.money.payment', $self->{authtoken},