<%args>
$reqkey=>undef
</%args>
<%init>
my $demo;
my ($qrcd,$zone,$zcod,$zdsc,$net1,$agnlist,$agnand) = split /\|/, $reqkey;

if ($qrcd =~ m/demo\:(.*)/){
	$demo = 1;
	$qrcd = $1;
}

return ($demo,$qrcd,$zone,$zcod,$zdsc,$net1,$agnlist,$agnand);
</%init>