<% include( 'elements/edit.html', 'name' => 'Quotation', 'table' => 'quotation', 'menubar' => [], 'html_table_class' => 'fsinnerbox', #default? 'labels' => { 'quotationnum' => 'Quotation number', 'prospectnum' => 'Prospect', 'custnum' => 'Customer', '_date' => 'Date', 'close_date' => 'Close Date', 'confidence' => 'Confidence', ($can_disable ? ('disabled' => 'Disabled') : ()), }, 'fields' => [ { field=>'prospectnum', type=>'fixed-prospect_main' }, { field=>'custnum', type=>'fixed-cust_main' }, { field=>'_date', type=>'fixed-date' }, { field=>'close_date', type=>'input-date-field' }, { field=>'confidence', type=>'text', size=>3, postfix=>'%' }, ($can_disable ? { field=>'disabled', type=>'checkbox', value=>'Y'} : ()), ], #XXX some way to disable the "view all" 'new_callback' => sub { my( $cgi, $quotation) = @_; $quotation->$_( $cgi->param($_) ) foreach qw( prospectnum custnum ); $quotation->_date(time); }, ) %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('Generate quotation'); my $can_disable = $FS::CurrentUser::CurrentUser->access_right('Disable quotation');