diff options
Diffstat (limited to 'httemplate/edit/process/cust_main_note.cgi')
-rwxr-xr-x | httemplate/edit/process/cust_main_note.cgi | 60 |
1 files changed, 0 insertions, 60 deletions
diff --git a/httemplate/edit/process/cust_main_note.cgi b/httemplate/edit/process/cust_main_note.cgi deleted file mode 100755 index 9689ca6d6..000000000 --- a/httemplate/edit/process/cust_main_note.cgi +++ /dev/null @@ -1,60 +0,0 @@ -%if ($error) { -% $cgi->param('error', $error); -<% $cgi->redirect(popurl(2). 'cust_main_note.cgi?'. $cgi->query_string ) %> -%} else { -% -<% header('Note ' . ($notenum ? 'updated' : 'added') ) %> - <SCRIPT TYPE="text/javascript"> - parent.cust_main_notes.location.reload(); - try{parent.cust_main_notes.cClick()} - catch(err){} - try{parent.cClick()} - catch(err){} - </SCRIPT> - </BODY></HTML> -% -% } -<%init> - -$cgi->param('custnum') =~ /^(\d+)$/ - 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; -if ($notenum) { - - die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Edit customer note'); - - 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 { - - die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Add customer note'); - - $error = $new->insert; -} - -</%init> |