typos
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 6 Sep 2006 07:15:09 +0000 (07:15 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 6 Sep 2006 07:15:09 +0000 (07:15 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5994 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Actor.pm

index 25b08f4..7194267 100644 (file)
@@ -1341,29 +1341,22 @@ sub user_transactions {
 
        } else { @xact = (); }
 
+       ($trans) = $self
+               ->method_lookup('open-ils.actor.user.transactions.history.still_open')
+               ->run($login_session => $user_id => $type);
+
        if($api =~ /have_charge/o) {
 
-               ($trans) = $self
-                       ->method_lookup('open-ils.actor.user.transactions.history.have_bill')
-                       ->run($login_session => $user_id => $type);
                $trans = [ grep { int($_->total_owed * 100) > 0 } @$trans ];
 
        } elsif($api =~ /have_balance/o) {
 
-               ($trans) = $self
-                       ->method_lookup('open-ils.actor.user.transactions.history.have_balance')
-                       ->run($login_session => $user_id => $type);
-
+               $trans = [ grep { int($_->balance_owed * 100) != 0 } @$trans ];
        } else {
 
-               ($trans) = $self
-                       ->method_lookup('open-ils.actor.user.transactions.history.still_open')
-                       ->run($login_session => $user_id => $type);
                $trans = [ grep { int($_->total_owed * 100) > 0 } @$trans ];
 
        }
-       
-       $trans = [ grep { !$_->xact_finish } @$trans ];
 
        if($api =~ /total/o) { 
                my $total = 0.0;