[set page_title]Administrator Accounts[/set] [set page_perm]access=l[/set] [set help_name]access.main[/set] [set icon_name]admin/icon_config.gif[/set] @@UI_STD_HEAD@@ [if scratch ui_message]

[scratch ui_message][set ui_message][/set]

  [/if]

[if-mm advanced access=c] [set Create new administrator] mv_nextpage=__UI_BASE__/user_edit user_id=NEW ui_hide_key=0 [/set] [else] [set Create new administrator][/set] [/else] [/if-mm] [if-mm advanced access=e] [set Change password] mv_nextpage=__UI_BASE__/user_change_pass ui_hide_key=0 [/set] [else] [set Change password] [/set] [/else] [/if-mm] [if-mm advanced perm=v] [set Show permissions] mv_nextpage=__UI_BASE__/access_permissions ui_return_to=@@MV_PAGE@@ [/set] [else] [set Show permissions] [/set] [/else] [/if-mm] [set Delete administrator] mv_nextpage=@@MV_PAGE@@ [flag type=write table="__UI_ACCESS_TABLE__"] [if-mm advanced access=d] [perl table="__UI_ACCESS_TABLE__"] my $db = $Db{__UI_ACCESS_TABLE__}; if(! $db) { $Scratch->{ui_message} = "Bad access table __UI_ACCESS_TABLE__"; return; } unless ( $db->delete_record($CGI->{user_id}) ) { $Scratch->{ui_message} = "Failed to delete administrator $CGI->{user_id} from table __UI_ACCESS_TABLE__"; return; } $Scratch->{ui_message} = "Deleted administrator $CGI->{user_id} from table __UI_ACCESS_TABLE__"; return; [/perl] [else] [set ui_message]Not authorized to delete users.[/set] [/else] [/if-mm] [/set] [if-mm advanced access=c] [/if-mm]
[if-mm advanced access=e]
[/if-mm] [if-mm advanced perm=v]

[/if-mm] [if-mm advanced access=e]

[/if-mm] [if-mm advanced access=d] [/if-mm]

 * superuser

[set Back] mv_todo=back mv_nextpage=index [/set]

@@UI_STD_FOOTER@@