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; |