X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fprocess%2Fcust_main_note.cgi;fp=httemplate%2Fedit%2Fprocess%2Fcust_main_note.cgi;h=b94d2271c44492d9847a6cba31089c870bb62bd5;hb=576c6b48428aa95e0fd80db011fe73c0b728c88b;hp=d9251f042ffe1ea175b2fb882ff949549c351564;hpb=fc3483c8679daf2e00467db05342e9fcd314d541;p=freeside.git diff --git a/httemplate/edit/process/cust_main_note.cgi b/httemplate/edit/process/cust_main_note.cgi index d9251f042..b94d2271c 100755 --- a/httemplate/edit/process/cust_main_note.cgi +++ b/httemplate/edit/process/cust_main_note.cgi @@ -4,18 +4,33 @@ % or die "Illegal custnum: ". $cgi->param('custnum'); %my $custnum = $1; % +%$cgi->param('notenum') =~ /^(\d+)$/ +% or die "Illegal notenum: ". $cgi->param('notenum'); +%my $notenum = $1; +% %my $otaker = $FS::CurrentUser::CurrentUser->name; %$otaker = $FS::CurrentUser::CurrentUser->username % if ($otaker eq "User, Legacy"); % %my $new = new FS::cust_main_note ( { +% notenum => $notenum, % custnum => $custnum, % _date => time, % otaker => $otaker, % comments => $cgi->param('comment'), %} ); % -%my $error = $new->insert; +%my $error; +%if ($notenum){ +% my $old = qsearchs('cust_main_note', { 'notenum' => $notenum }); +% $error = "No such note: $notenum" unless $old; +% unless($error){ +% map { $new->$_($old->$_) } ('_date', 'otaker'); +% $error = $new->replace($old); +% } +%}else{ +% $error = $new->insert; +%} % %if ($error) { % $cgi->param('error', $error); @@ -23,7 +38,7 @@ %} % % -<% header('Note added') %> +<% header('Note ' . ($notenum ? 'updated' : 'added') ) %>