[BACK]Return to test_server.pl CVS log [TXT][DIR] Up to [local] / HOPE / Net-OpenAMD / script

Diff for /HOPE/Net-OpenAMD/script/test_server.pl between version 1.5 and 1.6

version 1.5, 2010/06/27 01:52:33 version 1.6, 2010/06/27 03:33:54
Line 48 
Line 48 
     return if !ref $data;      return if !ref $data;
   
     my @data = @{$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 {          @data = grep {
             ref $_ ne 'HASH'                     ref $_ ne 'HASH'
                 || ( !exists $_->{$param} )                  || ( !exists $_->{$param} )
                 || $value ~~ $_->{$param}                  || $value ~~ $_->{$param}
         } @data;          } @data;
     }      }
   
     $self->render_json( \@data );      $self->render_json( \@data );
 };  };
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>