Add support for buisnessCategory LDAP field

root/etc/e-smith/events/actions/ldap-update-info

@@ -69,14 +69,16 @@ foreach my $acc (@accounts){
     my $initials = $acc->prop('Initials') || '';
     my $dshell = $acc->prop('DesktopShell') || '';
     my $preferredemail = $acc->prop('PreferredEmail') || '';
+    my $category = $acc->prop('Category') || '';
     $preferredemail = "$user\@$domain" if ($preferredemail eq '');
     my $web = $acc->prop('Url') || '';
 
-    my (@postalcode,@mobile,@extension,@fax,@titles,@initials,@dshell,@preferredemail,@web) = ();
+    my (@postalcode,@mobile,@extension,@fax,@titles,@initials,@dshell,@preferredemail,@category,@web) = ();
     @postalcode = ($postalcode) unless ($postalcode eq '');
     @mobile = ($mobile) unless ($mobile eq '');
     @extension = ($extension) unless ($extension eq '');
     @fax = ($fax) unless ($fax eq '');
+    @category = ($category) unless ($category eq '');
     foreach ($function1, $function2, $function3, $function4){
         push @titles, $_ if ($_ ne '');
     }
@@ -94,6 +96,7 @@ foreach my $acc (@accounts){
                             initials => \@initials,
                             desktopLoginShell => \@dshell,
                             preferredMail => \@preferredemail,
+                            businessCategory => \@category,
                             labeledURI => \@web
                          }
               );

root/etc/e-smith/locale/fr/etc/e-smith/web/functions/userinfo

@@ -63,6 +63,10 @@
         <base>COMPANY</base>
         <trans>Société</trans>
     </entry>
+    <entry>
+        <base>CATEGORY</base>
+        <trans>Catégorie</trans>
+    </entry>
     <entry>
         <base>STREET_ADDRESS</base>
         <trans>Adresse</trans>

root/etc/e-smith/web/functions/userinfo

@@ -78,6 +78,10 @@ __DATA__
             value="get_ldap_value('Company')">
             <label>COMPANY</label>
         </field>
+        <field type="text" size="30" id="Category"
+            value="get_ldap_value('Category')">
+            <label>CATEGORY</label>
+        </field>
         <field type="text" size="30" id="Street"
             value="get_ldap_value('Street')">
             <label>STREET_ADDRESS</label>

root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/userinfo.pm

@@ -213,6 +213,7 @@ sub modify_user {
             'AltEmail3'      => $self->{cgi}->param('AltEmail3'),
             'AltEmail4'      => $self->{cgi}->param('AltEmail4'),
             'PreferredEmail' => $self->{cgi}->param('PreferredEmail'),
+            'Category'       => $self->{cgi}->param('PreferredCategory'),
             'Url'            => $self->{cgi}->param('Url'),
             'Shell'          => $self->{cgi}->param('Shell'),
             'DesktopShell'   => $self->{cgi}->param('DesktopShell'),