'columns' => [
'custnum', 'serial', '', '', '', '',
'agentnum', 'int', '', '', '', '',
+ 'salesnum', 'int', 'NULL', '', '', '',
'agent_custid', 'varchar', 'NULL', $char_d, '', '',
'classnum', 'int', 'NULL', '', '', '',
'custbatch', 'varchar', 'NULL', $char_d, '', '',
'locationnum', 'int', 'NULL', '', '', '',
'otaker', 'varchar', 'NULL', 32, '', '',
'usernum', 'int', 'NULL', '', '', '',
+ 'salesnum', 'int', 'NULL', '', '', '',
'order_date', @date_type, '', '',
'start_date', @date_type, '', '',
'setup', @date_type, '', '',
'index' => [ [ 'groupnum' ] ],
},
- 'access_groupsales' => {
- 'columns' => [
- 'groupsalesnum', 'serial', '', '', '', '',
- 'groupnum', 'int', '', '', '', '',
- 'salesnum', 'int', '', '', '', '',
- ],
- 'primary_key' => 'groupsalesnum',
- 'unique' => [ [ 'groupnum', 'salesnum' ] ],
- 'index' => [ [ 'groupnum' ] ],
- },
-
'access_right' => {
'columns' => [
'rightnum', 'serial', '', '', '', '',
;
tie my %config_sales, 'Tie::IxHash',
- 'Sales' => [ $fsurl.'browse/sales.cgi', 'Sales bring in new business.' ],
+ 'Sales People' => [ $fsurl.'browse/sales.html', 'Sales people bring in new business.' ],
;
tie my %config_billing_rates, 'Tie::IxHash',
'Settings' => [ $fsurl.'config/config-view.cgi', '' ],
'separator' => '', #its a separator!
'Companies' => [ \%config_agent, '' ],
- 'Employees' => [ \%config_employees, '' ],
- 'Sales People' => [ \%config_sales, '' ],
- 'separator2' => '', #its a separator!
- 'Customers' => [ \%config_cust, '' ],
- #or this? 'Customers and Contacts' => [ \%config_cust, '' ],
);
}
+
+$config_menu{'Sales People'} = [ \%config_sales, '' ]
+ if $curuser->access_right('Edit sales people');
+
+if ( $curuser->access_right('Configuration' ) ) {
+ $config_menu{'Employees'} = [ \%config_employees, '' ];
+ $config_menu{'separator2'} = ''; #its a separator!
+ $config_menu{'Customers'} = [ \%config_cust, '' ];
+ #or this? 'Customers and Contacts'
+}
+
$config_menu{'Packages'} = [ \%config_pkg, '' ]
if $curuser->access_right('Configuration' )
|| $curuser->access_right('Edit package definitions')