httemplate/browse/log_email.html

   1 <% include('/elements/init_overlib.html') %>
   2 <% include('/browse/elements/browse.html',
   3      'title'         => 'Log email condition configuration',
   4      'name_singular' => 'condition',
   5      'html_init'     => '<P STYLE="margin-top: 0">'
   6                         . $add_condition_link
   7                         . ' | '
   8                         . $system_log_link
   9                         . '</P>',
  10      'query'         => $query,
  11      'count_query'   => $count_query,
  12      'header'      => [ '#',
  13                         'Context',
  14                         'Min. Level',
  15                         'Template',
  16                         'To',
  17                         '',
  18                       ],
  19      'fields'      => [ 'logemailnum',
  20                         sub { $_[0]->context || '(all)' },
  21                         sub { $FS::Log::LEVELS{$_[0]->min_level} },
  22                         'msgname',
  23                         'to_addr',
  24                         $actions,
  25                       ],
  26      'sort_fields' => [ 'logemailnum',
  27                         'context',
  28                         'min_level',
  29                         'msgname',
  30                         'to_addr',
  31                         '',
  32                       ],
  33      'links'       => [ $editlink,
  34                         $editlink,
  35                         $editlink,
  36                         $editlink,
  37                         $editlink,
  38                         '',
  39                       ],
  40
  41    ) %>
  42
  43 <script>
  44   function areyousure_delete_log_email(logemailnum) {
  45     if ( confirm( 'Delete log email condition #' + logemailnum )) {
  46       <%
  47         include(
  48           '/elements/popup_link_onclick.html' => {
  49             js_action   => qq( '${fsurl}/misc/delete-log_email.html?logemailnum=' + logemailnum ),
  50             actionlabel => 'Delete log email condition',
  51             nofalse     => 1,
  52           }
  53         )
  54       %>
  55       return;
  56     }
  57   }
  58 </script>
  59
  60 <%init>
  61
  62 my $curuser = $FS::CurrentUser::CurrentUser;
  63
  64 die "access denied"
  65   unless $curuser->access_right([ 'View system logs', 'Configuration' ]);
  66
  67 my $add_condition_link = qq( <a href="${fsurl}edit/log_email.html">Add log email condition</a> );
  68
  69 my $system_log_link = qq(<A HREF="${p}search/log.html">System Log</A>);
  70
  71 my $query = {
  72   'table'   => 'log_email',
  73   'select'  => '*',
  74   'addl_from' => 'LEFT JOIN msg_template USING (msgnum)',
  75   'hashref' => { },
  76 };
  77
  78 my $count_query = "SELECT COUNT(*) FROM log_email";
  79
  80 my $actions = sub {
  81   my $logemailnum = shift->logemailnum;
  82   qq!<A HREF="javascript:areyousure_delete_log_email($logemailnum)">(delete)</A>!;
  83 };
  84
  85 my $editlink = [ $p.'edit/log_email.html?logemailnum=', 'logemailnum' ];
  86
  87 </%init>
  88