Perl HASH ref (Azudim)

Fri, 04 Mar 2011 19:42:07 GMT

�� .. =)

my %search;
$search{'me.code'} = $params->{pav_id} if (%$params->{pav_id});
$search{'stcode.name'}= { 'like' => "\%$params->{search_name}\%"} if ($params->{search_name});
$search{'streetcode.name'}= {'like' => "\%$params->{search_street}\%"} if ($params->{search_street});
$search{'distcode.name'}= {'like' => "\%$params->{search_district}\%"}if ($params->{search_district});
$search{'okrugcode.name'}= {'like' => "\%$params->{search_okrug}\%"} if ($params->{search_okrug});

my @data = $rs->search(
%search,
{
prefetch => [ {'stcode' => 'streetcode'},{'stcode' => {'distcode' => 'okrugcode'}} ],
rows => 10,
page => 1
});

OpenForum RSS: Perl HASH ref

Perl HASH ref (Azudim)