httemplate/edit/process/cust_main_note.cgi

   1 %
   2 %
   3 %$cgi->param('custnum') =~ /^(\d+)$/
   4 %  or die "Illegal custnum: ". $cgi->param('custnum');
   5 %my $custnum = $1;
   6 %
   7 %my $otaker = $FS::CurrentUser::CurrentUser->name;
   8 %$otaker = $FS::CurrentUser::CurrentUser->username
   9 %  if ($otaker eq "User, Legacy");
  10 %
  11 %my $new = new FS::cust_main_note ( {
  12 %  custnum  => $custnum,
  13 %  _date    => time,
  14 %  otaker   => $otaker,
  15 %  comments =>  $cgi->param('comment'),
  16 %} );
  17 %
  18 %my $error = $new->insert;
  19 %
  20 %if ($error) {
  21 %  $cgi->param('error', $error);
  22 %  print $cgi->redirect(popurl(2). 'cust_main_note.cgi?'. $cgi->query_string );
  23 %}
  24 %
  25 %
  26 <% header('Note added') %>
  27     <SCRIPT TYPE="text/javascript">
  28       window.top.location.reload();
  29     </SCRIPT>
  30
  31     </BODY></HTML>
  32 %
  33 %
  34