'usernum' => 'User number',
'username' => 'Username',
'_password' => 'Password',
- '_password2 '=> 'Re-enter 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', '');
- },
+ 'edit_callback' => \&edit_callback,
+ 'field_callback'=> \&field_callback,
'viewall_dir' => 'browse',
'html_bottom' =>
sub {
'</TR></TD></TABLE>'
;
},
+ 'onsubmit' => 'check_user_custnum_search',
+ 'html_foot' => $check_user_custnum_search,
)
%>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+my $check_user_custnum_search = <<END;
+ <SCRIPT TYPE="text/javascript">
+ function check_user_custnum_search(what) {
+ while ( user_custnum_search_active ) {
+ // javascript needs ambien
+ }
+ return true;
+ }
+ </SCRIPT>
+END
+
+sub edit_callback {
+ my ($c, $o, $f, $opt) = @_;
+ $o->set('_password', '');
+}
+
+sub field_callback {
+ my ($c, $o, $f) = @_;
+ if($f->{'type'} eq 'password' and $o->is_system_user) {
+ $f->{'type'} = 'hidden';
+ $f->{'disabled'} = 1;
+ }
+}
+
</%init>