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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
<% include( 'elements/edit.html',
'name' => 'Employee',
'table' => 'access_user',
'fields' => [
'username',
{ field=>'_password', type=>'password' },
{ field=>'_password2', type=>'password' },
'last',
'first',
{ field=>'user_custnum', type=>'search-cust_main', },
{ field=>'disabled', type=>'checkbox', value=>'Y' },
],
'labels' => {
'usernum' => 'User number',
'username' => 'Username',
'_password' => 'Password',
'_password2 '=> 'Re-enter Password',
'last' => 'Last name',
'first' => 'First name',
'user_custnum' => 'Customer (optional)',
'disabled' => 'Disable employee',
},
'edit_callback' => sub { my( $c, $o ) = @_;
$o->set('_password', '');
},
'viewall_dir' => 'browse',
'html_bottom' =>
sub {
my $access_user = shift;
'<BR>Employee Groups<BR>'.
ntable("#cccccc",2).
'<TR><TD>'.
include( '/elements/checkboxes-table.html',
'source_obj' => $access_user,
'link_table' => 'access_usergroup',
'target_table' => 'access_group',
'name_col' => 'groupname',
'target_link' => $p.'edit/access_group.html?',
#'disable-able' => 1,
).
'</TR></TD></TABLE>'
;
},
)
%>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
</%init>
|