$data{$_} = CGI::escapeHTML($data{$_}) if defined $data{$_};
}
- $data{gender} = 9 if not $data{gender};
-
# Now we have to fill in the rest that needs some processing...
$data{id} = $id;
$data{authtoken} = $authtoken;
$data{email} = CGI::escapeHTML(join(", ", @{$entry->{emailforward}}));
- my $genderselect = '<select name="gender">'
- . '<option value="9"'
- . ($data{gender} == 9 ? ' selected' : '')
- . '>unspecified'
- . '<option value="1"'
- . ($data{gender} == 1 ? ' selected' : '')
- . '>male<option value="2"'
- . ($data{gender} == 2 ? ' selected' : '')
- . '>female</select>';
my $mailcontentselect = '<select name="mailcontentinspection">'
. '<option value="blackhole"'
. ($data{mailcontentinspectionaction} eq 'blackhole' ? ' selected' : '')
open (F, "<$config{webupdatehtml}") || &Util::HTMLError($!);
while (<F>) {
s/~(.+?)~/$data{$1}/g;
- s/<\?genderselect>/$genderselect/;
s/<\?mailcontentselect>/$mailcontentselect/;
s/<\?sudopassword>/$sudopassword/;
s/<\?sudopasswordhosts>/$sudopasswordhosts/;
$newstaddress = $query->param('staddress');
$newstaddress =~ s/\n/\$/m;
- my $gender = $query->param('gender');
- if ($gender != 1 && $gender != 2) {
- $gender = 9; # unspecified
- }
-
my ($bd_ok, $bd_yr, $bd_mo, $bd_day);
if ($query->param('birthdate') =~ /^([1-9][0-9]{3})([01][0-9])([0-3][0-9])$/) {
&Util::LDAPUpdate($ldap, $editdn, 'jabberJID', $query->param('jabberjid'));
&Util::LDAPUpdate($ldap, $editdn, 'labeledURI', $query->param('labeleduri'));
&Util::LDAPUpdate($ldap, $editdn, 'onVacation', $query->param('onvacation'));
- &Util::LDAPUpdate($ldap, $editdn, 'gender', $gender);
&Util::LDAPUpdate($ldap, $editdn, 'birthDate', $query->param('birthdate')) if $bd_ok;
&Util::LDAPUpdate($ldap, $editdn, 'mailDisableMessage', $query->param('maildisablemessage'));
&Util::LDAPUpdate($ldap, $editdn, 'mailCallout', $callout);