\r\n"; $r = q("SELECT * FROM `group` WHERE `deleted` = 0 AND `uid` = %d ORDER BY `name` ASC", $_SESSION['uid'] ); if(count($r)) { foreach($r as $rr) { if((is_array($preselected)) && in_array($rr['id'], $preselected)) $selected = " selected=\"selected\" "; else $selected = ''; $o .= "\r\n"; } } $o .= "\r\n"; return $o; } function contact_select($selname, $selclass, $preselected = false, $size = 4, $privmail = false, $celeb = false) { $o = ''; // When used for private messages, we limit correspondence to mutual friends and the selector // to one recipient. By default our selector allows multiple selects amongst all contacts. $sql_extra = ''; if($privmail || $celeb) { $sql_extra .= sprintf(" AND `rel` = %d ", intval(REL_BUD)); } if($privmail) $o .= "\r\n"; $r = q("SELECT `id`, `name`, `url`, `network` FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 AND `pending` = 0 AND `notify` != '' $sql_extra ORDER BY `name` ASC ", intval(local_user()) ); if(count($r)) { foreach($r as $rr) { if((is_array($preselected)) && in_array($rr['id'], $preselected)) $selected = " selected=\"selected\" "; else $selected = ''; if(($privmail) && ($rr['network'] === 'stat')) $disabled = ' disabled="true" ' ; else $disabled = ''; $o .= "\r\n"; } } $o .= "\r\n"; return $o; } function fixacl(&$item) { $item = intval(str_replace(array('<','>'),array('',''),$item)); } function populate_acl($user = null,$celeb = false) { $allow_cid = $allow_gid = $deny_cid = $deny_gid = false; if(is_array($user)) { $allow_cid = ((strlen($user['allow_cid'])) ? explode('><', $user['allow_cid']) : array() ); $allow_gid = ((strlen($user['allow_gid'])) ? explode('><', $user['allow_gid']) : array() ); $deny_cid = ((strlen($user['deny_cid'])) ? explode('><', $user['deny_cid']) : array() ); $deny_gid = ((strlen($user['deny_gid'])) ? explode('><', $user['deny_gid']) : array() ); array_walk($allow_cid,'fixacl'); array_walk($allow_gid,'fixacl'); array_walk($deny_cid,'fixacl'); array_walk($deny_gid,'fixacl'); } $o = ''; $o .= '
'; $o .= '
'; $o .= '
' . t('Visible To:') . '
'; $o .= '
'; $o .= '
'; $o .= '
'; $o .= ''; $o .= group_select('group_allow','group_allow',$allow_gid); $o .= '
'; $o .= '
'; $o .= ''; $o .= contact_select('contact_allow','contact_allow',$allow_cid,4,false,$celeb); $o .= '
'; $o .= '
' . "\r\n"; $o .= '
' . "\r\n"; $o .= '
'; $o .= '
'; $o .= '
' . t('Except For:') . '
'; $o .= '
'; $o .= '
'; $o .= '
'; $o .= ''; $o .= group_select('group_deny','group_deny', $deny_gid); $o .= '
'; $o .= '
'; $o .= ''; $o .= contact_select('contact_deny','contact_deny', $deny_cid,4,false, $celeb); $o .= '
'; $o .= '
' . "\r\n"; $o .= '
' . "\r\n"; $o .= '
'; $o .= '
' . "\r\n"; $o .= '
' . "\r\n"; return $o; }