From 0b50b54a67c06016f34429bf559d7a72850a5f77 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Fri, 18 Apr 2014 23:25:50 +0100
Subject: [PATCH] fix params loading in Report

---
 Netdisco/lib/App/Netdisco/Web/Report.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Netdisco/lib/App/Netdisco/Web/Report.pm b/Netdisco/lib/App/Netdisco/Web/Report.pm
index 25d18515..316b4e37 100644
--- a/Netdisco/lib/App/Netdisco/Web/Report.pm
+++ b/Netdisco/lib/App/Netdisco/Web/Report.pm
@@ -19,10 +19,11 @@ get '/report/*' => require_login sub {
                 ->get_distinct_col('class') ];
 
         # this is a bit fragile... three params currently
-        if (3 == scalar keys params()) {
+        my %params = request->params();
+        if (3 == scalar keys %params) {
             foreach my $col ( @{ var('module_options') } ) {
                 next unless $col->{default} eq 'on';
-                params->{ $col->{name} } = 'checked';
+                %params{ $col->{name} } = 'checked';
             }
         }
     }