query billing events to see affected objects, #15142

1 files changed, 29 insertions, 4 deletions

diff --git a/httemplate/browse/part_event.html b/httemplate/browse/part_event.html
index f68f06b9f..6be28602d 100644
--- a/httemplate/browse/part_event.html
+++ b/httemplate/browse/part_event.html
@@ -22,14 +22,14 @@
                                           'Action',
                                         ],
                 'fields'             => [ 'eventpart',
-                                          'event',
+                                          $event_sub,
                                           $eventtable_sub,
                                           $check_freq_sub,
                                           $conditions_sub,
                                           $action_sub,
                                         ],
                 'links'              => [ $link,
-                                          $link,
+                                          '',
                                           '',
                                           '',
                                           '',
@@ -40,6 +40,33 @@
 %>
 <%once>
 
+my $link = [ $p.'edit/part_event.html?', 'eventpart' ];
+
+my $event_sub = sub {
+  my $part_event = shift;
+  my $onclick = include('/elements/popup_link_onclick.html',
+    action      => $p.'view/part_event-targets.html?'.$part_event->eventpart,
+    actionlabel => 'Event query - '.$part_event->event,
+    width       => 650,
+    height      => 420,
+    close_text  => 'Close',
+  );
+  [#rows
+    [#subcolumns
+      {
+        'data' => $part_event->event,
+        'link' => $p.'edit/part_event.html?'.$part_event->eventpart,
+      },
+      {
+        'data' => ' (query) ',
+        'size' => '-1',
+        'data_style'  => 'b',
+        'onclick' => $onclick,
+      },
+    ],
+  ];
+};
+
 my $eventtable_labels = FS::part_event->eventtable_labels;
 my $eventtable_sub = sub { $eventtable_labels->{ shift->eventtable }; };
 
@@ -131,8 +158,6 @@ my $action_sub = sub {
 
 };
 
-my $link = [ $p.'edit/part_event.html?', 'eventpart' ];
-
 </%once>
 <%init>