Changeset 71 in bookmarks for trunk/lib/Bookmarks.pm

Timestamp:

02/13/14 16:10:42 (10 years ago)

Author:

peter

Message:

• added a Bookmarks::Search class that encapsulates the query, tags, limit, and offset values for a given search
• Bookmarks::List now has a search attribute that takes a Bookmarks::Search object instead of the individual attributes from the search
• Bookmarks::get_cotags() takes a Bookmarks::Search object as its search parameter instead of discrete tags and query parameters
• changed the name of the Bookmarks::get_bookmarks() parameter from tag to tags to align with the rest of the backend APIs

File:

• trunk/lib/Bookmarks.pm (modified) (5 diffs)

trunk/lib/Bookmarks.pm

@@ -2 +2 @@
 
 use Moose;
+
 use SQL::Interp qw{:all};
 use URI;
+
 use Bookmark;
 use Bookmarks::List;
+use Bookmarks::Search;
 
 has dbh      => ( is => 'rw' );
@@ -73 +76 @@
     my $self = shift;
     my $params = shift;
-    my $query = $params->{query};
-    my $tags = $params->{tag} || [];
-    my $limit = $params->{limit};
-    my $offset = $params->{offset};
+    my $search = Bookmarks::Search->new($params);
 
     # build the query
     my @sql;
 
-    if (!ref $tags) {
-        $tags = [ $tags ];
-    }
-    if (@$tags) {
+    if (@{ $search->tags }) {
         my $intersect = 0;
-        for my $tag (@{ $tags }) {
+        for my $tag (@{ $search->tags }) {
             push @sql, 'intersect' if $intersect;
             push @sql, 'select resources.*, bookmarks.* from resources join bookmarks on resources.uri = bookmarks.uri';
@@ -95 +92 @@
         push @sql, 'select * from resources join bookmarks on resources.uri = bookmarks.uri';
     }
-    if ($query) {
-        push @sql, (@$tags ? 'and' : 'where'), 'title like', \"%$query%";
+    if ($search->query) {
+        my $fuzzy_match = '%' . $search->query . '%';
+        push @sql, (@{ $search->tags } ? 'and' : 'where'), 'title like', \$fuzzy_match;
     }
     push @sql, 'order by ctime desc';
-    push @sql, ('limit', \$limit) if $limit;
+    push @sql, ('limit', \$search->limit) if $search->limit;
     # an offset is only allowed if we have a limit clause
-    push @sql, ('offset', \$offset) if $limit && $offset;
+    push @sql, ('offset', \$search->offset) if $search->limit && $search->offset;
 
     my ($sql, @bind) = sql_interp(@sql);
-    #die $sql;
 
     my $sth_resource = $self->dbh->prepare($sql);
@@ -119 +116 @@
     return Bookmarks::List->new({
         bookmarks => $self,
-        tags      => $tags,
-        query     => $query,
-        limit     => $limit,
-        offset    => $offset,
+        search    => $search,
         results   => \@resources,
     });
@@ -147 +141 @@
     my $self = shift;
     my $params = shift;
-    my $query = $params->{query};
-    my $tags = $params->{tag} || [];
-    if (!ref $tags) {
-        $tags = [ $tags ];
-    }
+    my $search = $params->{search};
+
     my @sql;
 
     push @sql, 'select tag, count(tag) as count from tags';
-    push @sql, 'join resources on tags.uri = resources.uri' if $query;
+    push @sql, 'join resources on tags.uri = resources.uri' if $search->query;
 
     # build the where clause
-    if (@$tags) {
+    if (@{ $search->tags }) {
         push @sql, 'where tags.uri in (';
         my $intersect = 0;
-        for my $tag (@{ $tags }) {
+        for my $tag (@{ $search->tags }) {
             push @sql, 'intersect' if $intersect;
             push @sql, 'select uri from tags where tag = ', \$tag;
             $intersect++;
         }
-        push @sql, ') and tag not in ', $tags, '';
-    }
-    if ($query) {
-        push @sql, (@$tags ? 'and' : 'where'), 'title like', \"%$query%";
+        push @sql, ') and tag not in ', $search->tags, '';
+    }
+    if ($search->query) {
+        my $fuzzy_match = '%' . $search->query . '%';
+        push @sql, (@{ $search->tags } ? 'and' : 'where'), 'title like', \$fuzzy_match;
     }