X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fpart_event-targets.html;h=e8b1266ef26083bdcaeca6779023b57609852404;hb=0bca43616911f2b48d9a0617e70a3bf0f30b92db;hp=c5faccfd6680e9cbaaf891c6925ef89c68264b7d;hpb=c6e4f9460f44a7440ef2fa7e67ed51dfe40a7668;p=freeside.git
diff --git a/httemplate/view/part_event-targets.html b/httemplate/view/part_event-targets.html
index c5faccfd6..e8b1266ef 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;
@@ -55,9 +65,6 @@
%}
<& /elements/footer.html &>
-<%once>
-use List::MoreUtils qw(uniq);
-%once>
<%init>
my $curuser = $FS::CurrentUser::CurrentUser;
@@ -65,12 +72,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