return ($xact, $evt);
}
+sub fetch_billable_xact_summary {
+ my( $self, $id ) = @_;
+ my($xact, $evt);
+ $logger->debug("Fetching billable transaction summary %id");
+ $xact = $self->cstorereq(
+ 'open-ils.cstore.direct.money.billable_transaction_summary.retrieve', $id );
+ $evt = OpenILS::Event->new('MONEY_BILLABLE_TRANSACTION_NOT_FOUND') unless $xact;
+ return ($xact, $evt);
+}
sub fetch_fleshed_copy {
my( $self, $id ) = @_;
my $amount = $pay->[1];
$amount =~ s/\$//og; # just to be safe
- ($trans, $evt) = $apputils->fetch_open_billable_transaction($transid);
+ #($trans, $evt) = $apputils->fetch_open_billable_transaction($transid);
+ ($trans, $evt) = $apputils->fetch_billable_xact_summary($transid);
return $evt if $evt;
if($trans->usr != $userid) { # Do we need to restrict this in some way ??