Upgrade to 4.0.10.
[usit-rt.git] / share / html / Widgets / SavedSearch
CommitLineData
84fb5b46
MKG
1%# BEGIN BPS TAGGED BLOCK {{{
2%#
3%# COPYRIGHT:
4%#
403d7b0b 5%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
84fb5b46
MKG
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<%method new>
49<%init>
50return \%ARGS;
51</%init>
52</%method>
53
54<%method process>
55
56<%init>
57my @actions;
58$self->{SearchId} ||= $args->{'SavedChartSearchId'} || 'new';
59
60my $SearchParams = { map { $_ => $args->{$_} } @{$self->{SearchFields}} };
61
62if ( my ( $container_object, $search_id ) = _parse_saved_search(
63 $args->{'SavedSearchLoad'} || $args->{'SavedChartSearchId'} ) ) {
64 my $search = $container_object->Attributes->WithId($search_id);
65 # We have a $search and now; import the others
66 $self->{SearchId} = $args->{'SavedSearchLoad'} ||
67 $args->{'SavedChartSearchId'};
68 $self->{CurrentSearch}{Object} = $search;
69 if ( $args->{'SavedSearchLoad'} ) {
70 for ( @{ $self->{SearchFields} } ) {
71 $args->{$_} = $search->SubValue($_)
72 }
73 }
74
75 $args->{SavedChartSearchId} = $args->{'SavedSearchLoad'}
76 if $args->{'SavedSearchLoad'};
77# saved search in /Search/Chart.html is different from /Search/Build.html
78# the former is of type 'Chart', while the latter is of type 'Ticket'.
79# After loading a saved search from the former after loading one from the
80# latter, accessing /Search/Build.html will still show the old one, so we
81# need to delete $session{CurrentSearchHash} to let it not show the old one.
82# of course, the new one should not be shown there either because it's of
83# different type
84 delete $session{'CurrentSearchHash'};
85}
86
87# look for the current one in the available saved searches
88if ($self->{SearchId} eq 'new') {
89 my @Objects = RT::SavedSearch->new( $session{CurrentUser} )->ObjectsForLoading;
90 push @Objects, RT::System->new($session{'CurrentUser'})
91 if $session{'CurrentUser'}->HasRight( Object=> $RT::System,
92 Right => 'SuperUser' );
93 for my $obj (@Objects) {
94 for ( $m->comp( "/Search/Elements/SearchesForObject", Object => $obj ) ) {
95 my ( $desc, $search ) = @$_;
96 use Data::Dumper;
97 # FFS
98 local $Data::Dumper::Sortkeys = 1;
99 if ( Dumper( $search->Content ) eq
100 Dumper( { %$SearchParams, SearchType => $self->{SearchType} } ) ) {
101 $self->{CurrentSearch}{Object} = $search;
102 $self->{SearchId} = $search->Id;
103 }
104 }
105 }
106}
107
108if ( $args->{SavedSearchSave} ) {
109 if ( my $search = $self->{CurrentSearch}{Object} ) {
110 # rename
111 $search->SetDescription( $args->{SavedSearchDescription} );
112 $search->SetSubValues(%$SearchParams);
113 push @actions, loc( '[_1] [_2] updated.', loc($self->{SearchType}), $args->{SavedSearchDescription} );
114 }
115 else {
116 # new saved search
117 my $saved_search = RT::SavedSearch->new( $session{'CurrentUser'} );
118 my ( $ok, $search_msg ) = $saved_search->Save(
119 Privacy => $args->{'SavedSearchOwner'},
120 Name => $args->{'SavedSearchDescription'},
121 Type => $self->{'SearchType'},
122 SearchParams => $SearchParams
123 );
124 if ($ok) {
125 $self->{CurrentSearch}{Object} = $saved_search->{Attribute};
126 $self->{SearchId} = $args->{SavedChartSearchId} = 'RT::User-' .
127 $session{CurrentUser}->id . '-SavedSearch-' .
128 $saved_search->Id;
129 push @actions, loc( '[_1] [_2] saved.', loc($self->{SearchType}), $args->{SavedSearchDescription} );
130 } else {
131 push @actions,
132 [ loc("Can't save [_1]", loc($self->{SearchType})) . ': ' . loc($search_msg), 0 ];
133 }
134 }
135}
136
137if ( $args->{SavedSearchDelete} && $self->{CurrentSearch}{Object} ) {
138 my ($ok, $msg) = $self->{CurrentSearch}{Object}->Delete;
139 push @actions, $ok ? loc( '[_1] [_2] deleted.', loc($self->{SearchType}), $self->{CurrentSearch}{Object}->Description ) : $msg;
140 delete $self->{CurrentSearch}{Object};
141 delete $self->{SearchId};
142 delete $args->{SavedChartSearchId};
143}
144
145$self->{CurrentSearch}{Description} = $self->{CurrentSearch}{Object}->Description
146 if $self->{CurrentSearch}{Object};
147
148return @actions;
149</%init>
150<%ARGS>
151$self
152$args
153</%ARGS>
154
155</%method>
156
157<%method show>
158<form method="post" action="<% $Action %>" name="SaveSearch">
159<& /Search/Elements/EditSearches,
160 Id => $self->{SearchId} || 'new',
161 Type => $self->{SearchType},
162 CurrentSearch => $self->{CurrentSearch},
163 Title => $Title,
164 AllowCopy => 0,
165 $self->{CurrentSearch}{Object} ?
166 ( Object => $self->{CurrentSearch}{Object},
167 Description => $self->{CurrentSearch}{Object}->Description, ) : (),
168&><br />
169<%PERL>
170foreach my $field ( @{$self->{SearchFields}} ) {
171 if ( ref($ARGS{$field}) && ref($ARGS{$field}) ne 'ARRAY' ) {
172 $RT::Logger->error("Couldn't store '$field'. it's reference to ". ref($ARGS{$field}) );
173 next;
174 }
175 foreach my $value ( grep defined, ref($ARGS{$field})? @{ $ARGS{$field} } : $ARGS{$field} ) {
176</%PERL>
177<input type="hidden" class="hidden" name="<% $field %>" value="<% $value %>" />
178% }
179% }
180<input type="hidden" class="hidden" name="SavedChartSearchId" value="<% $self->{SearchId} || 'new' %>" />
181</form>
182<%ARGS>
183$self => undef
184$Action => ''
185$Title => loc('Saved searches')
186</%ARGS>
187<%init>
188</%init>
189</%method>