%# Your life would be very empty if you had nothing to regret.
<& /Edit/Elements/104Header,
OnLoad => (
(keys %ARGS > 1 and !$ARGS{cname})
? ''
: $m->scomp('/Edit/Elements/NewWindow', "Search.html", 500, 280)
),
Buttons => [
Add => ($RT::OIN104 ? '' : ($RT::Foundry ? '' : 'index.html?Show=Info&Create=1')),
Save => ((!$RT::OIN104 and $Show eq 'Info') ? "javascript:document.getElementById('userform').submit()" : 0),
Delete => ($RT::OIN104 ? '' : 1),
Copy => '',
Search => ($RT::OIN104 ? $m->scomp('/Edit/Elements/NewWindow', "Search.html", 500, 280) : ''),
],
&>
<& /Edit/Elements/Tab, Text => 'Users' &> |
% if ($RT::OIN104) {
% }
<& Top, Item => $Item &>
<& List, List => $List, Begin => $Begin, Item => $Item, Show => $Show, ARGS => \%ARGS &>
|
|
% if ($RT::Foundry) {
<& $Show, %ARGS, Item => $Item &>
% } else {
<& /Edit/Elements/Tabs, Map => $Map, Show => $Show, Begin => $Begin, User => $User &>
|
<& $Show, %ARGS, Item => $Item &>
% }
|
|
|
|
<%INIT>
$Show = ($RT::OIN104 ? 'Delegate' : 'Info')
unless $Show =~ /^(?:Info|System|Group|Queue|Delegate)$/;
if ($Action eq 'Delete') {
foreach my $Id (@ListDelete) {
my $item = RT::User->new($session{'CurrentUser'});
$item->Load($Id);
$item->SetDisabled(1);
}
$User = 0;
$Begin = 0;
}
my $List = $m->comp('DoSearch', %ARGS);
my $Item = $RT::Nothing;
if ($User) {
$Item = RT::User->new($session{'CurrentUser'});
$Item->Load( $User );
}
my $Map = [
Info => 'Basics', # loc
System => 'System Rights', # loc
Group => 'Group Rights', # loc
Queue => 'Queue Rights', # loc
Delegate => 'Delegates', # loc
];
unshift @$Map, splice(@$Map, -2) if $RT::OIN104;
%INIT>
<%ARGS>
$Begin => 0
$User => undef
$Show => undef
$NoUI => 0
$Action => ''
@ListDelete => ()
%ARGS>