From 1ae22a3e7f14863ad2ec08bf07c4555959a9b163 Mon Sep 17 00:00:00 2001
From: phasefx <phasefx@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 1 Mar 2010 19:58:55 +0000
Subject: [PATCH] Don't assume an options parameter was passed, and remove the
ability to 'flesh your way to China'
git-svn-id: svn://svn.open-ils.org/ILS/trunk@15646 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
index bf298a1296..16acddf4f9 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
@@ -1202,22 +1202,21 @@ sub po_events {
"order_by"=>[{"class"=>"atev", "field"=>"run_time", "direction"=>"desc"}]
};
- if (defined $options->{state}) {
+ if ($options && defined $options->{state}) {
$query->{'where'}{'state'} = $options->{state}
}
- if (defined $options->{start_time}) {
+ if ($options && defined $options->{start_time}) {
$query->{'where'}{'start_time'} = $options->{start_time};
}
- if (defined $options->{order_by}) {
+ if ($options && defined $options->{order_by}) {
$query->{'order_by'} = $options->{order_by};
}
my $po_events = $e->json_query($query);
- my $flesh_fields = $options->{flesh_fields} || {};
- my $flesh_depth = $options->{flesh_depth} || 1;
- $flesh_fields->{atev} = ['event_def'] unless $flesh_fields->{atev};
+ my $flesh_fields = ( 'atev' => [ 'event_def' ] };
+ my $flesh_depth = 1;
for my $id (@$po_events) {
my $event = $e->retrieve_action_trigger_event([
--
2.11.0