4 function group_select($selname,$selclass,$preselected = false) {
8 $o .= "<select name=\"{$selname}[]\" class=\"$selclass\" multiple=\"multiple\" size=\"4\" />\r\n";
10 $r = q("SELECT * FROM `group` WHERE `uid` = %d",
16 if((is_array($preselected)) && $in_array($rr['name'], $preselected))
17 $selected = " selected=\"selected\" ";
20 $o .= "<option value=\"{$rr['name']}\" $selected >{$rr['name']}</option>\r\n";
24 $o .= "</select>\r\n";
32 function contact_select($selname,$selclass,$preselected = false) {
36 $o .= "<select name=\"{$selname}[]\" class=\"$selclass\" multiple=\"multiple\" size=\"4\" />\r\n";
38 $r = q("SELECT `name` FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 ",
44 if((is_array($preselected)) && $in_array($rr['name'], $preselected))
45 $selected = " selected=\"selected\" ";
48 $o .= "<option value=\"{$rr['name']}\" $selected >{$rr['name']}</option>\r\n";
52 $o .= "</select>\r\n";
59 function populate_acl() {
63 $o .= "Allow Groups: " . group_select('group_allow','group_allow');
64 $o .= "Allow Contacts: " . contact_select('contact_allow','contact_allow');
66 $o .= "Except Groups: " . group_select('group_deny','group_deny');
67 $o .= "Except Contacts: " . contact_select('contact_deny','contact_deny');