1 <& /Elements/Header, Title => 'Admin/Keywords' &>
2 <& /Admin/Elements/Tabs, current_tab => 'Admin/Keywords/' &>
4 <& /Elements/ListActions, actions => \@Actions &>
6 <& /Elements/TitleBoxStart, title => 'Keywords' &>
7 <a href="<%$RT::WebPath%>/Admin/Keywords/?RootId=<%$Root->Parent%>"><%$Root->Path%></a>
9 <FORM METHOD=POST ACTION="index.html">
10 <input type=hidden name=RootId value="<%$RootId%>">
13 % while (my $key = $Keywords->Next) {
15 % if ($Edit == $key->id) {
16 <input name="KeyName-<%$key->id%>" value="<%$key->Name%>">
17 <input type=submit value="Update">
18 <input type=submit name="Disable-<%$key->id%>" value="Disable">
20 <A HREF="?RootId=<%$key->id%>"><%$key->Name%></A>
21 % if ($key->Disabled) {
22 <input type=submit name="Enable-<%$key->id%>" value="Enable">
24 [<a href="?Edit=<%$key->id%>&RootId=<%$Root->Id%>">edit</a>]
32 <input name="KeyName-New"> <input type=submit value="Add">
35 <input type="checkbox" name="ShowDisabled"> Include disabled items in listing.
36 <input type=submit value="Go!">
40 <& /Elements/TitleBoxEnd &>
44 if ($ARGS{'KeyName-New'}) {
45 my $NewKey = new RT::Keyword($session{'CurrentUser'});
46 my ($val, $msg) = $NewKey->Create( Parent => $RootId, Name => $ARGS{'KeyName-New'});
47 push (@Actions, $msg);
51 foreach $arg (keys %ARGS) {
52 if ($arg =~ /^Disable-(\d*)$/) {
54 my $keyword = new RT::Keyword($session{'CurrentUser'});
56 my ($val, $msg) = $keyword->SetDisabled(1);
57 push (@Actions, $msg);
61 elsif ($arg =~ /^Enable-(\d*)$/) {
63 my $keyword = new RT::Keyword($session{'CurrentUser'});
65 my ($val, $msg) = $keyword->SetDisabled(0);
66 push (@Actions, $msg);
68 elsif ($arg =~ /^KeyName-(\d*)$/) {
70 my $keyword = new RT::Keyword ($session{'CurrentUser'});
72 if ($keyword->Name() ne $ARGS{"$arg"}) {
73 my ($val, $msg) = $keyword->SetName($ARGS{"$arg"});
74 push (@Actions, $msg);
76 if (($ARGS{"KeyParent-$id"}) &&
77 ($keyword->Parent ne $ARGS{"KeyParent-$id"})) {
78 my ($val, $msg) = $keyword->SetParent($ARGS{"KeyParent-$id"});
79 push (@Actions, $msg);
85 my $Root = new RT::Keyword($session{'CurrentUser'});
87 #If we have a root load it.
90 $Keywords = $Root->Children();
94 $Keywords = new RT::Keywords($session{'CurrentUser'});
95 $Keywords->LimitToParent(0);
99 $Keywords->{'find_disabled_rows'} = 1;