From ed39547cf2733e70bbcb63d45b12ca1d7fcbf1be Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 5 Nov 2009 22:45:12 +0000
Subject: [PATCH] repaired mbts array ref
git-svn-id: svn://svn.open-ils.org/ILS/trunk@14797 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index eb6ace8265..cef56c094f 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -1587,6 +1587,7 @@ sub user_transactions {
->method_lookup('open-ils.actor.user.transactions.history.still_open')
->run($login_session => $user_id => $type);
+
if($api =~ /have_charge/o) {
$trans = [ grep { int($_->total_owed * 100) > 0 } @$trans ];
@@ -2086,7 +2087,7 @@ sub user_transaction_history {
my $api = $self->api_name;
my @xact_finish = (xact_finish => undef ) if ($api =~ /history.still_open$/);
- my @mbts = $e->search_money_billable_transaction_summary(
+ my $mbts = $e->search_money_billable_transaction_summary(
[
{ usr => $userid, @xact_finish },
{ order_by => { mbt => 'xact_start DESC' } }
@@ -2094,25 +2095,25 @@ sub user_transaction_history {
);
if(defined($type)) {
- @mbts = grep { $_->xact_type eq $type } @mbts;
+ @$mbts = grep { $_->xact_type eq $type } @$mbts;
}
if($api =~ /have_balance/o) {
- @mbts = grep { int($_->balance_owed * 100) != 0 } @mbts;
+ @$mbts = grep { int($_->balance_owed * 100) != 0 } @$mbts;
}
if($api =~ /have_charge/o) {
- @mbts = grep { defined($_->last_billing_ts) } @mbts;
+ @$mbts = grep { defined($_->last_billing_ts) } @$mbts;
}
if($api =~ /have_bill/o) {
- @mbts = grep { int($_->total_owed * 100) != 0 } @mbts;
+ @$mbts = grep { int($_->total_owed * 100) != 0 } @$mbts;
}
if ($api =~ /\.ids/) {
- return [map {$_->id} @mbts];
+ return [map {$_->id} @$mbts];
} else {
- return [@mbts];
+ return $mbts;
}
}
--
2.11.0