Index: openacs-4/packages/contacts/lib/comments.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/comments.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/contacts/lib/comments.adp 27 May 2005 09:59:31 -0000 1.4 +++ openacs-4/packages/contacts/lib/comments.adp 28 May 2005 15:43:52 -0000 1.5 @@ -1,19 +1,19 @@ +

#contacts.Comments#

-

Comments

-
-
@comments.comment_number@. @comments.pretty_date@ at @comments.pretty_time@ - @comments.author@ -
@comments.comment_html;noquote@
+
@comments.comment_number@. #contacts.lt_commentspretty_date_a# @comments.author@ +
@comments.comment_html;noquote@
+ Index: openacs-4/packages/contacts/lib/contact-master.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-master.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/contacts/lib/contact-master.adp 19 May 2005 23:03:23 -0000 1.2 +++ openacs-4/packages/contacts/lib/contact-master.adp 28 May 2005 15:43:52 -0000 1.3 @@ -13,10 +13,11 @@
  • @links.label@ 
  • -
  • Public Page 
  • +
  • #contacts.Public_Page# 
  • + Index: openacs-4/packages/contacts/lib/groups.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/contacts/lib/groups.adp 27 May 2005 09:35:43 -0000 1.4 +++ openacs-4/packages/contacts/lib/groups.adp 28 May 2005 15:43:52 -0000 1.5 @@ -3,11 +3,11 @@ -

    You cannot add this contact to more groups.

    +

    #contacts.lt_You_cannot_add_this_c#

    -

    Groups

    +

    #contacts.Groups#

    -This contact is not part of any groups - this is a problem. +#contacts.lt_This_contact_is_not_p# + Index: openacs-4/packages/contacts/tcl/contacts-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-init.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/contacts/tcl/contacts-init.tcl 26 May 2005 09:40:45 -0000 1.5 +++ openacs-4/packages/contacts/tcl/contacts-init.tcl 28 May 2005 15:44:06 -0000 1.6 @@ -6,99 +6,3 @@ @creation-date 2004-08-16 } -set attribute_id [attribute::new \ - -object_type "person" \ - -attribute_name "last_name" \ - -datatype "string" \ - -pretty_name "#ams.person_last_name#" \ - -pretty_plural "#ams.person_last_name_plural#" \ - -table_name "" \ - -column_name "" \ - -default_value "" \ - -min_n_values "0" \ - -max_n_values "1" \ - -sort_order "1" \ - -storage "type_specific" \ - -static_p "f" \ - -if_does_not_exist] - -lang::message::register en_US ams person_last_name "First Names" -lang::message::register en_US ams person_last_name_plural "First Names" - -ams::attribute::new \ - -attribute_id $attribute_id \ - -widget "textbox" \ - -dynamic_p "f" - -set attribute_id [attribute::new \ - -object_type "person" \ - -attribute_name "first_names" \ - -datatype "string" \ - -pretty_name "#ams.person_first_names#" \ - -pretty_plural "#ams.person_first_names_plural#" \ - -table_name "" \ - -column_name "" \ - -default_value "" \ - -min_n_values "0" \ - -max_n_values "1" \ - -sort_order "1" \ - -storage "type_specific" \ - -static_p "f" \ - -if_does_not_exist] - -lang::message::register en_US ams person_first_names "Last Name" -lang::message::register en_US ams person_first_names_plural "Last Names" - -ams::attribute::new \ - -attribute_id $attribute_id \ - -widget "textbox" \ - -dynamic_p "f" - -set attribute_id [attribute::new \ - -object_type "party" \ - -attribute_name "email" \ - -datatype "string" \ - -pretty_name "#ams.party_email#" \ - -pretty_plural "#ams.party_email_plural#" \ - -table_name "" \ - -column_name "" \ - -default_value "" \ - -min_n_values "0" \ - -max_n_values "1" \ - -sort_order "1" \ - -storage "type_specific" \ - -static_p "f" \ - -if_does_not_exist] - -lang::message::register en_US ams party_email "Email Address" -lang::message::register en_US ams party_email_plural "Email Addresses" - -ams::attribute::new \ - -attribute_id $attribute_id \ - -widget "email" \ - -dynamic_p "f" - -set attribute_id [attribute::new \ - -object_type "organization" \ - -attribute_name "name" \ - -datatype "string" \ - -pretty_name "#ams.organization_name#" \ - -pretty_plural "#ams.organization_name_plural#" \ - -table_name "" \ - -column_name "" \ - -default_value "" \ - -min_n_values "1" \ - -max_n_values "1" \ - -sort_order "1" \ - -storage "generic" \ - -static_p "f" \ - -if_does_not_exist] - -lang::message::register en_US ams organization_name "Organization Name" -lang::message::register en_US ams organization_name_plural "Organization Names" - -ams::attribute::new \ - -attribute_id $attribute_id \ - -widget "textbox" \ - -dynamic_p "t" - Index: openacs-4/packages/contacts/tcl/contacts-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-install-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/tcl/contacts-install-procs.tcl 26 May 2005 09:37:54 -0000 1.1 +++ openacs-4/packages/contacts/tcl/contacts-install-procs.tcl 28 May 2005 15:44:06 -0000 1.2 @@ -9,6 +9,7 @@ @cvs-id $Id$ } +namespace contact::install ad_proc -public -callback contact::contact_form { {-package_id:required} {-form:required} @@ -23,3 +24,102 @@ {-object_type:required} } { } + +ad_proc -public contact::install::register_attributes { + set attribute_id [attribute::new \ + -object_type "person" \ + -attribute_name "last_name" \ + -datatype "string" \ + -pretty_name "#ams.person_last_name#" \ + -pretty_plural "#ams.person_last_name_plural#" \ + -table_name "" \ + -column_name "" \ + -default_value "" \ + -min_n_values "0" \ + -max_n_values "1" \ + -sort_order "1" \ + -storage "type_specific" \ + -static_p "f" \ + -if_does_not_exist] + + lang::message::register en_US ams person_last_name "First Names" + lang::message::register en_US ams person_last_name_plural "First Names" + + ams::attribute::new \ + -attribute_id $attribute_id \ + -widget "textbox" \ + -dynamic_p "f" + + set attribute_id [attribute::new \ + -object_type "person" \ + -attribute_name "first_names" \ + -datatype "string" \ + -pretty_name "#ams.person_first_names#" \ + -pretty_plural "#ams.person_first_names_plural#" \ + -table_name "" \ + -column_name "" \ + -default_value "" \ + -min_n_values "0" \ + -max_n_values "1" \ + -sort_order "1" \ + -storage "type_specific" \ + -static_p "f" \ + -if_does_not_exist] + + lang::message::register en_US ams person_first_names "Last Name" + lang::message::register en_US ams person_first_names_plural "Last Names" + + ams::attribute::new \ + -attribute_id $attribute_id \ + -widget "textbox" \ + -dynamic_p "f" + + set attribute_id [attribute::new \ + -object_type "party" \ + -attribute_name "email" \ + -datatype "string" \ + -pretty_name "#ams.party_email#" \ + -pretty_plural "#ams.party_email_plural#" \ + -table_name "" \ + -column_name "" \ + -default_value "" \ + -min_n_values "0" \ + -max_n_values "1" \ + -sort_order "1" \ + -storage "type_specific" \ + -static_p "f" \ + -if_does_not_exist] + + lang::message::register en_US ams party_email "Email Address" + lang::message::register en_US ams party_email_plural "Email Addresses" + + ams::attribute::new \ + -attribute_id $attribute_id \ + -widget "email" \ + -dynamic_p "f" + + set attribute_id [attribute::new \ + -object_type "organization" \ + -attribute_name "name" \ + -datatype "string" \ + -pretty_name "#ams.organization_name#" \ + -pretty_plural "#ams.organization_name_plural#" \ + -table_name "" \ + -column_name "" \ + -default_value "" \ + -min_n_values "1" \ + -max_n_values "1" \ + -sort_order "1" \ + -storage "generic" \ + -static_p "f" \ + -if_does_not_exist] + + lang::message::register en_US ams organization_name "Organization Name" + lang::message::register en_US ams organization_name_plural "Organization Names" + + ams::attribute::new \ + -attribute_id $attribute_id \ + -widget "textbox" \ + -dynamic_p "t" + +} \ No newline at end of file Index: openacs-4/packages/contacts/www/contact-rels.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-rels.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/contacts/www/contact-rels.adp 25 May 2005 16:23:51 -0000 1.3 +++ openacs-4/packages/contacts/www/contact-rels.adp 28 May 2005 15:44:06 -0000 1.4 @@ -10,7 +10,8 @@ -

    Existing Relationships

    +

    #contacts.lt_Existing_Relationship#

    + Index: openacs-4/packages/contacts/www/contact.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.adp,v diff -u -r1.4 -r1.5 --- openacs-4/packages/contacts/www/contact.adp 27 May 2005 09:02:14 -0000 1.4 +++ openacs-4/packages/contacts/www/contact.adp 28 May 2005 15:44:06 -0000 1.5 @@ -40,10 +40,26 @@ + + + +
    + @project_id@ + @base_url@ +

    #contacts.PROJECT# + + + + + + +

    #contacts.lt_Last_updated_update_d#

    + - Index: openacs-4/packages/contacts/www/contact.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/contacts/www/contact.tcl 27 May 2005 09:35:43 -0000 1.5 +++ openacs-4/packages/contacts/www/contact.tcl 28 May 2005 15:44:06 -0000 1.6 @@ -77,11 +77,6 @@ - - - - - set live_revision [contact::live_revision -party_id $party_id] if { [exists_and_not_null live_revision] } { set update_date [db_string get_update_date { select to_char(publish_date,'Mon FMDD, YYYY at FMHH12:MIam') from cr_revisions where revision_id = :live_revision } -default {}] @@ -94,8 +89,19 @@ set tasks_enabled_p 0 } +# Get the linked projekt_id to display the subprojects +set project_id [application_data_link::get_linked -from_object_id $party_id -to_object_type "content_item"] +if {$project_id > 0} { + set package_id [acs_object::get_element -object_id $project_id -element package_id] + set base_url [apm_package_url_from_id $package_id] + set project_url [export_vars -base $base_url {{project_item_id $project_id}}] +} else { + set project_url "" +} + + ad_return_template Index: openacs-4/packages/contacts/www/group-parties-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-parties-add.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/group-parties-add.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/group-parties-add.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,10 +1,10 @@ - - -@title@ -@context@ - - - - - - + + +@title@ +@context@ + + + + + + Index: openacs-4/packages/contacts/www/group-parties-remove.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-parties-remove.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/group-parties-remove.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/group-parties-remove.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,10 +1,10 @@ - - -@title@ -@context@ - - - - - - + + +@title@ +@context@ + + + + + + Index: openacs-4/packages/contacts/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/index.adp,v diff -u -r1.5 -r1.6 --- openacs-4/packages/contacts/www/index.adp 25 May 2005 16:23:51 -0000 1.5 +++ openacs-4/packages/contacts/www/index.adp 28 May 2005 15:44:06 -0000 1.6 @@ -8,11 +8,11 @@ search.query @@ -21,3 +21,4 @@ + Index: openacs-4/packages/contacts/www/message-messages.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message-messages.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/message-messages.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/message-messages.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,25 +1,26 @@ - - -Mail Merge Results - - - - - - -
    -@messages.content;noquote@ -
    -
    - -
    -From:    @from@
    -To:      @messages.to@
    -Subject: @messages.subject@
    -
    -@messages.content@
    -
    -



    -
    -
    - + + +#contacts.Mail_Merge_Results# + + + + + + +
    +@messages.content;noquote@ +
    +
    + +
    +From:    @from@
    +To:      @messages.to@
    +Subject: @messages.subject@
    +
    +@messages.content@
    +
    +



    +
    +
    + + Index: openacs-4/packages/contacts/www/person-groups-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/person-groups-ae.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/person-groups-ae.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/person-groups-ae.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,7 +1,7 @@ - -@title@ -@context@ - - - - + +@title@ +@context@ + + + + Index: openacs-4/packages/contacts/www/relationship-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-add.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/relationship-add.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/relationship-add.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,9 +1,10 @@ @party_id@ -

    What role does @contact_name_one@ have when @contact_name_two@ is a @secondary_role_pretty@:

    +

    #contacts.lt_What_role_does_contac#

    + Index: openacs-4/packages/contacts/www/search-help.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/search-help.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/search-help.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/search-help.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,29 +1,30 @@ - - -@title@ -@context@ - - - -

    All searches are case insensitive, capitalization does not matter. If more than one contact match the search a list of results is returned. If only one contact meets the search criteria you are redirected to that contact.

    -

    Normal Searches

    -

    Entering a string in the normal search box means that a search will be performed where:

    -
      -
    1. "First Names" contains "Search_Word" or -
    2. "Last Name" contains "Search_Word" or -
    3. "Organization Name" contains "Search_Word" or -
    4. "Party ID" equals "Search_Word" -
    -

    If multiple words are used then all words must match the above critera. So, for example if our contacts database contains these entries: -

    -Contact ID    | First Names    | Last Name     | Organization Name
    ---------------+----------------+---------------+---------------------------------
    -123           | Jane           | Doe           |
    -234           | John           | Doe           |
    -345           | Alfred         | Hitchcock     |
    -456           |                |               | United States Treasury
    -
    -

    If in a normal search we search for "D Jane". The first Search_Word ("D") matches contacts 123 (via "Doe"), 234 (via "Doe"), and 345 (via "Alfred"). And the second Search_Word ("Jane") matches only contact 123. Thus only one contact meets both requirements and "Jane Doe" (contact 123) is returned.

    - -

    Advanced Searches

    -

    Advanced searches are very powerful but in return they require very specific input... + + +@title@ +@context@ + + + +

    #contacts.lt_All_searches_are_case#

    +

    #contacts.Normal_Searches#

    +

    #contacts.lt_Entering_a_string_in_#

    +
      +
    1. #contacts.lt_First_Names_contains_# +
    2. #contacts.lt_Last_Name_contains_Se# +
    3. #contacts.lt_Organization_Name_con# +
    4. #contacts.lt_Party_ID_equals_Searc# +
    +

    #contacts.lt_If_multiple_words_are# +

    +Contact ID    | First Names    | Last Name     | Organization Name
    +--------------+----------------+---------------+---------------------------------
    +123           | Jane           | Doe           |
    +234           | John           | Doe           |
    +345           | Alfred         | Hitchcock     |
    +456           |                |               | United States Treasury
    +
    +

    #contacts.lt_If_in_a_normal_search#

    + +

    #contacts.Advanced_Searches#

    +

    #contacts.lt_Advanced_searches_are# + Index: openacs-4/packages/contacts/www/search.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/search.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/contacts/www/search.adp 25 May 2005 16:23:51 -0000 1.2 +++ openacs-4/packages/contacts/www/search.adp 28 May 2005 15:44:06 -0000 1.3 @@ -6,11 +6,12 @@ -

    My Searches

    +

    #contacts.My_Searches#

    -

    Debugging Code - Only SW Admins See This

    +

    #contacts.lt_Debugging_Code_-_Only#

    @query_code;noquote@
    + Index: openacs-4/packages/contacts/www/settings.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/settings.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/settings.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/settings.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,12 +1,13 @@ - -@title@ -@context@ - -

    -Add Signature -Administer Contacts -

    -

    My Signatures

    - - - + +@title@ +@context@ + +

    +#contacts.Add_Signature# +#contacts.Administer_Contacts# +

    +

    #contacts.My_Signatures#

    + + + + Index: openacs-4/packages/contacts/www/admin/group-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/group-ae.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/admin/group-ae.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/admin/group-ae.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,7 +1,7 @@ - - -@title@ -@context@ - - - + + +@title@ +@context@ + + + Index: openacs-4/packages/contacts/www/admin/group-map.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/group-map.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/admin/group-map.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/admin/group-map.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,7 +1,7 @@ - - -@title@ -@context@ - - - + + +@title@ +@context@ + + + Index: openacs-4/packages/contacts/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/index.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/contacts/www/admin/index.adp 18 May 2005 16:45:50 -0000 1.3 +++ openacs-4/packages/contacts/www/admin/index.adp 28 May 2005 15:44:06 -0000 1.4 @@ -3,15 +3,16 @@ @context@

    -Relationships -Add Group -Instance Permissions - Not done yet +#contacts.Relationships# +#contacts.Add_Group# +#contacts.lt_Instance_Permissions_#

    -

    READ THESE

    +

    #contacts.READ_THESE#

      -
    • Make sure you do not add the same attribute to multiple groups
    • -
    • The default group must have first_names and last_name for person objects and name for organization objects, both of them need email
    • +
    • #contacts.lt_Make_sure_you_do_not_#
    • +
    • #contacts.lt_The_default_group_mus#
    -

    Once ready for release this will be taken care of in code

    +

    #contacts.lt_Once_ready_for_releas#

    + Index: openacs-4/packages/contacts/www/admin/relationships.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/relationships.adp,v diff -u -r1.2 -r1.3 --- openacs-4/packages/contacts/www/admin/relationships.adp 21 May 2005 21:00:41 -0000 1.2 +++ openacs-4/packages/contacts/www/admin/relationships.adp 28 May 2005 15:44:06 -0000 1.3 @@ -4,17 +4,17 @@

    -Define a new relationship type -View all roles +#contacts.lt_Define_a_new_relation# +#contacts.View_all_roles#

    -

    Currently, the system is able to handle the following types of relationships:

    +

    #contacts.lt_Currently_the_system_#

    -
    (none)
    +
    #contacts.none#
    @@ -24,7 +24,7 @@
      -
    • @rel_types.primary_role_pretty@ -> @rel_types.secondary_role_pretty@ Attributes
    • +
    • @rel_types.primary_role_pretty@ -> @rel_types.secondary_role_pretty@ #contacts.Attributes#
    @@ -35,3 +35,4 @@
    + Index: openacs-4/packages/contacts/www/admin/role-ae.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/role-ae.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/admin/role-ae.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/admin/role-ae.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,6 +1,7 @@ @context;noquote@ -Create role +#contacts.Create_role# role_form.role + Index: openacs-4/packages/contacts/www/admin/roles.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/roles.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/contacts/www/admin/roles.adp 18 May 2005 16:45:50 -0000 1.1 +++ openacs-4/packages/contacts/www/admin/roles.adp 28 May 2005 15:44:06 -0000 1.2 @@ -1,16 +1,17 @@ @context;noquote@ -Roles +#contacts.Roles# -

    Create a role

    +

    #contacts.Create_a_role#

    + Index: openacs-4/packages/contacts/www/admin/widgets.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/widgets.adp,v diff -u -r1.3 -r1.4 --- openacs-4/packages/contacts/www/admin/widgets.adp 18 May 2005 16:45:50 -0000 1.3 +++ openacs-4/packages/contacts/www/admin/widgets.adp 28 May 2005 15:44:06 -0000 1.4 @@ -1,6 +1,6 @@ - -@title@ -@context@ - - - + +@title@ +@context@ + + +