[Rt-commit] r2656 - in rt/branches/PLATANO-EXPERIMENTAL: .
html/Search lib/RT/Search lib/t/regression
jesse at bestpractical.com
jesse at bestpractical.com
Sat Apr 16 02:44:47 EDT 2005
Author: jesse
Date: Sat Apr 16 02:44:47 2005
New Revision: 2656
Added:
rt/branches/PLATANO-EXPERIMENTAL/html/Search/Quick.html
rt/branches/PLATANO-EXPERIMENTAL/lib/RT/Search/Quick.pm
rt/branches/PLATANO-EXPERIMENTAL/lib/t/regression/19quicksearch.t
Modified:
rt/branches/PLATANO-EXPERIMENTAL/ (props changed)
Log:
r12994 at hualien: jesse | 2005-04-16 02:25:55 -0400
r10695 at hualien: jesse | 2005-03-30 05:14:59 -0500
* First version of B4 quicksearch from simon
Added: rt/branches/PLATANO-EXPERIMENTAL/html/Search/Quick.html
==============================================================================
--- (empty file)
+++ rt/branches/PLATANO-EXPERIMENTAL/html/Search/Quick.html Sat Apr 16 02:44:47 2005
@@ -0,0 +1,87 @@
+%# BEGIN BPS TAGGED BLOCK {{{
+%#
+%# COPYRIGHT:
+%#
+%# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC
+%# <jesse 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., 675 Mass Ave, Cambridge, MA 02139, USA.
+%#
+%#
+%# 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/Header, Title => $title &>
+<& /Ticket/Elements/Tabs,
+ current_tab => "Search/Quick.html?q=".$ARGS{"q"},
+&>
+
+<DIV align="center">
+
+<& /Elements/TitleBoxStart, width=> "40%", titleright => loc("RT [_1]", $RT::VERSION), title => loc('Search') , contentbg=>"#cccccc" &>
+<FORM ACTION="Quick.html">
+<table width="100%" cellpadding="5">
+ <tr>
+ <td width="100%">
+ <input name="q">
+ </td>
+ </tr>
+ <tr>
+ <td align="right">
+ <input type="submit" Value="<&|/l&>Search</&>">
+ </td>
+ </td>
+</table>
+</FORM>
+<&/Elements/TitleBoxEnd&>
+
+<%INIT>
+my $title = loc("Quick Search");
+use RT::Search::Quick;
+
+if ( $ARGS{"q"}) {
+ my $tickets = new RT::Tickets( $session{'CurrentUser'} );
+ my $search = RT::Search::Quick->new(Argument => $ARGS{"q"},
+ TicketsObj => $tickets);
+
+ $m->comp( "Results.html", Query => $search->QueryToSQL());
+ $m->abort();
+}
+</%INIT>
+
+<%ARGS>
+$q => undef
+</%ARGS>
+
Added: rt/branches/PLATANO-EXPERIMENTAL/lib/RT/Search/Quick.pm
==============================================================================
--- (empty file)
+++ rt/branches/PLATANO-EXPERIMENTAL/lib/RT/Search/Quick.pm Sat Apr 16 02:44:47 2005
@@ -0,0 +1,131 @@
+
+# BEGIN BPS TAGGED BLOCK {{{
+#
+# COPYRIGHT:
+#
+# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC
+# <jesse 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., 675 Mass Ave, Cambridge, MA 02139, USA.
+#
+#
+# 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 }}}
+=head1 NAME
+
+ RT::Search::Quick
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+Use the argument passed in as a "Google-style" set of keywords
+
+=head1 METHODS
+
+
+=begin testing
+
+ok (require RT::Search::Generic);
+
+=end testing
+
+
+=cut
+
+package RT::Search::Quick;
+
+use strict;
+use base qw(RT::Search::Generic);
+
+
+# {{{ sub Describe
+sub Describe {
+ my $self = shift;
+ return ($self->loc("No description for [_1]", ref $self));
+}
+# }}}
+
+# {{{ sub QueryToSQL
+sub QueryToSQL {
+ my $self = shift;
+ my $query = shift || $self->Argument;
+ my @keywords = split /\s+/, $query;
+ my @tql_clauses;
+ my ($Queue, $User);
+ for my $key (@keywords) {
+ # Is this a ticket number? If so, go to it.
+ #if ($key =~ m/^\d+$/) {
+ # $self->TicketsObj->Limit(FIELD => "id", VALUE => $key);
+ # last;
+ #}
+
+ # Is there a queue named $key?
+ if ($Queue = RT::Queue->new($self->TicketsObj->CurrentUser)
+ and $Queue->Load($key)) {
+ push @tql_clauses, "Queue = '". $Queue->Name. "'";
+ }
+ # Is there a owner named $key?
+ elsif ($User = RT::User->new($self->TicketsObj->CurrentUser)
+ and $User->Load($key)
+ and $User->Privileged) {
+ push @tql_clauses, "Owner = '". $User->Name. "'";
+ }
+ # Else, content must contain $key
+ else {
+ $key =~ s/['\\].*//;
+ push @tql_clauses, "Content LIKE '$key'";
+ }
+ }
+ return join " AND ", @tql_clauses;
+}
+# }}}
+
+# {{{ sub Prepare
+sub Prepare {
+ my $self = shift;
+ my $tql = $self->QueryToSQL($self->Argument);
+ $self->TicketsObj->FromSQL($tql);
+ return(1);
+}
+# }}}
+
+eval "require RT::Search::Quick_Vendor";
+die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/Quick_Vendor.pm});
+eval "require RT::Search::Quick_Local";
+die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/Quick_Local.pm});
+
+1;
Added: rt/branches/PLATANO-EXPERIMENTAL/lib/t/regression/19quicksearch.t
==============================================================================
--- (empty file)
+++ rt/branches/PLATANO-EXPERIMENTAL/lib/t/regression/19quicksearch.t Sat Apr 16 02:44:47 2005
@@ -0,0 +1,39 @@
+
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use Test::More qw/no_plan/;
+use_ok('RT');
+RT::LoadConfig();
+RT::Init();
+
+my $q = RT::Queue->new($RT::SystemUser);
+my $queue = 'SearchTests-'.rand(200);
+$q->Create(Name => $queue);
+ok ($q->id, "Created the queue");
+
+my $t1 = RT::Ticket->new($RT::SystemUser);
+my ( $id, undef $msg ) = $t1->Create(
+ Queue => $q->id,
+ Subject => 'SearchTest1',
+ Requestor => ['search2 at example.com'],
+);
+ok( $id, $msg );
+
+use_ok("RT::Search::Quick");
+my $tickets = RT::Tickets->new($RT::SystemUser);
+my $quick = RT::Search::Quick->new(Argument => "",
+ TicketsObj => $tickets);
+my @tests = (
+ $queue => "Queue = '$queue'",
+ "root $queue" => "Owner = 'root' AND Queue = '$queue'",
+ "notauser $queue" => "Content LIKE 'notauser' AND Queue = '$queue'",
+ "notauser $queue root" => "Content LIKE 'notauser' AND Queue = '$queue'".
+ " AND Owner = 'root'"
+);
+
+while (my ($from, $to) = splice @tests, 0, 2) {
+ is($quick->QueryToSQL($from), $to, "<$from> -> <$to>");
+}
More information about the Rt-commit
mailing list