|
Lines 104-113
sub dt_build_orderby {
Link Here
|
| 104 |
|
104 |
|
| 105 |
return unless @orderbys; |
105 |
return unless @orderbys; |
| 106 |
|
106 |
|
|
|
107 |
my @sanitized_orderbys; |
| 108 |
|
| 109 |
# Trick for virtualshelves, should not be extended |
| 110 |
push @sanitized_orderbys, 'count asc' if grep {$_ eq 'count asc'} @orderbys; |
| 111 |
push @sanitized_orderbys, 'count desc' if grep {$_ eq 'count desc'} @orderbys; |
| 112 |
|
| 107 |
# Must be "branches.branchname asc", "borrowers.firstname desc", etc. |
113 |
# Must be "branches.branchname asc", "borrowers.firstname desc", etc. |
| 108 |
@orderbys = grep { /^\w+\.\w+ (asc|desc)$/ } @orderbys; |
114 |
@orderbys = grep { /^\w+\.\w+ (asc|desc)$/ } @orderbys; |
| 109 |
|
115 |
|
| 110 |
my @sanitized_orderbys; |
|
|
| 111 |
for my $orderby (@orderbys) { |
116 |
for my $orderby (@orderbys) { |
| 112 |
my ($identifier, $direction) = split / /, $orderby, 2; |
117 |
my ($identifier, $direction) = split / /, $orderby, 2; |
| 113 |
my ($table, $column) = split /\./, $identifier, 2; |
118 |
my ($table, $column) = split /\./, $identifier, 2; |