===================================================================
RCS file: /cvs/HOPE/Net-OpenAMD/script/test_server.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- 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 03:33:54	1.6
@@ -48,14 +48,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 );
 };