[set page_title]Administrator Accounts[/set] [set ui_class]Admin[/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] [/if-mm]
[button text="Create new administrator" src="@_UI_IMG_@admin/create.gif"] mv_nextpage=__UI_BASE__/user_edit user_id=NEW ui_hide_key=0 [/button]
[if-mm advanced access=e] [button name=mv_junk value="Edit administrator" src="@_UI_IMG_@admin/edit.gif"][/button]

[/if-mm] [if-mm advanced perm=v] [button value="Show permissions" src="@_UI_IMG_@admin/show.gif"] mv_nextpage=__UI_BASE__/access_permissions ui_return_to=@@MV_PAGE@@ [/button]

[/if-mm] [if-mm advanced access=e] [button value="Change password" src="@_UI_IMG_@admin/change_password.gif"] mv_nextpage=__UI_BASE__/user_change_pass ui_hide_key=0 [/button]

[/if-mm] [if-mm advanced access=d] [button text="Delete administrator" form=accessform confirm="Are you sure you want to delete this administrator?" ] 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} = "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] [/button] [/if-mm]

 * superuser

[button text="Back"] mv_todo=back mv_nextpage=index [/button]

@_UI_STD_FOOTER_@