httemplate/misc/delete-note.html

   1 <%init>
   2 die "access denied"
   3   unless $FS::CurrentUser::CurrentUser->access_right('Delete customer note');
   4
   5 my ($notenum) = $cgi->keywords;
   6 $notenum =~ /^\d+$/ or die "bad notenum '$notenum'";
   7 my $note = FS::cust_main_note->by_key($notenum)
   8   or die "notenum '$notenum' not found";
   9 $note->delete;
  10 </%init>
  11 <% $cgi->redirect($p.'view/cust_main.cgi?custnum='.$note->custnum. ';show=notes') %>