1 <% $cgi->redirect(popurl(3). 'view/cust_main.cgi?'. $cust_main->custnum ) %>
4 #my $curuser = $FS::CurrentUser::CurrentUser;
5 #die "access denied" unless $curuser->access_right('Edit customer');
7 #my $conf = new FS::Conf;
9 my $quotation = qsearchs( 'quotation' => {
10 quotationnum => scalar( $cgi->param('quotationnum') ),
11 } ) or die 'unknown quotationnum';
14 $$params{'onhold'} = $cgi->param('onhold') ? 1 : 0;
16 my $cust_main = $quotation->cust_main;
18 my $error = $quotation->order(undef,$params);
19 errorpage($error) if $error;
21 #i should be part of the order transaction
22 $quotation->disabled('Y');
26 $cust_main = $quotation->convert_cust_main( $params );
27 errorpage($cust_main) unless ref($cust_main);# eq 'FS::cust_main';