blob: a6c48299f6dbc99f4d2414d76c99c80d50724a29 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
%if ( $error ) {
% errorpage($error);
%} else {
<% $cgi->redirect($url) %>
%}
<%init>
die "access deined"
unless $FS::CurrentUser::CurrentUser->access_right('Disable quotation');
$cgi->param('quotationnum') =~ /^(\d+)$/ or die 'illegal quotationnum';
my $quotationnum = $1;
my $quotation =
qsearchs('quotation', { 'quotationnum' => $quotationnum } );
my $error = $quotation->disable;
my( $label, $url ) = $quotation->cust_or_prospect_label_link( popurl(2) );
</%init>
|