135/netdisco
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix for perl 5.10 not auto-dereferncing

Browse Source
This commit is contained in:
Oliver Gorwits
2014-06-11 06:58:37 +00:00
parent 16c52fa8a6
commit 5988302a65
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Netdisco/lib/App/Netdisco/DB/ResultSet.pm
View File

@@ -93,7 +93,7 @@ sub _with_datatables_order_clause {
my @order = (); my @order = ();
if ( defined $params->{'order'}{0} ) { if ( defined $params->{'order'}{0} ) {
for ( my $i = 0; $i < keys $params->{'order'}; $i++ ) { for ( my $i = 0; $i < (scalar keys %{$params->{'order'}}); $i++ ) {
# build direction, must be '-asc' or '-desc' (cf. SQL::Abstract) # build direction, must be '-asc' or '-desc' (cf. SQL::Abstract)
# we only get 'asc' or 'desc', so they have to be prefixed with '-' # we only get 'asc' or 'desc', so they have to be prefixed with '-'
@@ -132,7 +132,7 @@ sub _with_datatables_where_clause {
&& $params->{'search'}{'value'} ) && $params->{'search'}{'value'} )
{ {
my $search_string = $params->{'search'}{'value'}; my $search_string = $params->{'search'}{'value'};
for ( my $i = 0; $i < keys $params->{'columns'}; $i++ ) { for ( my $i = 0; $i < (scalar keys %{$params->{'columns'}}); $i++ ) {
# Iterate over each column and check if it is searchable. # Iterate over each column and check if it is searchable.
# If so, add a constraint to the where clause restricting the given # If so, add a constraint to the where clause restricting the given