[calc]$Config->{NoSearch} = ''; $CGI->{no_dbmenu} = 1; $CGI->{access_menu} = 1; return [/calc] [set page_title][L]Administration Group Manager[/L][/set] [set ui_class]Admin[/set] [set page_perm]group=l[/set] [set help_name]group.main[/set] [set icon_name]icon_config.gif[/set] @_UI_STD_HEAD_@ [if scratch ui_message]

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

[/if] [form-session-id]

[set [L]Create new group[/L]] mv_nextpage=__UI_BASE__/group_edit group_id=NEW ui_hide_key=0 [/set] [set [L]Show permissions[/L]] user_id=[cgi group_id] mv_nextpage=__UI_BASE__/access_permissions ui_return_to=@@MV_PAGE@@ [/set] [set [L]Delete group[/L]] 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->{group_id}) ) { $Scratch->{ui_message} = "Failed to delete group $CGI->{group_id} from table __UI_ACCESS_TABLE__"; return; } $Scratch->{ui_message} = "Deleted group $CGI->{group_id} from table __UI_ACCESS_TABLE__"; return; [/perl] [else] [set ui_message]Not authorized to delete groups.[/set] [/else] [/if-mm] [/set]
[if-mm advanced access=d] [/if-mm] |

[set [L]Back[/L]] mv_todo=back mv_nextpage=index [/set] @_UI_STD_FOOTER_@