Index: openacs-4/packages/contacts/catalog/contacts.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/catalog/contacts.de_DE.ISO-8859-1.xml,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/contacts/catalog/contacts.de_DE.ISO-8859-1.xml	17 Nov 2005 18:22:01 -0000	1.18
+++ openacs-4/packages/contacts/catalog/contacts.de_DE.ISO-8859-1.xml	15 Dec 2005 22:20:48 -0000	1.19
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="contacts" package_version="1.1d5" locale="de_DE" charset="ISO-8859-1">
+<message_catalog package_key="contacts" package_version="1.1d9" locale="de_DE" charset="ISO-8859-1">
 
   <msg key="--_select_a_group_--">-- eine Gruppe markieren --</msg>
   <msg key="--Create_New_Message--">-- Neue Nachricht erstellen --</msg>
@@ -38,7 +38,9 @@
   <msg key="Advanced_Searches">Erweiterte Suchen</msg>
   <msg key="Aggregate">Zusammenfassen</msg>
   <msg key="Aggregate_by">Zusammenfassen nach</msg>
+  <msg key="Aggregated">Aggregiert</msg>
   <msg key="aggregated_by">zusammengefasst nach:</msg>
+  <msg key="aggregated_help">Auf &quot;Wahr&quot; setzen wenn Sie dieses Erweiterung der Liste in der &quot;Aggregierten Ergebnisseite&quot; sehen wollen</msg>
   <msg key="All">Alle</msg>
   <msg key="All__Edit">Daten �ndern</msg>
   <msg key="All_Contacts">Alle Kontakte</msg>
@@ -55,13 +57,15 @@
   <msg key="at">um</msg>
   <msg key="Attribute">Attribut</msg>
   <msg key="Attribute_-">Attribut -&amp;gt;</msg>
+  <msg key="Attribute_Name">Attibut Name</msg>
   <msg key="Attributes">Attribute</msg>
   <msg key="Available_Attributes">Verf�gbare Attribute</msg>
   <msg key="Available_Options">Verf�gbare Optionen</msg>
   <msg key="Belongs_to">Geh�rt zu</msg>
   <msg key="Body">Haupttext</msg>
   <msg key="Bulk_Update">Massen Update</msg>
   <msg key="Cancel">Abbrechen</msg>
+  <msg key="CC">CC</msg>
   <msg key="cc_help">Eine Kopie an mehrere Empf�nger E-Mails getrennt durch &quot;;&quot; versenden.</msg>
   <msg key="Changed_date">Ge�ndertes Datum:</msg>
   <msg key="Changes">�nderungen</msg>
@@ -93,7 +97,6 @@
   <msg key="contacts">Kontakte</msg>
   <msg key="contains_-">enth�lt -&amp;gt;</msg>
   <msg key="Copy">Kopieren</msg>
-  <msg key="Country">Land</msg>
   <msg key="country_code_is_-">Landeskennziffer ist -&gt;</msg>
   <msg key="country_is_-">Land ist -&gt;</msg>
   <msg key="country_is_not_-">Land ist nicht -&gt;</msg>
@@ -102,17 +105,21 @@
   <msg key="Create_a_role">Eine Rolle anlegen</msg>
   <msg key="Create_a_Signature">Eine Signatur erstellen</msg>
   <msg key="Create_a_user_account_for_this_person">F�r diesen User einen User Account erzeugen</msg>
+  <msg key="Create_Club">Kundenportal Anlegen</msg>
   <msg key="create_email">e-Mail anlegen</msg>
   <msg key="create_letter">Einen Brief anlegen</msg>
   <msg key="create_project">Neues Projekt anlegen</msg>
   <msg key="Create_role">Rolle anlegen</msg>
   <msg key="Create_user">User anlegen</msg>
+  <msg key="Creating_Club">Lege das Kundenportal an</msg>
   <msg key="CSV">CSV</msg>
   <msg key="Current">Derzeitig</msg>
   <msg key="Customer">Kunde:</msg>
   <msg key="Customer_has_no_employees">Kunde hat keine Angestellten</msg>
   <msg key="Date">Datum</msg>
   <msg key="days">Tage</msg>
+  <msg key="Default">Standard</msg>
+  <msg key="Default_attributes">Standardattribute</msg>
   <msg key="Delete">L�schen</msg>
   <msg key="Delete_from">L�schen</msg>
   <msg key="Description">Beschreibung:</msg>
@@ -139,7 +146,9 @@
   <msg key="exists_at_least">existieren mindestens</msg>
   <msg key="exists_at_most">existieren h�chstens</msg>
   <msg key="ext_del_message">Option erweitern # %extend_id% gel�scht.</msg>
+  <msg key="extend_error_msg">Die erweiterte Abfrage liefert einen Fehler</msg>
   <msg key="Extend_result_list_by">Die Ergebnisliste um die folgende Attribute erweitern</msg>
+  <msg key="extended_by">erweitert um:</msg>
   <msg key="Extended_search_opt">Erweiterte Suchoptionen</msg>
   <msg key="False">falsch</msg>
   <msg key="File">Datei</msg>
@@ -191,6 +200,7 @@
   <msg key="lt_--_no_not_include_a_s">-- keine Signatur einbinden --</msg>
   <msg key="lt_--_Recent_Searches_--">-- k�rzlich durchgef�hrte Suchen --</msg>
   <msg key="lt_--_top_level_group_--">-- Gruppe erste Ebene --</msg>
+  <msg key="lt_-contact_link-_was_upgraded_to_a_user">Kontakt wurde zum User im System</msg>
   <msg key="lt_Add_new_in_Selected_Groups">Eine neue %object_type% hinzuf�gen und den ausgew�hlten Gruppen zuordnen</msg>
   <msg key="lt_Add_new_relsrelations">Hinzuf�gen neuer %rels.relationship%</msg>
   <msg key="lt_Add_relationship_type">Hinzuf�gen Beziehungstyp</msg>
@@ -239,6 +249,7 @@
   <msg key="lt_Contact_Relationships">Kontakt Beziehungen</msg>
   <msg key="lt_Contact_Rels_Employme">Kontakt Rels Arbeitsverh�ltnisse</msg>
   <msg key="lt_Contact_updated_in_th">Der Kontakt wurde in den letzten &lt;strong&gt;%interval%&lt;/strong&gt; upgedatet.</msg>
+  <msg key="lt_contacts_was_removed_from_group">Der Kontakt wurde von der Gruppe entfernt</msg>
   <msg key="lt_contacts_were_deleted">%contacts@ wurden gel�scht</msg>
   <msg key="lt_country_code_is_not_-">L�nderkennziffer ist nicht -&gt;</msg>
   <msg key="lt_created_in_the_last_-">Erstellt in den letzten -&gt;</msg>
@@ -313,6 +324,7 @@
   <msg key="lt_The_second_contact_sp">Der zweite spezifizierte Kontakt existiert nicht</msg>
   <msg key="lt_The_second_role_speci">Die zweite spezifizierte Rolle existiert nicht</msg>
   <msg key="lt_There_was_a_problem_w">Es gab ein Problem mit Ihrer Eingabe. Dieser Beziehungstyp kann nicht existieren.</msg>
+  <msg key="lt_there_was_an_error_processing">Es gab einen Fehler bei Ihrer Anfrage</msg>
   <msg key="lt_This_action_cannot_be">Diese Aktion kann nicht f�r nicht zugewiesene (unmapped) Gruppen durchgef�hrt werden</msg>
   <msg key="lt_This_contact_is_not_p">Dieser Kontakt ist kein Mitglied einer Gruppe</msg>
   <msg key="lt_This_group_is_already">Diese Gruppe ist bereits der Standard</msg>
@@ -325,6 +337,8 @@
   <msg key="lt_Unable_to_retrieve_gr">Nicht m�glich die group-id abzurufen</msg>
   <msg key="lt_updated_in_the_last_-">Upgedatet in den letzten -&gt;</msg>
   <msg key="lt_Upgrade_this_person_to_a_user">Dieser Person als User registrieren/ upgraden</msg>
+  <msg key="lt_We_are_creating_the_c">Das Kundenportal f�r diese Organization wird erstellt. Bitte warten Sie, dies kann etwas dauern.</msg>
+  <msg key="lt_We_will_continue_auto">Es geht automatisch weiter</msg>
   <msg key="lt_What_role_does_contac">What role does %contact_name_one% have when %contact_name_two% is a %secondary_role_pretty%:</msg>
   <msg key="lt_You_cannot_add_this_c">Sie k�nnen diesen Kontakt nicht zu mehr Gruppen zuweisen.</msg>
   <msg key="lt_You_cannot_make_sub_g">Sie k�nnen keine Untergruppen als Standardgruppe bestimmen</msg>
@@ -449,7 +463,9 @@
   <msg key="Search_for">Suche nach</msg>
   <msg key="Search_for_all_object_type_where">Suche nach allen &lt;strong&gt;%object_type%&lt;/strong&gt; wo</msg>
   <msg key="Search_for_all_object_type_who_are">Suche nach allen %object_type% die</msg>
+  <msg key="search_for_employee">Suche nach &lt;b&gt;Personen oder Organisationen&lt;/b&gt;</msg>
   <msg key="Search_Help">Suchhilfe</msg>
+  <msg key="Search_List">Suchliste</msg>
   <msg key="searches">Suchen</msg>
   <msg key="Select">Markieren</msg>
   <msg key="Send">Senden</msg>
@@ -501,6 +517,7 @@
   <msg key="Updated_By">Update durch</msg>
   <msg key="Updated_On">Update am</msg>
   <msg key="Upload_File">Datei hochladen</msg>
+  <msg key="Upload_file">Datei hochladen</msg>
   <msg key="Upload_More">Mehrere Dateien uploaden</msg>
   <msg key="User_Account_Information">Informationen zu dem User Account</msg>
   <msg key="valid">Berechtigt</msg>
@@ -513,6 +530,7 @@
   <msg key="which_match">die �bereinstimmen mit</msg>
   <msg key="Widget">Widget</msg>
   <msg key="with">mit</msg>
+  <msg key="Working_project_tasks">Projektaufgaben in Arbeit</msg>
   <msg key="You_can_extend">Sie k�nnen diese Suche ausweiten durch:</msg>
   <msg key="Your_message_was_sent_to_-recipients-">Ihre Nachricht wurde an: &lt;strong&gt;%recipients%&lt;/strong&gt; gesendet.</msg>
   <msg key="your_signatures">Ihre Signaturen</msg>
Index: openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml	14 Dec 2005 17:24:23 -0000	1.54
+++ openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml	15 Dec 2005 22:20:48 -0000	1.55
@@ -200,6 +200,7 @@
   <msg key="lt_--_no_not_include_a_s">-- no not include a signature --</msg>
   <msg key="lt_--_Recent_Searches_--">-- Recent Searches --</msg>
   <msg key="lt_--_top_level_group_--">-- top level group --</msg>
+  <msg key="lt_-contact_link-_was_upgraded_to_a_user">Contact was upgraded to a user</msg>
   <msg key="lt_Add_new_in_Selected_Groups">Add new %object_type% and insert into selected groups</msg>
   <msg key="lt_Add_new_relsrelations">Add new %rels.relationship%</msg>
   <msg key="lt_Add_relationship_type">Add relationship type</msg>
Index: openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	14 Dec 2005 22:03:24 -0000	1.22
+++ openacs-4/packages/contacts/tcl/contacts-callback-procs.tcl	15 Dec 2005 22:20:49 -0000	1.23
@@ -17,8 +17,10 @@
     {-object_type:required}
     {-party_id}
     {-group_ids ""}
+    {-rel_type ""}
 } {
-}
+    Form when adding a new contact. This is especially used when presetting values
+} -
 
 ad_proc -public -callback contact::contact_form_validate {
     {-package_id:required}
Index: openacs-4/packages/contacts/www/contact-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-add.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/contacts/www/contact-add.tcl	28 Oct 2005 21:17:02 -0000	1.37
+++ openacs-4/packages/contacts/www/contact-add.tcl	15 Dec 2005 22:20:49 -0000	1.38
@@ -125,7 +125,7 @@
 
 set context [list $title]
 
-callback contact::contact_form -package_id $package_id -form party_ae -object_type $object_type -group_ids $group_ids
+callback contact::contact_form -package_id $package_id -form party_ae -object_type $object_type -group_ids $group_ids -rel_type $rel_type
 
 ad_form -extend -name party_ae \
     -on_request {
@@ -177,11 +177,15 @@
 	    if { ![exists_and_not_null name] } {
 		template::element::set_error party_ae name "[_ contacts.Name_is_required]"
 	    } else {
-                set other_organization_id [organization::get_by_name -name $name]
-                if { ![empty_string_p $other_organization_id] } {
-                    set another_organization [contact::link -party_id $other_organization_id]
-                    template::element::set_error party_ae name "[_ contacts.lt_-another_organization-_already_uses_this_name]"
-                }
+                # We (cognovis) got rid of the unique constraints on organization name as this does not make any sense
+                # An organization could be in multiple locations and independend units of the same large organization could be
+                # different organizations / customers. After all we deal with seperate business units and these should be treated seperately.
+                
+#                set other_organization_id [organization::get_by_name -name $name]
+#                if { ![empty_string_p $other_organization_id] } {
+#                    set another_organization [contact::link -party_id $other_organization_id]
+#                    template::element::set_error party_ae name "[_ contacts.lt_-another_organization-_already_uses_this_name]"
+#                }
             }
 	}
 
Index: openacs-4/packages/contacts/www/person-upgrade-to-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/person-upgrade-to-user.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/www/person-upgrade-to-user.tcl	6 Jul 2005 23:39:24 -0000	1.1
+++ openacs-4/packages/contacts/www/person-upgrade-to-user.tcl	15 Dec 2005 22:20:49 -0000	1.2
@@ -13,6 +13,11 @@
 
 contact::person_upgrade_to_user -person_id $person_id
 set contact_link [contact::link -party_id $person_id]
+
+# If we are autoadding users into .LRN we should do so here as well.
+if {[parameter::get_from_package_key -package_key "dotlrn" -parameter "AutoAddUsersP" -default 0]} {
+    dotlrn::user_add -user_id $person_id -can_browse
+}        
 util_user_message -message "[_ contacts.lt_-contact_link-_was_upgraded_to_a_user]"
 ad_returnredirect [contact::url -party_id $person_id]
 ad_script_abort