[calc] $CGI->{no_dbmenu} = 1; $CGI->{access_menu} = 1; return [/calc] [set page_title]Administration Group Manager[/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]

[set Create new group] mv_nextpage=__UI_BASE__/group_edit group_id=NEW ui_hide_key=0 [/set] [set Show permissions] user_id=[cgi group_id] mv_nextpage=__UI_BASE__/access_permissions ui_return_to=@@MV_PAGE@@ [/set] [set Delete group] 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 Back] mv_todo=back mv_nextpage=index [/set]

@_UI_STD_FOOTER_@