4 function gender_selector($current="",$suffix="") {
6 $select = array('', t('Male'), t('Female'), t('Currently Male'), t('Currently Female'), t('Mostly Male'), t('Mostly Female'), t('Transgender'), t('Intersex'), t('Transsexual'), t('Hermaphrodite'), t('Neuter'), t('Non-specific'), t('Other'), t('Undecided'));
8 call_hooks('gender_selector', $select);
10 $o .= "<select name=\"gender$suffix\" id=\"gender-select$suffix\" size=\"1\" >";
11 foreach($select as $selection) {
12 if($selection !== 'NOTRANSLATION') {
13 $selected = (($selection == $current) ? ' selected="selected" ' : '');
14 $o .= "<option value=\"$selection\" $selected >$selection</option>";
21 function sexpref_selector($current="",$suffix="") {
23 $select = array('', t('Males'), t('Females'), t('Gay'), t('Lesbian'), t('No Preference'), t('Bisexual'), t('Autosexual'), t('Abstinent'), t('Virgin'), t('Deviant'), t('Fetish'), t('Oodles'), t('Nonsexual'));
26 call_hooks('sexpref_selector', $select);
28 $o .= "<select name=\"sexual$suffix\" id=\"sexual-select$suffix\" size=\"1\" >";
29 foreach($select as $selection) {
30 if($selection !== 'NOTRANSLATION') {
31 $selected = (($selection == $current) ? ' selected="selected" ' : '');
32 $o .= "<option value=\"$selection\" $selected >$selection</option>";
40 function marital_selector($current="",$suffix="") {
42 $select = array('', t('Single'), t('Lonely'), t('Available'), t('Unavailable'), t('Has crush'), t('Infatuated'), t('Dating'), t('Unfaithful'), t('Sex Addict'), t('Friends'), t('Friends/Benefits'), t('Casual'), t('Engaged'), t('Married'), t('Imaginarily married'), t('Partners'), t('Cohabiting'), t('Common law'), t('Happy'), t('Not looking'), t('Swinger'), t('Betrayed'), t('Separated'), t('Unstable'), t('Divorced'), t('Imaginarily divorced'), t('Widowed'), t('Uncertain'), t('It\'s complicated'), t('Don\'t care'), t('Ask me') );
44 call_hooks('marital_selector', $select);
46 $o .= "<select name=\"marital\" id=\"marital-select\" size=\"1\" >";
47 foreach($select as $selection) {
48 if($selection !== 'NOTRANSLATION') {
49 $selected = (($selection == $current) ? ' selected="selected" ' : '');
50 $o .= "<option value=\"$selection\" $selected >$selection</option>";