httemplate/misc/disable-quotation.html

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