| ... | ... |
@@ -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 |
} |