<& output.html, filename => $filename, titulo => $titulo, filterstr => $filterstr, records => $records, req_credits => $req_credits, user_credits => $user_credits, updt => $updt, reqkey => $reqkey, message => $message, status => 'on' &> <%args> $filename=>undef $user => undef <%init> #----------------------------------------------------------- # get info on this download #----------------------------------------------------------- my $reqkey = $m->comp("/downloads/procs/getreqkey.m", filename => $filename); my $records = $m->comp("/downloads/procs/getreqrecords.m", filename => $filename); my $req_credits = $m->comp("/downloads/procs/getreqcredits.m", records => $records); my ($user_credits, $used_credits) = $m->comp("procs/getusercredits.m",user=>$user); my ($demo,$qrcd,$zone,$zcod,$zdsc,$net1,$agnlist,$agnand) = $m->comp("/downloads/procs/parsereqkey.m",reqkey=>$reqkey); my ($tipo_item, $itemid) = $m->comp("/_shared/procs/utils/parseqrcd.m", qrcd=>$qrcd); my $titulo = $m->comp("/_shared/procs/getitemtitle.m", itemid=>$itemid, tipo_item=>$tipo_item); my $filters = $m->comp('/_shared/procs/getfilters.m', srchargs=>{net1=>$net1, net2=>undef, zone=>$zone, zcod=>$zcod, zdsc=>$zdsc, agnlist=>$agnlist, agnand=>$agnand}); my $filterstr = $filters->{str}; my $updt; # FIXME-NEW #----------------------------------------------------------- # messages #----------------------------------------------------------- my %labels = ( titulo => $m->comp("/_shared/procs/utils/localize.m", str=>'Título'), opcoes => $m->comp("/_shared/procs/utils/localize.m", str=>'_Opções'), registos => $m->comp("/_shared/procs/utils/localize.m", str=>'Registos'), actualizacao => $m->comp("/_shared/procs/utils/localize.m", str=>"Ultima actualização"), creditos_nec => $m->comp("/_shared/procs/utils/localize.m", str=>"Créditos necessários"), creditos_disp => $m->comp("/_shared/procs/utils/localize.m", str=>"_Créditos disponíveis"), cancelar => $m->comp("/_shared/procs/utils/localize.m", str=>'cancelar'), iniciar => $m->comp("/_shared/procs/utils/localize.m", str=>'iniciar'), ); my %messages = ( titulo => $m->comp("/_shared/procs/utils/localize.m", str=>'ficheiro em preparação, por favor aguarde um momento'), ajuda => ("" . $m->comp("/_shared/procs/utils/localize.m", str=>"Se o indicador de progresso não mudar em 10 segundos, clique aqui para verificar se o documento já está pronto") . ""), ); my $message = $messages{titulo}; my $msg2 = $messages{ajuda};