%# % my $i = 0; % foreach my $categoria_key (@order_categorias){ % my $bgcolor = ($i++ % 2 == 0) ? "white":"#ecf1f3"; % my $kind = $$categorias{$categoria_key}{'kind'}; % my $style = $kind; % my $tipo_item = ($kind eq 'categoria') ? "I":"G"; % my ($itemid, $title) = $m->comp("/_shared/procs/getitemid.m",node=>$categoria_key, tipo_item=>$tipo_item); % my $baseurl = ($kind eq 'categoria') ? "/downloads/cat/_CK_":"/downloads/dir/_CK_"; % my $url = $m->comp("/_shared/paineis/resources/get_customurl.m",base_url=>$baseurl,search_args=>$srchargs,value=>$categoria_key); % my $records = $$categorias{$categoria_key}{'records'}; % next unless $records; % my $credits; % if ($records > 5000){ % $records = '+5000'; % $credits = '-'; % }else{ % $credits = $m->comp("/downloads/procs/getreqcredits.m", records=>$records); % } % my $label = $$categorias{$categoria_key}{'label'}; % }

categoria	registos	créditos
%#<& /_shared/templates/dirpath.html, node=>$node &> %#
% if ($kind eq 'grupo'){ <% $label %> % }else{ <% $label %> % }	<%$records%>	% if ($credits > $usercredits){ # FIXME-NEW <%$credits%> % }elsif ($credits eq '-'){ n/a % }else{ <%$credits%> % }	% #if ($credits ne '-'){ % if ($credits ne '-' && $credits <= $usercredits){ #> FIXME-NEW % }else{ % } % #}

<%args> $user => undef $node => 0 $selected => undef <%init> #---------------------------------------------------------------------- # parametros de pesquisa para filtrar conteudo # e para contagens #---------------------------------------------------------------------- my $filters = $m->comp('/_shared/procs/getfilters.m', srchargs=>\%{$m->top_args}); my $srchargs = $m->comp("/_shared/procs/utils/get_searchargs.m"); my ($records, $categorias); #-------------------------------------------------------------------------- # conteudo #-------------------------------------------------------------------------- # nó, com contagens #-------------------------------------------------------------------------- if ($node){ ($records, $categorias) = $m->comp("/_shared/procs/getgroupcontents.m", node=>$node, docount=>($node != 0), srchargs=>\%{$m->top_args}, filters=>$filters); #-------------------------------------------------------------------------- # root #-------------------------------------------------------------------------- }else{ $m->comp("/downloads/msg.html", msg=>'navegue no directório e seleccione o grupo ou categoria que pretende efectuar download'); return $m->comp("/_shared/templates/dirpage.html", downloads=>1); $categorias = $m->comp("/_shared/data/sites.m"); } #-------------------------------------------------------------------------- # ordenar hash por key 'ordem' #-------------------------------------------------------------------------- my @order_categorias = sort {$$categorias{$a}{'ordem'}<=>$$categorias{$b}{'ordem'}} keys %$categorias; my $count_categorias = scalar @order_categorias; my ($usercredits, $usedcredits) = $m->comp("/downloads/procs/getusercredits.m", user=>$user);