[if !cgi user_id] [calc] $CGI->{user_id} = $Values->{user_id}; return;[/calc] [/if] [if !cgi user_id] [bounce page="__UI_BASE__/access"] [/if] [calc] $CGI->{mv_data_table} = $Values->{mv_data_table} = '__UI_ACCESS_TABLE__'; return; [/calc] [seti page_title]Edit Permissions: [cgi user_id][/seti] [set ui_class]Admin[/set] [set page_perm]access=v[/set] [set help_name]access.permissions[/set] [set icon_name]admin/icon_config.gif[/set] [set process_perm] [perl] my @filters = grep /^ui_filter:/, keys %$CGI; foreach my $key (@filters) { my $val = delete $CGI->{$key}; $key =~ s/ui_filter://; next unless $val; next unless defined $CGI->{$key}; $CGI->{$key} = $Tag->filter($val, $CGI->{$key}, $key); $CGI->{$key} = s/=$//; } $CGI->{yes_functions} =~ s/\0//g; $CGI->{yes_functions} =~ s/,/ /g; $CGI->{yes_functions} =~ s/\w+=(?:\s+|$)//g; $CGI->{yes_tables} =~ s/\0//g; $CGI->{yes_tables} =~ s/,/ /g; $CGI->{yes_tables} =~ s/\w+=(?:\s+|$)//g; $CGI->{yes_tables} =~ s/(\w+)=vecdix(\s+|$)/$1$2/g; $CGI->{no_tables} =~ s/\0/ /g; $CGI->{mv_todo} = 'set'; $CGI->{mv_nextpage} = '@@MV_PAGE@@';# unless $CGI->{mv_nextpage}; return; [/perl] [/set] @_UI_STD_HEAD_@ [if scratch ui_message]
[scratch ui_message][set ui_message][/set]
[/if]
[if scratch ui_failure]
Failed: [scratch ui_failure][set ui_failure][/set]
[/if]