43 lines
1.9 KiB
PHP
43 lines
1.9 KiB
PHP
<?php
|
|
|
|
|
|
function gender_selector($current="",$suffix="") {
|
|
$o = '';
|
|
$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'));
|
|
|
|
$o .= "<select name=\"gender$suffix\" id=\"gender-select$suffix\" size=\"1\" >";
|
|
foreach($select as $selection) {
|
|
$selected = (($selection == $current) ? ' selected="selected" ' : '');
|
|
$o .= "<option value=\"$selection\" $selected >$selection</option>";
|
|
}
|
|
$o .= '</select>';
|
|
return $o;
|
|
}
|
|
|
|
function sexpref_selector($current="",$suffix="") {
|
|
$o = '';
|
|
$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'));
|
|
|
|
$o .= "<select name=\"sexual$suffix\" id=\"sexual-select$suffix\" size=\"1\" >";
|
|
foreach($select as $selection) {
|
|
$selected = (($selection == $current) ? ' selected="selected" ' : '');
|
|
$o .= "<option value=\"$selection\" $selected >$selection</option>";
|
|
}
|
|
$o .= '</select>';
|
|
return $o;
|
|
}
|
|
|
|
|
|
function marital_selector($current="",$suffix="") {
|
|
$o = '';
|
|
$select = array('', t('Single'), t('Lonely'), t('Available'), t('Unavailable'), t('Dating'), t('Unfaithful'), t('Sex Addict'), t('Friends'), t('Friends/Benefits'), t('Casual'), t('Engaged'), t('Married'), t('Partners'), t('Cohabiting'), t('Happy'), t('Not Looking'), t('Swinger'), t('Betrayed'), t('Separated'), t('Unstable'), t('Divorced'), t('Widowed'), t('Uncertain'), t('Complicated'), t('Don\'t care'), t('Ask me') );
|
|
|
|
$o .= "<select name=\"marital\" id=\"marital-select\" size=\"1\" >";
|
|
foreach($select as $selection) {
|
|
$selected = (($selection == $current) ? ' selected="selected" ' : '');
|
|
$o .= "<option value=\"$selection\" $selected >$selection</option>";
|
|
}
|
|
$o .= '</select>';
|
|
return $o;
|
|
}
|