-<% include( 'elements/process.html',
- 'table' => 'access_user',
- 'viewall_dir' => 'browse',
- 'process_m2m' => { 'link_table' => 'access_usergroup',
- 'target_table' => 'access_group',
- },
- )
+% if ( $cgi->param('_password') ne $cgi->param('_password2') ) {
+% $cgi->param('error', "The passwords do not match");
+% print $cgi->redirect(popurl(2) . "access_user.html?" . $cgi->query_string);
+% } else {
+<% include( 'elements/process.html',
+ 'table' => 'access_user',
+ 'viewall_dir' => 'browse',
+ 'copy_on_empty' => [ '_password', '_password_encoding' ],
+ 'clear_on_error' => [ '_password', '_password2' ],
+ 'process_m2m' => { 'link_table' => 'access_usergroup',
+ 'target_table' => 'access_group',
+ },
+ 'precheck_callback' => \&precheck_callback,
+ 'post_new_object_callback' => \&post_new_object_callback,
+ 'noerror_callback' => \&noerror_callback,
+ )
%>
+% }
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+if ( FS::Conf->new->exists('disable_acl_changes') ) {
+ errorpage('ACL changes disabled in public demo.');
+ die "shouldn't be reached";
+}
+
+sub precheck_callback {
+ my $cgi = shift;
+
+ my $o = FS::access_user->new({username => scalar($cgi->param('username'))});
+ if( $o->is_system_user and !$cgi->param('usernum') ) {
+ $cgi->param('username','');
+ return "username '".$o->username."' reserved for system account."
+ }
+
+ return '';
+}
+
+sub post_new_object_callback {
+ my( $cgi, $access_user ) = @_;
+
+ if ( length($cgi->param('_password')) ) {
+ my $password = scalar($cgi->param('_password'));
+ my $error = $access_user->is_password_allowed($password)
+ || $access_user->change_password($password);
+ }
+
+}
+
+sub noerror_callback {
+ my( $cgi, $access_user ) = @_;
+
+ #handle installer checkbox
+ my @sched_item = $access_user->sched_item;
+ my $sched_item = $sched_item[0];
+ if ( $cgi->param('sched_item_enabled') ) {
+
+ if ( ! $sched_item ) {
+ my $sched_item = new FS::sched_item {
+ 'usernum' => $access_user->usernum,
+ };
+ my $error = $sched_item->insert;
+ die $error if $error; #wtf? shouldn't happen
+ } elsif ( $sched_item->disabled ) {
+ $sched_item->disabled('');
+ my $error = $sched_item->replace;
+ die $error if $error; #wtf? shouldn't happen
+ }
+
+ } elsif ( ! $cgi->param('sched_item_enabled')
+ && $sched_item
+ && ! $sched_item->disabled
+ )
+ {
+ $sched_item->disabled('Y');
+ my $error = $sched_item->replace;
+ die $error if $error; #wtf? shouldn't happen
+ }
+
+}
+
+</%init>