httemplate/misc/process/template_image-delete.cgi

   1 <% $server->process %>
   2
   3 <%init>
   4
   5 my $curuser = $FS::CurrentUser::CurrentUser;
   6
   7 # make sure user can generally edit
   8 die "access denied"
   9   unless $curuser->access_right([ 'Edit templates', 'Edit global templates' ]);
  10
  11 # make sure user can edit this particular image
  12 my %arg = $cgi->param('arg');
  13 my $imgnum = $arg{'imgnum'};
  14 die "bad imgnum" unless $imgnum =~ /^\d+$/;
  15 die "access denied" unless qsearchs({
  16                'table'     => 'template_image',
  17                'select'    => 'imgnum',
  18                'hashref'   => { 'imgnum' => $imgnum },
  19                'extra_sql' => ' AND ' .
  20                               $curuser->agentnums_sql(
  21                                 'null_right' => ['Edit global templates']
  22                               ),
  23              });
  24
  25 my $server =
  26   new FS::UI::Web::JSRPC 'FS::template_image::process_image_delete', $cgi;
  27
  28 </%init>