[calc] $CGI->{no_dbmenu} = 1; $CGI->{access_menu} = 1; return; [/calc] [set page_title][L]Administrator Accounts[/L][/set] [set ui_class]Admin[/set] [set page_perm]access=l[/set] [set help_name]access.main[/set] [set icon_name]icon_config.gif[/set] @_UI_STD_HEAD_@ [calc] $Config->{NoSearch} =~ s/\baccess\b//; $Config->{NoSearch} =~ s/^\|//; $Config->{NoSearch} =~ s/\|$//; return; [/calc] [form-session-id]

[if-mm advanced access=c]
[button text="[L]Create new user[/L]"] mv_nextpage=__UI_BASE__/user_edit user_id=NEW ui_hide_key=0 [/button]
[/if-mm]
[if-mm advanced access=e] [button name=mv_junk value="[L]Edit user[/L]"][/button] [/if-mm] [if-mm advanced perm=v] [button value="[L]Show permissions[/L]"] mv_nextpage=__UI_BASE__/access_permissions ui_return_to=@@MV_PAGE@@ [/button] [/if-mm] [if-mm advanced access=e] [button value="[L]Change password[/L]"] mv_nextpage=__UI_BASE__/user_change_pass ui_hide_key=0 [/button] [/if-mm] [if-mm advanced access=d] [button text="[L]Delete user[/L]" form=accessform confirm="[L]Are you sure you want to delete this administrator?[/L]" ] mv_todo=return mv_nextpage=@@MV_PAGE@@ [flag type=write table="__UI_ACCESS_TABLE__"] [perl table="__UI_ACCESS_TABLE__"] my $db = $Db{__UI_ACCESS_TABLE__}; if(! $db) { $Scratch->{ui_message} = errmsg("Bad access table '%s'", '__UI_ACCESS_TABLE__'); return; } unless ( $db->delete_record($CGI->{user_id}) ) { $Scratch->{ui_message} = errmsg("Failed to delete administrator %s from table %s", $CGI->{user_id}, '__UI_ACCESS_TABLE__'); return; } $Scratch->{ui_message} = errmsg("Deleted administrator %s from table %s", $CGI->{user_id}, '__UI_ACCESS_TABLE__'); return ; [/perl] [/button] [/if-mm] [if-mm super] [button text="[L]Switch to user[/L]" form=accessform] mv_todo=return mv_nextpage=@@MV_PAGE@@ mv_click=MMsu admin=1 user=[cgi user_id] dest=admin/index [/button] [/if-mm] | * [L]Site Administrator[/L]

@_UI_STD_FOOTER_@