Monotone-Parent: ebcc4eafc5d1abcb0b6b974376ee2dc45a80f62b

Monotone-Revision: 48d58a4e991ff751249e19642dfe41818aadaf08

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2006-10-27T17:45:32
Monotone-Branch: ca.inverse.sogo

SoObjects/Contacts/SOGoContactLDAPEntry.m

@@ -175,6 +175,7 @@
       location = [ldapEntry singleAttributeWithName: @"l"];
       element = [CardElement elementWithTag: @"adr"
                              attributes: nil values: nil];
+      [element setValue: 0 ofAttribute: @"type" to: @"work"];
       if (streetAddress)
         [element setValue: 2 to: streetAddress];
       if (location)
@@ -182,7 +183,7 @@
       if (streetAddress || location)
         [vcard addChild: element];
     }
-              
+
   return vcard;
 }