[if-mm advanced access=e]
[button name=mv_junk value="Edit administrator" src="admin/edit.gif"][/button]
[/if-mm]
[if-mm advanced perm=v]
[button value="Show permissions" src="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="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?"
src="admin/delete.gif"]
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]
|