Changeset 2463 for branches/release-39/lib/MT/ObjectDriver/Driver/DBI.pm
- Timestamp:
- 05/30/08 02:23:26 (18 months ago)
- Files:
-
- 1 modified
Legend:
- Unmodified
- Added
- Removed
-
branches/release-39/lib/MT/ObjectDriver/Driver/DBI.pm
r2459 r2463 160 160 $stmt->group([ map { { column => $_ } } @group ]); 161 161 162 ## Ugly.163 my $sql = $stmt->as_sql;164 165 162 ## Set statement's ORDER clause if any. 166 163 if ($order) { 167 164 if (! ref($order)) { 168 $sql .= "\nORDER BY " . $decorate->($order); 169 if ($direction) { 170 $sql .= $direction eq 'descend' ? ' DESC' : ' ASC'; 171 } 165 $stmt->order( [ { column => $decorate->($order), 166 desc => $direction eq 'descend' ? 'DESC' : 'ASC' 167 } ] ); 172 168 } else { 173 169 my @order; … … 179 175 } 180 176 $stmt->order(\@order); 181 $sql .= "\n" . $stmt->as_aggregate('order'); 182 } 183 } 177 } 178 } 179 180 my $sql = $stmt->as_sql; 184 181 185 182 my $dbh = $driver->r_handle;
