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

   1 %# BEGIN BPS TAGGED BLOCK {{{
   2 %#
   3 %# COPYRIGHT:
   4 %#
   5 %# This software is Copyright (c) 1996-2012 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 <%perl>
  51 if (@Classes) {
  52   $m->print("<optgroup label=\"Current classes (".join (' ',map {$_->Name} @Classes).")\">")
  53     unless $OnlyThisClass;
  54   $inTree->traverse(sub {
  55     my $tree = shift;
  56     my $topic = $tree->getNodeValue;
  57     $m->print("<option value=\"".$topic->Id."\""
  58       .(exists $topics{$topic->Id} ? " selected" : "").">"
  59       .("&nbsp;" x ($tree->getDepth*5)).($topic->Name || loc("(no name)"))."</option>\n");
  60   });
  61 }
  62 unless ($OnlyThisClass) {
  63   my $class = $Classes[-1]->Id;
  64   $otherTree->traverse(sub {
  65     my $tree = shift;
  66     my $topic = $tree->getNodeValue;
  67     unless ($topic->ObjectId == $class) {
  68       $class = $topic->ObjectId;
  69       $m->print("</optgroup>\n");
  70       my $c = RT::Class->new($session{'CurrentUser'});
  71       $c->Load($topic->ObjectId);
  72       $m->print("<optgroup label=\"".$c->Name."\">\n");
  73     }
  74     $m->print("<option value=\"".$topic->Id."\""
  75       .(exists $topics{$topic->Id} ? " selected" : "").">"
  76       .("&nbsp;" x ($tree->getDepth*5)).($topic->Name || loc("(no name)"))."</option>\n");
  77   });
  78 </%perl>
  79 </optgroup>
  80 % }
  81 </select>
  82
  83 <%INIT>
  84 use Tree::Simple;
  85
  86 my $inClass = RT::Topics->new($session{'CurrentUser'});
  87 # global topics should always be available
  88 push @Classes,$RT::System unless grep { $_ == $RT::System } @Classes;
  89 $inClass->LimitToObject($_) for @Classes;
  90 $inClass->OrderByCols({FIELD => 'Name'});
  91 my $inTree = buildTree($inClass);
  92
  93 my $otherClass = RT::Topics->new($session{'CurrentUser'});
  94 if (@Classes) {
  95   $otherClass->Limit(FIELD => 'ObjectType', VALUE => 'RT::Class');
  96   for (@Classes) {
  97     $otherClass->Limit(FIELD => 'ObjectId', OPERATOR => '!=', VALUE => $_->Id);
  98   }
  99 } else {
 100     $otherClass->UnLimit;
 101 }
 102 my $otherTree = buildTree($otherClass);
 103
 104 my $articleTopics = RT::ObjectTopics->new($session{'CurrentUser'});
 105 $articleTopics->LimitToObject($ArticleObj);
 106 my %topics;
 107 while (my $topicObj = $articleTopics->Next) {
 108     $topics{$topicObj->Topic} = 1;
 109 }
 110 $topics{$_} = 1 for @Topics;
 111
 112 sub buildTree {
 113     my $query = shift;
 114
 115     use Tree::Simple;
 116     my $tree = Tree::Simple->new(Tree::Simple->ROOT);
 117     my %lookup = (0 => $tree);
 118
 119     my @todo;
 120     while (my $topic = $query->Next) {
 121         push @todo, $topic;
 122     }
 123
 124     {
 125         my $changed = 0;
 126         my @work = @todo;
 127         @todo = ();
 128         for my $topic (@work) {
 129             if (defined $lookup{$topic->Parent}) {
 130                 $lookup{$topic->Id} = Tree::Simple->new($topic, $lookup{$topic->Parent});
 131                 $changed = 1;
 132             } else {
 133                 push @todo, $topic;
 134             }
 135         }
 136         redo unless $changed == 0;
 137     }
 138     return $tree;
 139 }
 140
 141 </%INIT>
 142 <%ARGS>
 143 $ArticleObj => RT::Article->new($session{'CurrentUser'})
 144 @Classes => ()
 145 @Topics => ()
 146 $OnlyThisClass => undef
 147 </%ARGS>