From 6587f6ba7d047ddc1686c080090afe7d53365bd4 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Tue, 24 Apr 2012 11:35:56 -0700 Subject: first pass RT4 merge, RT#13852 --- rt/share/html/Admin/Articles/Elements/Topics | 215 +++++++++++++++++++++++++++ 1 file changed, 215 insertions(+) create mode 100644 rt/share/html/Admin/Articles/Elements/Topics (limited to 'rt/share/html/Admin/Articles/Elements/Topics') diff --git a/rt/share/html/Admin/Articles/Elements/Topics b/rt/share/html/Admin/Articles/Elements/Topics new file mode 100644 index 000000000..96ddaf00c --- /dev/null +++ b/rt/share/html/Admin/Articles/Elements/Topics @@ -0,0 +1,215 @@ +%# BEGIN BPS TAGGED BLOCK {{{ +%# +%# COPYRIGHT: +%# +%# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC +%# +%# +%# (Except where explicitly superseded by other copyright notices) +%# +%# +%# LICENSE: +%# +%# This work is made available to you under the terms of Version 2 of +%# the GNU General Public License. A copy of that license should have +%# been provided with this software, but in any event can be snarfed +%# from www.gnu.org. +%# +%# This work is distributed in the hope that it will be useful, but +%# WITHOUT ANY WARRANTY; without even the implied warranty of +%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +%# General Public License for more details. +%# +%# You should have received a copy of the GNU General Public License +%# along with this program; if not, write to the Free Software +%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +%# 02110-1301 or visit their web page on the internet at +%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. +%# +%# +%# CONTRIBUTION SUBMISSION POLICY: +%# +%# (The following paragraph is not intended to limit the rights granted +%# to you to modify and distribute this software under the terms of +%# the GNU General Public License and is only of importance to you if +%# you choose to contribute your changes and enhancements to the +%# community by submitting them to Best Practical Solutions, LLC.) +%# +%# By intentionally submitting any modifications, corrections or +%# derivatives to this work, or any other work intended for use with +%# Request Tracker, to Best Practical Solutions, LLC, you confirm that +%# you are the copyright holder for those contributions and you grant +%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, +%# royalty-free, perpetual, license to use, copy, create derivative +%# works based on those contributions, and sublicense and distribute +%# those contributions and any derivatives thereof. +%# +%# END BPS TAGGED BLOCK }}} +<& /Elements/ListActions, actions => \@results &> + +
+ + +% if (!$Modify) { + + + + + + + + + +
<&|/l&>Topic Name
<&|/l&>Description
+% } else { +New topic +% } + +<& .tree, Element => $tree, Action => $Modify ? "Move" : "Add", Prefix => $Modify ? "Topic-$Modify-Parent" : "Insert", RootObj => $RootObj, Modify => $Modify &> + +
+ +<%def .edit> +  + + + + + + + + + + + +
Topic Name:
Description:
+<%args> +$topic + + + +<%def .tree> +% my $topic = $Element->getNodeValue; +% unless ($Element->isRoot) { +% if ($Modify and $topic->Id == $Modify) { +% $Action = ""; +<& .edit, topic => $topic &> +% } else { +<%$topic->Name || loc("(no name)") %> +% } +% } + +<%args> +$Element +$Action +$Prefix +$RootObj +$Modify + + + +<%INIT> + +my @results; + +for my $k (keys %ARGS) { + if ($k =~ /^Topic-(\d+)-(Name|Description)/) { + my $topic = RT::Topic->new($session{'CurrentUser'}); + $topic->Load($1); + if ($topic->Id) { + next if $ARGS{$k} eq $topic->$2; + my $proc = "Set$2"; + my ($val, $msg) = $topic->$proc($ARGS{$k}); + push @results, $msg; + } else { + $m->comp("/Elements/Error", Why => loc("Topic not found")); + } + } elsif ($k =~ /^Topic-(\d+)-Parent-(\d+)/) { + my $topic = RT::Topic->new($session{'CurrentUser'}); + $topic->Load($1); + if ($topic->Id) { + next if $2 eq $topic->Parent; + my $old = $topic->Parent; + my $new = "$2"; + my ($val, $msg) = $topic->setParent($new); + push @results, $msg; + } else { + $m->comp("/Elements/Error", Why => loc("Topic not found")); + } + } elsif ($k =~ /^Insert-(\d+)/) { + my $topic = RT::Topic->new($session{'CurrentUser'}); + my ($id, $msg) = $topic->Create( + Parent => $1, + Name => $ARGS{'Name'}, + Description => $ARGS{'Description'}, + ObjectType => ref($RootObj), + ObjectId => $RootObj->Id, + ); + push @results, $msg; + } +} +for my $k (keys %ARGS) { + next unless $k =~ /^Delete-Topic-(\d+)/; + my $topic = RT::Topic->new($session{'CurrentUser'}); + $topic->Load($1); + if ($topic->Id) { + my ($val, $msg) = $topic->DeleteAll(); + push @results, $msg; + } else { + $m->comp("/Elements/Error", Why => loc("Topic not found")); + } +} + +my $topics = RT::Topics->new($session{'CurrentUser'}); +$topics->LimitToObject($RootObj); +$topics->OrderByCols({FIELD => 'Parent'}, {FIELD => 'id'}); + +use Tree::Simple; +my $tree = Tree::Simple->new(Tree::Simple->ROOT); +my %lookup = (0 => $tree); + +my @todo; +while (my $topic = $topics->Next) { + push @todo, $topic; +} + +{ + my $changed = 0; + my @work = @todo; + @todo = (); + for my $topic (@work) { + if (defined $lookup{$topic->Parent}) { + $lookup{$topic->Id} = Tree::Simple->new($topic, $lookup{$topic->Parent}); + $changed = 1; + } else { + push @todo, $topic; + } + } + redo unless $changed == 0; +} + +for my $topic (@todo) { + $topic->setParent(0); + $lookup{$topic->Id} = Tree::Simple->new($topic, $tree); + push @results, "Reparented orphan ".$topic->Id." to root"; +} + + + + +<%ARGS> +$RootObj => undef +$title => "" +$Modify => "" + + -- cgit v1.2.1 From c24d6e2242ae0e026684b8f95decf156aba6e75e Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 7 Jun 2012 16:55:45 -0700 Subject: rt 4.0.6 --- rt/share/html/Admin/Articles/Elements/Topics | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'rt/share/html/Admin/Articles/Elements/Topics') diff --git a/rt/share/html/Admin/Articles/Elements/Topics b/rt/share/html/Admin/Articles/Elements/Topics index 96ddaf00c..43ca9562c 100644 --- a/rt/share/html/Admin/Articles/Elements/Topics +++ b/rt/share/html/Admin/Articles/Elements/Topics @@ -105,7 +105,7 @@ $topic % } % if ($Action) { % unless ($Action eq "Move" and grep {$_->getNodeValue->Id == $Modify} $Element->getAllChildren) { -
  • Id%>" value="<&|/l&><%$Action%> here" />
    • +
  • Id%>" value="<% $Action eq 'Move' ? loc('Move here') : loc('Add here') %>" />
    • % } % } -- cgit v1.2.1