Index: openacs-4/packages/contacts/contacts.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/contacts.info,v
diff -u -r1.58 -r1.59
--- openacs-4/packages/contacts/contacts.info 26 Dec 2005 16:45:59 -0000 1.58
+++ openacs-4/packages/contacts/contacts.info 31 Dec 2005 07:39:37 -0000 1.59
@@ -7,14 +7,14 @@
f
t
-
+
Matthew Geddert
This application lets you collaboratively view, edit and categorize contacts.
2005-11-23
Contacts is an application for managing all those people and or organization you need to keep track of. It has a complete UI for storing and categorizing contacts. Each contact can have an arbitrary number of custom attributes associated with it, including other contacts (i.e. a certain contact "belongs" to a certain organization). It also functions as a service contract provider for attributes related to users in your system
0
-
+
@@ -30,6 +30,7 @@
+
Index: openacs-4/packages/contacts/bin/convert.sh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/bin/Attic/convert.sh,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/contacts/bin/convert.sh 31 Dec 2005 07:39:38 -0000 1.1
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+# Set the display variable to the home of the user who has write access to the X11 server
+# which is running on the display port. This could either be VNC or something else.
+
+export HOME=/home/malte
+/etc/openoffice.org-2.0/program/soffice.bin -writer -headless -pt pdfconv $1 -display lektor:1.0
\ No newline at end of file
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.21 -r1.22
--- openacs-4/packages/contacts/catalog/contacts.de_DE.ISO-8859-1.xml 27 Dec 2005 08:39:02 -0000 1.21
+++ openacs-4/packages/contacts/catalog/contacts.de_DE.ISO-8859-1.xml 31 Dec 2005 07:39:39 -0000 1.22
@@ -136,7 +136,7 @@
e-Mail
EMail
e-Mail Adresse
- Angestellter
+ Kundenkontakt
Angestellte
Arbeitgeber
Arbeitgeber
@@ -188,6 +188,7 @@
ist nicht eingerichtet
ist eingerichtet
letztes
+ Letzte �nderung
Nachnamen
Letzte �nderung
Sp�tester
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.57 -r1.58
--- openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml 27 Dec 2005 09:08:13 -0000 1.57
+++ openacs-4/packages/contacts/catalog/contacts.en_US.ISO-8859-1.xml 31 Dec 2005 07:39:39 -0000 1.58
@@ -188,6 +188,7 @@
is not set
is set
last
+ Last updated
Last Name
Last updated
Latest
@@ -524,6 +525,7 @@
Upload File
Upload More
User Account Information
+ Users
Valid
Variable Name
Name of the variable to use in the extend search.
Index: openacs-4/packages/contacts/lib/ap-tasks-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/ap-tasks-portlet.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/lib/ap-tasks-portlet.adp 17 Nov 2005 16:24:30 -0000 1.2
+++ openacs-4/packages/contacts/lib/ap-tasks-portlet.adp 31 Dec 2005 07:39:39 -0000 1.3
@@ -15,6 +15,7 @@
orderby_p="@orderby_p@"
display_mode="list"
pt_orderby="@pt_orderby@"
+ status_id="@status_id@"
elements="@elements@"
/>
Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/contacts/lib/contacts.tcl 14 Dec 2005 17:26:53 -0000 1.37
+++ openacs-4/packages/contacts/lib/contacts.tcl 31 Dec 2005 07:39:39 -0000 1.38
@@ -93,22 +93,32 @@
}
+set last_modified_join ""
+set last_modified_clause ""
+
switch $orderby {
"first_names,asc" {
- set name_label "[_ contacts.Sort_by]: [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization]"
+ set name_label "[_ contacts.Sort_by]: [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization] | [_ contacts.Last_Modified]"
set left_join "left join persons on (parties.party_id = persons.person_id)"
set sort_item "lower(first_names)"
}
"last_name,asc" {
- set name_label "[_ contacts.Sort_by] [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization]"
+ set name_label "[_ contacts.Sort_by] [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization] | [_ contacts.Last_Modified]"
set left_join "left join persons on (parties.party_id = persons.person_id)"
set sort_item "lower(last_name)"
}
"organization,asc" {
- set name_label "[_ contacts.Sort_by] [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization]"
+ set name_label "[_ contacts.Sort_by] [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization] | [_ contacts.Last_Modified]"
set left_join "left join organizations on (parties.party_id = organizations.organization_id)"
set sort_item "lower(organizations.name)"
}
+ "last_modified,desc" {
+ set name_label "[_ contacts.Sort_by] [_ contacts.First_Names] | [_ contacts.Last_Name] | [_ contacts.Organization] | [_ contacts.Last_Modified]"
+ set left_join "left join organizations on (parties.party_id = organizations.organization_id)"
+ set sort_item "acs_objects.last_modified"
+ set last_modified_join "acs_objects, "
+ set last_modified_clause "and parties.party_id = acs_objects.object_id"
+ }
}
append name_label " [_ contacts.Show]: "
@@ -282,18 +292,23 @@
first_names {
label "[_ contacts.First_Name]"
orderby_asc "lower(first_names) asc"
- orderby_desc "lower(first_names) asc"
+ orderby_desc "lower(first_names) desc"
}
last_name {
label "[_ contacts.Last_Name]"
orderby_asc "lower(last_name) asc"
- orderby_desc "lower(last_name) asc"
+ orderby_desc "lower(last_name) desc"
}
organization {
- label "[_ contacts.Last_Name]"
+ label "[_ contacts.Organization]"
orderby_asc "lower(organizations.name) asc"
- orderby_desc "lower(organizations.name) asc"
+ orderby_desc "lower(organizations.name) desc"
}
+ last_modified {
+ label "[_ contacts.Last_Modified]"
+ orderby_asc "acs_objects.last_modified asc"
+ orderby_desc "acs_objects.last_modified desc"
+ }
default_value first_names,asc
} -formats {
Index: openacs-4/packages/contacts/lib/contacts.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.xql,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/contacts/lib/contacts.xql 14 Dec 2005 17:26:53 -0000 1.18
+++ openacs-4/packages/contacts/lib/contacts.xql 31 Dec 2005 07:39:39 -0000 1.19
@@ -6,14 +6,15 @@
select
distinct parties.party_id, $sort_item
from
- parties
+ $last_modified_join parties
$left_join
left join cr_items on (parties.party_id = cr_items.item_id)
- left join cr_revisions on (cr_items.latest_revision =
- cr_revisions.revision_id ), group_distinct_member_map
- where
+ left join cr_revisions on (cr_items.latest_revision = cr_revisions.revision_id ),
+ group_distinct_member_map
+ where
parties.party_id = group_distinct_member_map.member_id
- $group_where_clause
+ $last_modified_clause
+ $group_where_clause
[contact::search_clause -and -search_id $search_id -query $query -party_id "parties.party_id" -revision_id "revision_id"]
[template::list::orderby_clause -orderby -name "contacts"]
@@ -27,10 +28,11 @@
parties.party_id,
parties.email,
parties.url
- from parties
+ from $last_modified_join parties
left join persons on (parties.party_id = persons.person_id)
left join organizations on (parties.party_id = organizations.organization_id)
where 1 = 1
+$last_modified_clause
[template::list::page_where_clause -and -name "contacts" -key "party_id"]
$group_by_group_id
[template::list::orderby_clause -orderby -name "contacts"]
Index: openacs-4/packages/contacts/lib/groups.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.adp,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/contacts/lib/groups.adp 20 Oct 2005 14:04:19 -0000 1.12
+++ openacs-4/packages/contacts/lib/groups.adp 31 Dec 2005 07:39:39 -0000 1.13
@@ -17,6 +17,10 @@
)
+
+#contacts.Users#
+ |
+
Index: openacs-4/packages/contacts/lib/groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/contacts/lib/groups.tcl 4 Dec 2005 22:14:02 -0000 1.11
+++ openacs-4/packages/contacts/lib/groups.tcl 31 Dec 2005 07:39:39 -0000 1.12
@@ -73,3 +73,4 @@
set delete_p 0
}
+set user_p [contact::user_p -party_id $party_id]
\ No newline at end of file
Index: openacs-4/packages/contacts/lib/search-contact.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/search-contact.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/search-contact.adp 18 Dec 2005 12:30:20 -0000 1.1
+++ openacs-4/packages/contacts/lib/search-contact.adp 31 Dec 2005 07:39:39 -0000 1.2
@@ -1,4 +1,4 @@
-
Index: openacs-4/packages/contacts/tcl/contact-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-message-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/tcl/contact-message-procs.tcl 27 Dec 2005 20:19:02 -0000 1.14
+++ openacs-4/packages/contacts/tcl/contact-message-procs.tcl 31 Dec 2005 07:39:39 -0000 1.15
@@ -348,6 +348,9 @@
# Strip the extension.
set pdf_filename "[file rootname $oo_file].pdf"
if {![file exists $pdf_filename]} {
+ ###############
+ # this is a fix to use the oo file if pdf file could not be generated
+ ###############
set pdf_filename $oo_file
}
set pdf_filesize [file size $pdf_filename]
@@ -398,6 +401,7 @@
foreach filename [array names content_array] {
# Save the content to a file.
set file [open "${dir}/$filename" w]
+ fconfigure $file -encoding utf-8
puts $file $content_array($filename)
flush $file
close $file
Index: openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl 20 Dec 2005 16:19:39 -0000 1.19
+++ openacs-4/packages/contacts/tcl/contacts-populate-procs.tcl 31 Dec 2005 07:39:39 -0000 1.20
@@ -1203,7 +1203,11 @@
# Register Relationships
rel_types::create_role -role "parent_company" -pretty_name "Parent Company" -pretty_plural "Parent Companies"
+ lang::message::register -update_sync de_DE acs-translations "role_parent_company" "Mutterfirma"
+
rel_types::create_role -role "subsidiary" -pretty_name "Subsidiary" -pretty_plural "Subsidiaries"
+ lang::message::register -update_sync de_DE acs-translations "role_subsidiary" "Tochterfirma"
+
rel_types::new -table_name "contact_rels_subsidiary" -create_table_p "t" -supertype "contact_rel" -role_one "parent_company" -role_two "subsidiary" \
"contact_rels_subsidiary" \
"Contact Rel Subsidiary" \
Index: openacs-4/packages/contacts/www/message.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/message.adp,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/contacts/www/message.adp 28 Oct 2005 17:57:18 -0000 1.20
+++ openacs-4/packages/contacts/www/message.adp 31 Dec 2005 07:39:40 -0000 1.21
@@ -34,6 +34,7 @@
footer_id=@footer_id@
header_id=@header_id@
folder_id=@folder_id@
+ title=@title@
>