X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fpart_event-targets.html;fp=httemplate%2Fview%2Fpart_event-targets.html;h=2029fd4bc1d366e22e0e46753391321896cf8f51;hb=fdd00d4549faaa9de8952402f77fa86d0b8b22ee;hp=c5faccfd6680e9cbaaf891c6925ef89c68264b7d;hpb=5665d202b0b91bb9ad685c209265b7a3405de768;p=freeside.git
diff --git a/httemplate/view/part_event-targets.html b/httemplate/view/part_event-targets.html
index c5faccfd6..2029fd4bc 100644
--- a/httemplate/view/part_event-targets.html
+++ b/httemplate/view/part_event-targets.html
@@ -3,6 +3,16 @@
'title' => 'Event query - '.$part_event->event,
}
&>
+
+
% if ( $objects > 0 ) {
<% emt("[quant,_1,$label]", $objects) %>
% if ( $part_event->eventtable ne 'cust_main' ) {
@@ -18,8 +28,8 @@
% my @rowcolors = ('ffffff','eeeeee');
% my $row = 0;
-
% foreach my $object (@targets) {
+
% # now works for all eventtables, including cust_pkg
% my $link = $p . 'view/' . $part_event->eventtable . '.cgi?' .
% $object->$pkey;
@@ -65,12 +75,14 @@ die "access denied"
unless $curuser->access_right('Edit billing events')
|| $curuser->access_right('Edit global billing events');
-my ($eventpart) = $cgi->keywords;
+my ($eventpart) = $cgi->param('eventpart');
$eventpart =~ /^\d+$/ or die 'illegal eventpart';
+my $time = parse_datetime($cgi->param('date')) || time;
+
my $part_event = FS::part_event->by_key($eventpart)
or die "Event definition $eventpart not found.\n";
-my @targets = $part_event->targets;
+my @targets = $part_event->targets('time' => $time);
my $total = @targets;
# in imitation of search/elements/search-html.html