rt/webrt/Admin/Global/Keywords.html

   1 <& /Admin/Elements/Header, Title => 'Edit keywords' &>
   2 <& /Admin/Elements/SystemTabs &>
   3 <& /Elements/ListActions, actions => \@actions &>
   4
   5 <& /Elements/TitleBoxStart, title => $description &>
   6
   7   <FORM METHOD=POST ACTION="Keywords.html">
   8
   9 % if ($KeywordSelects->Count > 0 ) {
  10 <TABLE>
  11 <TR><TD>Delete</TD></TR>
  12 %  while (my $keywordselect = $KeywordSelects->Next ) {
  13 <TR>
  14   <TD><INPUT TYPE="CHECKBOX" NAME="KeywordSelect-<%$keywordselect->Id%>-Delete"></TD>
  15   <TD><& /Admin/Elements/SelectKeywordSelect, KeywordSelect => $keywordselect &></TD>
  16 </TR>
  17 %  }
  18 </TABLE>
  19 % }
  20
  21 Add a global keyword selection:
  22 %my $ks = new RT::KeywordSelect($session{'CurrentUser'});
  23 <ul>
  24 <li><& /Admin/Elements/SelectKeywordSelect, KeywordSelect => $ks, NamePrefix => 'new' &></li>
  25 </ul>
  26
  27 <& /Elements/TitleBoxEnd &>
  28 <& /Elements/Submit &>
  29 </FORM>
  30
  31
  32
  33 <%init>
  34 my (@actions);
  35
  36 my $description = "Modify global Keyword selections";
  37
  38 my $KeywordSelects = new RT::KeywordSelects ($session{'CurrentUser'});
  39
  40 unless ($KeywordSelects->LimitToGlobals()) {
  41     Abort("Couldn't load KeywordSelects.");
  42 }
  43
  44
  45 # {{{ if we're trying to create a new keyword select
  46
  47 if ($ARGS{'KeywordSelect-new-Name'}) {
  48     my $NewKeywordSelect = new RT::KeywordSelect($session{'CurrentUser'});
  49
  50     my ($retval, $msg) = $NewKeywordSelect->Create ( Keyword => $ARGS{'KeywordSelect-new-Keyword'},
  51                                              ObjectField => 'Queue',
  52                                              ObjectType => 'Ticket',
  53                                              ObjectValue => 0,
  54                                              Name => $ARGS{'KeywordSelect-new-Name'},
  55                                              Single => $ARGS{'KeywordSelect-new-Single'},
  56                                              Depth => $ARGS{'KeywordSelect-new-Depth'}
  57                                            );
  58         push (@actions, $msg);
  59 }
  60 # }}}
  61
  62 # {{{ if we're trying to delete the keywordselect
  63 foreach my $key (keys %ARGS) {
  64     if ($key =~ /^KeywordSelect-(\d+)-Delete$/) {
  65         my $id = $1;
  66         my $keywordselect = new RT::KeywordSelect($session{'CurrentUser'});
  67         $keywordselect->Load($id) || push @actions, "Couldn't load keywordSelect";
  68         my ($val, $msg) = $keywordselect->SetDisabled(1);
  69         if ($val) {
  70             push @actions, 'KeywordSelect disabled.';
  71         }
  72         else {
  73             push @actions, $msg;
  74         }
  75     }
  76 }
  77 # }}}
  78 # {{{ if we're modifying keyword selects
  79 my @fields = qw(Name Keyword Single Depth);
  80
  81 while (my $ks = $KeywordSelects->Next) {
  82     foreach my $field (@fields) {
  83         if (defined ($ARGS{"KeywordSelect-".$ks->Id."-".$field}) &&
  84             ($ARGS{"KeywordSelect-".$ks->Id."-".$field} ne $ks->$field())) {
  85
  86             my $method = "Set$field";
  87             my ($val, $msg) = $ks->$method($ARGS{"KeywordSelect-".$ks->Id."-".$field});
  88             push @actions, "Keyword Select ". $ks->Name."/$field:".$msg;
  89         }
  90     }
  91 }
  92 # }}}
  93
  94 </%init>
  95
  96 <%ARGS>
  97 </%ARGS>