... | ... |
@@ -478,7 +478,7 @@ sub update { |
478 | 478 |
$params->{$where_key} = [$params->{$where_key}] |
479 | 479 |
unless ref $params->{$where_key} eq 'ARRAY'; |
480 | 480 |
|
481 |
- push @{$params->{$where_key}}, $where_params->{$where_key}}; |
|
481 |
+ push @{$params->{$where_key}}, $where_params->{$where_key}; |
|
482 | 482 |
} |
483 | 483 |
} |
484 | 484 |
|
... | ... |
@@ -608,7 +608,7 @@ sub select { |
608 | 608 |
if (@where_keys) { |
609 | 609 |
$template .= 'where '; |
610 | 610 |
foreach my $where_key (@where_keys) { |
611 |
- $template .= "{= $column} and "; |
|
611 |
+ $template .= "{= $where_key} and "; |
|
612 | 612 |
} |
613 | 613 |
} |
614 | 614 |
$template =~ s/ and $//; |
... | ... |
@@ -7,7 +7,7 @@ use base 'Object::Simple'; |
7 | 7 |
|
8 | 8 |
use Carp 'croak'; |
9 | 9 |
use DBIx::Custom::Query; |
10 |
-use DBIx::Custom::SQLTemplate::TagProcessors; |
|
10 |
+use DBIx::Custom::SQLTemplate::TagProcessor; |
|
11 | 11 |
|
12 | 12 |
__PACKAGE__->dual_attr('tag_processors', default => sub { {} }, |
13 | 13 |
inherit => 'hash_copy'); |
... | ... |
@@ -58,7 +58,7 @@ sub expand_in_tag { |
58 | 58 |
|
59 | 59 |
# Columns |
60 | 60 |
my $columns = []; |
61 |
- puhs @$columns, $column for (0 .. $count - 1); |
|
61 |
+ push @$columns, $column for (0 .. $count - 1); |
|
62 | 62 |
|
63 | 63 |
return ($expand, $columns); |
64 | 64 |
} |