XOOPS WAP Mobile
Fóruns
XOOPS Cube
- Legacy
- Blocos PHP
Detalhes:
Título: Blocos PHP
Autor: topet05
Data: 2004-02-11 00:02
Conteúdo:

Então taí o que você queria... bola rolando no Maracanã...rs.
Veja se é isso que você quer (se não for, eu vou chorar muito, porque deu um trampo..rs)
No seu Bloco, defina o Content Type como PHP Script e coloque a seguinte função:

function ExibeGrupos ($grupoNome,$numero)
{
Global $xoopsUser;
$conecta =& Database::getInstance();
$myts =& MyTextSanitizer::getInstance();
$result = $conecta->query("SELECT u.uid, u.uname, u.email, u.user_viewemail, u.user_avatar, g.name AS groupname FROM ".$conecta->prefix("groups_users_link")." l LEFT JOIN ".$conecta->prefix("users")." u ON l.uid=u.uid LEFT JOIN ".$conecta->prefix("groups")." g ON l.groupid=g.groupid WHERE g.name='".$grupoNome."' ORDER BY RAND() limit ".$numero."");
If ($conecta->getRowsNum($result) > 0) {
Echo '';
$o_grupo = 0;
While ($utilizadores = $conecta->fetchArray($result)) {
If ($o_grupo == 0){
Echo'';
$o_grupo = 1;
}
If ($xoopsUser != '') {
Echo'';
}else{
If ($utilizadores['user_viewemail']) {
Echo'';
}else{
Echo'';
}
}
}
Echo'
'.$myts->htmlSpecialChars($utilizadores['groupname']).'

'.$myts->htmlspecialchars($utilizadores['uname']).'

'.$myts->htmlspecialchars($utilizadores['uname']).'

'.$myts->htmlspecialchars($utilizadores['uname']).'
';
}else{
Echo 'O grupo selecionado não existe ou não contém nenhum membro.';
}
}

Esta função respeira os mesmos padrões do bloco do Sistema, se o Usuário estiver logado, mostra o endereço para mensagem privada, se não, verifica se o Usuário que consta no grupo autorizou a exibição do e-mail, se sim, mostra endereço "mailto:...", se não, deixa em branco (é tanto se se se se se re sese).
Como utilizar a função:
Echo ExibeGrupos("Nome_do_Grupo","Numero_de_Utilizadores")
Ou seja, cole a função e logo depois, chame-a do jeito citado acima. Lembrando que isto não foi 100% testado (mas acho que foi aprovado lá no xoops.org) e lembrando também que o nome do grupo NÃO precisa ser case sensitive.
(Hehehehe, nem coloquei créditos, nem comentei nada para ficar mais clean. Mas se quem estiver interessado em versão comentada das coisas que faço, dá um toke. Daki a poko esses "hackizinhus" tão voando pelos xoops[$i] da vida...rs)
Dúvidas, sugestões ou xingamentos, estamos aeeeee!

<< 1 ..6 (7) 8 ..23 >>
Responder Editar Remover