<& /Elements/Header, Title => 'Admin/Keywords' &> <& /Admin/Elements/Tabs, current_tab => 'Admin/Keywords/' &> <& /Elements/TitleBoxStart, title => 'Keywords' &> <%$Root->Path%> <& /Elements/TitleBoxEnd &> <%INIT> if ($ARGS{'KeyName-New'}) { my $NewKey = new RT::Keyword($session{'CurrentUser'}); $NewKey->Create( Parent => $RootId, Name => $ARGS{'KeyName-New'}); } my $arg; foreach $arg (keys %ARGS) { if ($arg =~ /^Delete-(\d*)$/) { my $id = $1; my $keyword = new RT::Keyword($session{'CurrentUser'}); $keyword->Load($id); $keyword->SetDisabled(1); } elsif ($arg =~ /^KeyName-(\d*)$/) { my $id = $1; my $keyword = new RT::Keyword ($session{'CurrentUser'}); $keyword->Load($id); if ($keyword->Name() ne $ARGS{"$arg"}) { $keyword->SetName($ARGS{"$arg"}); } if (($ARGS{"KeyParent-$id"}) && ($keyword->Parent ne $ARGS{"KeyParent-$id"})) { $keyword->SetParent($ARGS{"KeyParent-$id"}); } } } 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); } <%ARGS> $RootId => 0 $Edit => undef