[Bps-public-commit] rt-extension-assetsql branch, asset-sql-custom-roles, repushed

[Craig Kaiser]

The branch asset-sql-custom-roles was deleted and repushed:
       was f76f3f8e231595df025c5ee6021dc6c30e2afac6
       now 263a1a677ff199c59c1749d42616d8bd050cee06

1:  f76f3f8 ! 1:  263a1a6 Add support for CustomRoles in Asset Search Builder
    @@ -108,6 +108,112 @@
      
      $m->callback( Fields => \@fields, ARGSRef => \%ARGS );
      
    +
    +diff --git a/html/Asset/Search/Elements/ConditionRow b/html/Asset/Search/Elements/ConditionRow
    +new file mode 100644
    +--- /dev/null
    ++++ b/html/Asset/Search/Elements/ConditionRow
    +@@
    ++%# BEGIN BPS TAGGED BLOCK {{{
    ++%#
    ++%# COPYRIGHT:
    ++%#
    ++%# This software is Copyright (c) 1996-2016 Best Practical Solutions, LLC
    ++%#                                          <sales at bestpractical.com>
    ++%#
    ++%# (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 }}}
    ++<tr>
    ++<td class="label"><% $handle_block->( $Condition->{'Field'}, $Condition->{'Name'} .'Field' ) |n %></td>
    ++<td class="operator"><% $handle_block->( $Condition->{'Op'}, $Condition->{'Name'} .'Op') |n %></td>
    ++<td class="value"><% $handle_block->( $Condition->{'Value'}, 'ValueOf'. $Condition->{'Name'} ) |n %></td>
    ++</tr>
    ++<%INIT>
    ++return unless $Condition && $Condition->{'Name'};
    ++
    ++$m->callback( Condition => \$Condition );
    ++return unless $Condition;
    ++
    ++my $handle_block;
    ++$handle_block = sub {
    ++    my $box = shift;
    ++    return $box unless ref $box;
    ++
    ++    my $name = shift;
    ++    if ( UNIVERSAL::isa($box, 'ARRAY') ) {
    ++        my $res = '';
    ++        $res .= $handle_block->( $_, $name ) foreach @$box;
    ++        return $res;
    ++    }
    ++
    ++    return undef unless UNIVERSAL::isa($box, 'HASH');
    ++    if ( $box->{'Type'} eq 'component' ) {
    ++        $box->{'Arguments'} ||= {},
    ++        return $m->scomp( $box->{'Path'}, %{ $box->{'Arguments'} }, Name => $name );
    ++    }
    ++    if ( $box->{'Type'} eq 'text' ) {
    ++        $box->{id} ||= $box->{name} ||= $name;
    ++        $box->{value} ||= delete($box->{Default}) || '';
    ++        return "<input ".join(" ", map{$m->interp->apply_escapes(lc($_),'h')
    ++                                      .q{="}.$m->interp->apply_escapes($box->{$_},'h').q{"}}
    ++                                   sort keys %$box)." />";
    ++    }
    ++    if ( $box->{'Type'} eq 'select' ) {
    ++        my $res = '';
    ++        $res .= qq{<select id="$name" name="$name">};
    ++        my @options = @{ $box->{'Options'} };
    ++        while( my $k = shift @options ) {
    ++            my $v = shift @options;
    ++            $res .= qq{<option value="$k">$v</option>};
    ++        }
    ++        $res .= qq{</select>};
    ++        return $res;
    ++    }
    ++};
    ++
    ++</%INIT>
    ++<%ARGS>
    ++$Condition => {}
    ++</%ARGS>
    ++
     
     diff --git a/html/Asset/Search/Elements/EditSort b/html/Asset/Search/Elements/EditSort
     --- a/html/Asset/Search/Elements/EditSort