3 unless $FS::CurrentUser::CurrentUser->access_right('Edit customer note');
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";
11 <% $cgi->redirect($p.'view/cust_main.cgi?'.$note->custnum) %>