How one identifies is not relevant to their work in Debian: remove gender attribute...

[mirror/userdir-ldap-cgi.git] / update.cgi

diff --git a/update.cgi b/update.cgi
index e526026..e6ba638 100755 (executable)
--- a/update.cgi
+++ b/update.cgi
@@ -98,8 +98,6 @@ if (!($query->param('doupdate'))) {
     $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;
@@ -133,15 +131,6 @@ if (!($query->param('doupdate'))) {
   
   $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' : '')
@@ -201,7 +190,6 @@ if (!($query->param('doupdate'))) {
   open (F, "<$config{webupdatehtml}") || &Util::HTMLError($!);
   while (<F>) {
     s/~(.+?)~/$data{$1}/g;
-    s/<\?genderselect>/$genderselect/;
     s/<\?mailcontentselect>/$mailcontentselect/;
     s/<\?sudopassword>/$sudopassword/;
     s/<\?sudopasswordhosts>/$sudopasswordhosts/;
@@ -284,11 +272,6 @@ if (!($query->param('doupdate'))) {
   $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])$/) {
@@ -399,7 +382,6 @@ if (!($query->param('doupdate'))) {
   &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);