<& "/downloads/msg.html", msg=>$contents &>
<%$filename%>.zip
<& "/downloads/msg.html", msg=>$return_msg &>
<%args>
$filename=>undef
$user=>undef
<%init>
my %messages = (
titulo => $m->comp("/_shared/procs/utils/localize.m", str=>'clique na imagem para gravar o ficheiro no seu computador'),
continuar => $m->comp("/_shared/procs/utils/localize.m", str=>"clique aqui para continuar a navegar"),
);
my $contents = $messages{titulo};
my $reqkey = $m->comp("procs/getreqkey.m", filename=>$filename);
my ($demo,$qrcd,$zone,$zcod,$zdsc,$net1,$agnlist,$agnand) = $m->comp("procs/parsereqkey.m", reqkey=>$reqkey);
my ($tipo_item, $itemid) = $m->comp("/_shared/procs/utils/parseqrcd.m", qrcd=>$qrcd);
my $node = $m->comp("/_shared/procs/getnodeid.m", itemid=>$itemid, tipo_item=>$tipo_item);
my $options = 1 if ($net1 || $zcod || $agnlist);
my $searchurl = $m->comp("/_shared/procs/utils/get_searchargs.m",currargs=>{options=>$options, net1=>$net1, net2=>undef, zone=>$zone, zcod=>$zcod, zdsc=>$zdsc, agnlist=>$agnlist, agnand=>$agnand});
my $dir = ($tipo_item eq 'G') ? "vdir":"vcat";
my $returnurl = "/$dir/$node?$searchurl";
my $return_msg = "" . $messages{continuar} . "";
#my $returnurl = "/$dir/$node";