|
Lines 77-85
sub list {
Link Here
|
| 77 |
|
77 |
|
| 78 |
if ( exists $reserved_params->{_order_by} ) { |
78 |
if ( exists $reserved_params->{_order_by} ) { |
| 79 |
# _order_by passed, fix if required |
79 |
# _order_by passed, fix if required |
| 80 |
for ( my $i = 0; $i < scalar @{$reserved_params->{_order_by}}; $i++ ) { |
80 |
for my $p ( @{$reserved_params->{_order_by}} ) { |
| 81 |
$reserved_params->{_order_by}->[$i] =~ s|biblio\.|biblio\.biblioitem\.|g |
81 |
$p =~ s|biblio\.|biblio\.biblioitem\.|g |
| 82 |
if $reserved_params->{_order_by}->[$i] =~ m/.*(isbn|ean|publisher).*/; |
82 |
if $p =~ m/.*(isbn|ean|publisher).*/; |
| 83 |
} |
83 |
} |
| 84 |
} |
84 |
} |
| 85 |
|
85 |
|
| 86 |
- |
|
|