<& /Elements/Header, Title => 'Admin/Keywords' &> <& /Admin/Elements/Tabs, current_tab => 'Admin/Keywords/' &> <& /Elements/ListActions, actions => \@Actions &> <& /Elements/TitleBoxStart, title => 'Keywords' &> <%$Root->Path%>
Include disabled items in listing. <& /Elements/TitleBoxEnd &> <%INIT> my (@Actions); if ($ARGS{'KeyName-New'}) { my $NewKey = new RT::Keyword($session{'CurrentUser'}); my ($val, $msg) = $NewKey->Create( Parent => $RootId, Name => $ARGS{'KeyName-New'}); push (@Actions, $msg); } my $arg; foreach $arg (keys %ARGS) { if ($arg =~ /^Disable-(\d*)$/) { my $id = $1; my $keyword = new RT::Keyword($session{'CurrentUser'}); $keyword->Load($id); my ($val, $msg) = $keyword->SetDisabled(1); push (@Actions, $msg); } elsif ($arg =~ /^Enable-(\d*)$/) { my $id = $1; my $keyword = new RT::Keyword($session{'CurrentUser'}); $keyword->Load($id); my ($val, $msg) = $keyword->SetDisabled(0); push (@Actions, $msg); } elsif ($arg =~ /^KeyName-(\d*)$/) { my $id = $1; my $keyword = new RT::Keyword ($session{'CurrentUser'}); $keyword->Load($id); if ($keyword->Name() ne $ARGS{"$arg"}) { my ($val, $msg) = $keyword->SetName($ARGS{"$arg"}); push (@Actions, $msg); } if (($ARGS{"KeyParent-$id"}) && ($keyword->Parent ne $ARGS{"KeyParent-$id"})) { my ($val, $msg) = $keyword->SetParent($ARGS{"KeyParent-$id"}); push (@Actions, $msg); } } } my $Root = new RT::Keyword($session{'CurrentUser'}); my $Keywords; #If we have a root load it. if ($RootId != 0) { $Root->Load($RootId); $Keywords = $Root->Children(); } else { $Keywords = new RT::Keywords($session{'CurrentUser'}); $Keywords->LimitToParent(0); } if ($ShowDisabled) { $Keywords->{'find_disabled_rows'} = 1; } <%ARGS> $RootId => 0 $Edit => undef $ShowDisabled => 0