<%args>
$user => undef
$qrcd => undef
$zone => undef
$zcod => undef
$zdsc => undef
$net1 => undef
$agnlist => undef
$agnand => undef
</%args>
<%init>
$zone = 'all' unless $zone;
$zone = 'all' unless $zcod;
$zcod = 0 unless $zcod;
$zdsc = 0 unless $zdsc;
$zdsc = 0 unless $zcod;
$net1 = 0 unless $net1;
$agnlist = 0 unless $agnlist;
$agnand = 0 unless $agnand;
my $reqkey = $qrcd . "|" . $zone. "|" . $zcod . "|" . $zdsc . "|". $net1 .  "|". $agnlist . "|" . $agnand . "|";
$reqkey = ("demo:" . $reqkey) unless $user =~ /^nug/;
return $reqkey;
</%init>