[calc] $CGI->{no_dbmenu} = 1; $CGI->{access_menu} = 1; $CGI->{mv_data_table} = $Values->{mv_data_table} = '__UI_ACCESS_TABLE__'; $CGI->{user_id} = $Values->{user_id} if ! $CGI->{user_id}; return; [/calc] [if !cgi user_id] [bounce page="__UI_BASE__/access"] [/if] [seti page_title][L]Edit Permissions[/L]: [cgi user_id][/seti] [set ui_class]Admin[/set] [set page_perm]access=v[/set] [set help_name]access.permissions[/set] [set icon_name]icon_config.gif[/set] [set process_perm] [flag type=write table="__UI_ACCESS_TABLE__"] [tmp ui_owner][db-hash table="__UI_ACCESS_TABLE__" column="table_control" key="[cgi user_id]"][/tmp] [calc] $Scratch->{ui_owner} .= ";" if $Scratch->{ui_owner} =~ /\S/; return; [/calc] [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->{owner_field} =~ s/\0//g; $CGI->{owner_field} =~ s/,$//; my (%of) = split /[=,]/, $CGI->{owner_field}; for(keys %of) { if($of{$_} !~ /\S/) { next unless defined $tc->{$_}; delete $tc->{$_}{owner_field}; } else { $tc->{$_}{owner_field} = $of{$_}; } } $CGI->{table_control} = $Tag->uneval( { ref => $tc } ); $CGI->{owner_field} =~ s/\w+=(?:\s+|$)//g; $CGI->{owner_field} =~ s/(\w+)=vecdix(\s+|$)/$1$2/g; $CGI->{no_tables} =~ s/\0/ /g; $CGI->{mv_todo} = 'set'; return; [/perl] [/set] @_UI_STD_HEAD_@
@_UI_STD_FOOTER_@