1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
<% 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');
</%init>
|
