[Catalyst-commits] r7305 - trunk/examples/CatalystAdvent/root/2007

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2007-12-16 11:14:23 +0000 (Sun, 16 Dec 2007)
New Revision: 7305

Modified:
   trunk/examples/CatalystAdvent/root/2007/16.pod
Log:
indentation

Modified: trunk/examples/CatalystAdvent/root/2007/16.pod
===================================================================
--- trunk/examples/CatalystAdvent/root/2007/16.pod	2007-12-16 11:07:00 UTC (rev 7304)
+++ trunk/examples/CatalystAdvent/root/2007/16.pod	2007-12-16 11:14:23 UTC (rev 7305)
@@ -191,17 +191,17 @@
     sub search_for_query {
         my ( $self, $rs, $params ) = @_;
         my $value = $params->{query};
-            my @query_cols = $self->query_cols; 
-            my $dbh = $self->result_source->schema->storage->dbh;
-            my @words =  split /\s+/, $value;
-            my $q = $dbh->quote( join '|',  @words );
-            return $rs->search( {
-                    '-nest' => [
-                    $query_cols[0] => \"@@ to_tsquery( $q )",
-                    $query_cols[1] => \"@@ to_tsquery( $q )",
-                    ]
-                }
-            );
+        my @query_cols = $self->query_cols; 
+        my $dbh = $self->result_source->schema->storage->dbh;
+        my @words =  split /\s+/, $value;
+        my $q = $dbh->quote( join '|',  @words );
+        return $rs->search( {
+                '-nest' => [
+                $query_cols[0] => \"@@ to_tsquery( $q )",
+                $query_cols[1] => \"@@ to_tsquery( $q )",
+                ]
+            }
+        );
     }
     
     sub query_cols {