[Rt-commit] r2538 - in rt/branches/QUEBEC-EXPERIMENTAL: . html/Search lib/RT/Search lib/t/regression

jesse at bestpractical.com jesse at bestpractical.com
Wed Mar 30 09:46:11 EST 2005


Author: jesse
Date: Wed Mar 30 09:46:10 2005
New Revision: 2538

Added:
   rt/branches/QUEBEC-EXPERIMENTAL/html/Search/Quick.html
   rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Search/Quick.pm
   rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/19quicksearch.t
Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
Log:
 r10695 at hualien:  jesse | 2005-03-30 18:14:59 +0800
 * First version of B4 quicksearch from simon


Added: rt/branches/QUEBEC-EXPERIMENTAL/html/Search/Quick.html
==============================================================================
--- (empty file)
+++ rt/branches/QUEBEC-EXPERIMENTAL/html/Search/Quick.html	Wed Mar 30 09:46:10 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/QUEBEC-EXPERIMENTAL/lib/RT/Search/Quick.pm
==============================================================================
--- (empty file)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Search/Quick.pm	Wed Mar 30 09:46:10 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/QUEBEC-EXPERIMENTAL/lib/t/regression/19quicksearch.t
==============================================================================
--- (empty file)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/t/regression/19quicksearch.t	Wed Mar 30 09:46:10 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