Commit | Line | Data |
ac93965c |
1 | package # Hide from PAUSE |
2 | DBIx::Class::SQLAHacks::MSSQL; |
3 | |
4 | use base qw( DBIx::Class::SQLAHacks ); |
5 | use Carp::Clan qw/^DBIx::Class|^SQL::Abstract/; |
6 | |
9d2a1bb5 |
7 | sub _RowNumberOver { |
8 | my $self = shift; |
9 | my $sql = $self->SUPER::_RowNumberOver(@_); |
10 | $sql =~ s/(\s*)SELECT\s Q1\.\*,\s ROW_NUMBER\(\)\s OVER\(\s \)\s AS\s ROW_NUM\s |
11 | FROM\s \(\n(\s*.*)\n\s*(.*)\n\s*\)\s Q1 |
12 | /$1SELECT Q1.*, ROW_NUMBER() OVER($3) AS ROW_NUM FROM (\n$2\n) Q1/ixm; |
13 | return $sql; |
ac93965c |
14 | } |
15 | |
16 | 1; |