X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main_note.cgi;h=6c6a1a9a0ec2a1f1aa2120caa19afa52e9b27252;hb=283ea2b5137ae3ec36882b492e6de024b0ce6027;hp=468ef00517bdaf4327305828edcaeb88bd5b5676;hpb=30c3ff2acf90e1386fae00759078899c859faf36;p=freeside.git diff --git a/httemplate/edit/cust_main_note.cgi b/httemplate/edit/cust_main_note.cgi index 468ef0051..6c6a1a9a0 100755 --- a/httemplate/edit/cust_main_note.cgi +++ b/httemplate/edit/cust_main_note.cgi @@ -1,12 +1,10 @@ -<% include('/elements/header-popup.html', 'Add Customer Note') %> +<% include('/elements/header-popup.html', "$action Customer Note") %> -% if ( $cgi->param('error') ) { - Error: <% $cgi->param('error') %> -

-% } +<% include('/elements/error.html') %>
+

@@ -15,23 +13,33 @@

- +">
<%init> -my($custnum, $comment); -$comment = ''; +my $comment; +my $notenum = ''; if ( $cgi->param('error') ) { $comment = $cgi->param('comment'); +} elsif ( $cgi->param('notenum') =~ /^(\d+)$/ ) { + $notenum = $1; + die "illegal query ". $cgi->keywords unless $notenum; + my $note = qsearchs('cust_main_note', { 'notenum' => $notenum }); + die "no such note: ". $notenum unless $note; + $comment = $note->comments; } -$cgi->param('custnum') =~ /^(\d+)$/; -$custnum = $1; -die "illegal query ". $cgi->keywords unless $custnum; +$cgi->param('custnum') =~ /^(\d+)$/ or die "illeagl custnum"; +my $custnum = $1; + +my $action = $notenum ? 'Edit' : 'Add'; + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right("$action customer note");