===================================================================
RCS file: /cvs/HOPE/Net-OpenAMD/script/test_server.pl,v
retrieving revision 1.5
retrieving revision 1.7
diff -u -r1.5 -r1.7
--- HOPE/Net-OpenAMD/script/test_server.pl	2010/06/27 01:52:33	1.5
+++ HOPE/Net-OpenAMD/script/test_server.pl	2010/06/27 04:26:56	1.7
@@ -1,10 +1,17 @@
 #!/usr/bin/env perl
 
+use 5.010;
+
+BEGIN {
+    use FindBin;
+    use lib "$FindBin::Bin/../lib";
+    use lib "$FindBin::Bin/../mojo/lib";
+    use lib "$FindBin::Bin/../../mojo/lib";
+}
+
 use Mojolicious::Lite;
 use Mojo::JSON;
 
-use 5.010;
-
 app->renderer->add_helper(
     action => sub {
         my ( $self, $action ) = @_;
@@ -48,14 +55,16 @@
     return if !ref $data;
 
     my @data = @{$data};
-    foreach my $param ( $self->param ) {
-        my $value = $self->param($param);
+
+    my $p = $self->req->params->to_hash;
+    while ( my ( $param, $value ) = each(%$p) ) {
         @data = grep {
-            ref $_ ne 'HASH'
+                   ref $_ ne 'HASH'
                 || ( !exists $_->{$param} )
                 || $value ~~ $_->{$param}
         } @data;
     }
+
     $self->render_json( \@data );
 };