rt/share/html/Articles/Article/Elements/EditTopics

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2017 Best Practical Solutions, LLC
   6 %#                                          <sales@bestpractical.com>
   7 %#
   8 %# (Except where explicitly superseded by other copyright notices)
   9 %#
  10 %#
  11 %# LICENSE:
  12 %#
  13 %# This work is made available to you under the terms of Version 2 of
  14 %# the GNU General Public License. A copy of that license should have
  15 %# been provided with this software, but in any event can be snarfed
  16 %# from www.gnu.org.
  17 %#
  18 %# This work is distributed in the hope that it will be useful, but
  19 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  20 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  21 %# General Public License for more details.
  22 %#
  23 %# You should have received a copy of the GNU General Public License
  24 %# along with this program; if not, write to the Free Software
  25 %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  26 %# 02110-1301 or visit their web page on the internet at
  27 %# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
  28 %#
  29 %#
  30 %# CONTRIBUTION SUBMISSION POLICY:
  31 %#
  32 %# (The following paragraph is not intended to limit the rights granted
  33 %# to you to modify and distribute this software under the terms of
  34 %# the GNU General Public License and is only of importance to you if
  35 %# you choose to contribute your changes and enhancements to the
  36 %# community by submitting them to Best Practical Solutions, LLC.)
  37 %#
  38 %# By intentionally submitting any modifications, corrections or
  39 %# derivatives to this work, or any other work intended for use with
  40 %# Request Tracker, to Best Practical Solutions, LLC, you confirm that
  41 %# you are the copyright holder for those contributions and you grant
  42 %# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
  43 %# royalty-free, perpetual, license to use, copy, create derivative
  44 %# works based on those contributions, and sublicense and distribute
  45 %# those contributions and any derivatives thereof.
  46 %#
  47 %# END BPS TAGGED BLOCK }}}
  48 <input type="hidden" name="EditTopics" value="1" />
  49 <select multiple size="10" name="Topics">
  50 % if (@Classes) {
  51 %   unless ($OnlyThisClass) {
  52 <optgroup label="Current classes (<% join(" ", map {$_->Name} @Classes) %>)">
  53 %   }
  54 %   $inTree->traverse(sub {
  55 %     my $tree = shift;
  56 %     my $topic = $tree->getNodeValue;
  57 <option value="<% $topic->Id %>" <% exists $topics{$topic->Id} ? "selected" : "" %> >\
  58 <% "&nbsp;" x ($tree->getDepth*5) |n %><% $topic->Name || loc("(no name)") %></option>
  59 %   });
  60 % }
  61 % unless ($OnlyThisClass) {
  62 %   my $class = $Classes[-1]->Id;
  63 %   $otherTree->traverse(sub {
  64 %     my $tree = shift;
  65 %     my $topic = $tree->getNodeValue;
  66 %     unless ($topic->ObjectId == $class) {
  67 %       $class = $topic->ObjectId;
  68 </optgroup>
  69 %       my $c = RT::Class->new($session{'CurrentUser'});
  70 %       $c->Load($topic->ObjectId);
  71 <optgroup label="<% $c->Name %>">
  72 %     }
  73 <option value="<% $topic->Id %>" <% exists $topics{$topic->Id} ? "selected" : "" %> >\
  74 <% "&nbsp;" x ($tree->getDepth*5) |n %><% $topic->Name || loc("(no name)") %></option>
  75 %   });
  76 </optgroup>
  77 % }
  78 </select>
  79
  80 <%INIT>
  81 use Tree::Simple;
  82
  83 my $inClass = RT::Topics->new($session{'CurrentUser'});
  84 # global topics should always be available
  85 push @Classes,$RT::System unless grep { $_ == $RT::System } @Classes;
  86 $inClass->LimitToObject($_) for @Classes;
  87 $inClass->OrderByCols({FIELD => 'Name'});
  88 my $inTree = buildTree($inClass);
  89
  90 my $otherClass = RT::Topics->new($session{'CurrentUser'});
  91 if (@Classes) {
  92   $otherClass->Limit(FIELD => 'ObjectType', VALUE => 'RT::Class');
  93   for (@Classes) {
  94     $otherClass->Limit(FIELD => 'ObjectId', OPERATOR => '!=', VALUE => $_->Id);
  95   }
  96 } else {
  97     $otherClass->UnLimit;
  98 }
  99 my $otherTree = buildTree($otherClass);
 100
 101 my $articleTopics = RT::ObjectTopics->new($session{'CurrentUser'});
 102 $articleTopics->LimitToObject($ArticleObj);
 103 my %topics;
 104 while (my $topicObj = $articleTopics->Next) {
 105     $topics{$topicObj->Topic} = 1;
 106 }
 107 $topics{$_} = 1 for @Topics;
 108
 109 sub buildTree {
 110     my $query = shift;
 111
 112     use Tree::Simple;
 113     my $tree = Tree::Simple->new(Tree::Simple->ROOT);
 114     my %lookup = (0 => $tree);
 115
 116     my @todo;
 117     while (my $topic = $query->Next) {
 118         push @todo, $topic;
 119     }
 120
 121     {
 122         my $changed = 0;
 123         my @work = @todo;
 124         @todo = ();
 125         for my $topic (@work) {
 126             if (defined $lookup{$topic->Parent}) {
 127                 $lookup{$topic->Id} = Tree::Simple->new($topic, $lookup{$topic->Parent});
 128                 $changed = 1;
 129             } else {
 130                 push @todo, $topic;
 131             }
 132         }
 133         redo unless $changed == 0;
 134     }
 135     return $tree;
 136 }
 137
 138 </%INIT>
 139 <%ARGS>
 140 $ArticleObj => RT::Article->new($session{'CurrentUser'})
 141 @Classes => ()
 142 @Topics => ()
 143 $OnlyThisClass => undef
 144 </%ARGS>