-
+
#contacts.View_Contacts#
Index: openacs-4/packages/contacts/lib/contacts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contacts.tcl,v
diff -u -r1.76 -r1.77
--- openacs-4/packages/contacts/lib/contacts.tcl 9 May 2018 15:33:30 -0000 1.76
+++ openacs-4/packages/contacts/lib/contacts.tcl 12 Aug 2018 12:22:48 -0000 1.77
@@ -337,7 +337,7 @@
]
}
-set row_list [concat $row_list $last_modified_rows]
+lappend row_list {*}$last_modified_rows
if { [exists_and_not_null search_id] } {
# We get all the default values for that are mapped to this search_id
Index: openacs-4/packages/contacts/lib/groups.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.adp,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/contacts/lib/groups.adp 28 Apr 2006 10:14:45 -0000 1.17
+++ openacs-4/packages/contacts/lib/groups.adp 12 Aug 2018 12:22:48 -0000 1.18
@@ -1,32 +1,32 @@
-
+
#contacts.lt_You_cannot_add_this_c#
-
+
-
+
@groups.group;noquote@ - [@groups.creation_date@]
-
+
-- #contacts.Users#
+- #contacts.Users#
-
-
+
+
- #contacts.Users#
-
+
#contacts.Other_Options#
- #contacts.lt_Delete_this_contact#
Index: openacs-4/packages/contacts/lib/lists-include.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/lists-include.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/lists-include.adp 26 Jun 2006 06:36:51 -0000 1.1
+++ openacs-4/packages/contacts/lib/lists-include.adp 12 Aug 2018 12:22:48 -0000 1.2
@@ -1,12 +1,12 @@
-
+
#contacts.Lists#
Index: openacs-4/packages/contacts/lib/oo_mailing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/oo_mailing.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/contacts/lib/oo_mailing.tcl 9 May 2018 15:33:30 -0000 1.22
+++ openacs-4/packages/contacts/lib/oo_mailing.tcl 12 Aug 2018 12:22:48 -0000 1.23
@@ -63,7 +63,7 @@
{banner:text(hidden) {value ""}}
}
} else {
- set banner_options [concat [list ""] $banner_options]
+ set banner_options [linsert $banner_options 0 [list ""]]
append form_elements {
{banner:text(select),optional
{label "[_ contacts.Banner]"}
Index: openacs-4/packages/contacts/lib/sharing.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/sharing.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/sharing.adp 26 Jun 2006 06:36:51 -0000 1.1
+++ openacs-4/packages/contacts/lib/sharing.adp 12 Aug 2018 12:22:48 -0000 1.2
@@ -5,9 +5,9 @@
-#contacts.Sharing#: #contacts.Public##contacts.Owners_Only#
+#contacts.Sharing#: #contacts.Public##contacts.Owners_Only#
-
+
Index: openacs-4/packages/contacts/resources/forms/file-upload.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/resources/forms/file-upload.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/resources/forms/file-upload.adp 27 May 2005 00:18:58 -0000 1.1
+++ openacs-4/packages/contacts/resources/forms/file-upload.adp 12 Aug 2018 12:22:48 -0000 1.2
@@ -43,7 +43,7 @@
@elements.label;noquote@
-
+
*
Index: openacs-4/packages/contacts/resources/forms/inline.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/resources/forms/inline.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/contacts/resources/forms/inline.adp 18 Apr 2006 07:07:02 -0000 1.2
+++ openacs-4/packages/contacts/resources/forms/inline.adp 12 Aug 2018 12:22:48 -0000 1.3
@@ -31,7 +31,7 @@
@elements.label;noquote@
-
+
*
Index: openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl 5 Apr 2018 14:44:09 -0000 1.41
+++ openacs-4/packages/contacts/tcl/contact-search-condition-type-procs.tcl 12 Aug 2018 12:22:48 -0000 1.42
@@ -312,7 +312,7 @@
if { $operand != "set" && $operand != "not_set" } {
# there could be variable elements so we add them here
- set form_elements [concat $form_elements $var_elements]
+ lappend form_elements {*}$var_elements
}
}
return $form_elements
Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.121 -r1.122
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl 6 Jun 2018 23:02:01 -0000 1.121
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl 12 Aug 2018 12:22:48 -0000 1.122
@@ -150,7 +150,7 @@
return
}
- with_finally -code {
+ ad_try {
if {$contacts_package_ids eq ""} {
set contacts_package_ids [apm_package_ids_from_key -package_key "contacts" -mounted]
}
@@ -224,7 +224,7 @@
db_dml delete_deleted_users {}
}
- } -finally {
+ } finally {
nsv_incr contacts sweeper_p -1
}
Index: openacs-4/packages/contacts/www/contact.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact.adp,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/contacts/www/contact.adp 2 Jun 2006 09:18:31 -0000 1.43
+++ openacs-4/packages/contacts/www/contact.adp 12 Aug 2018 12:22:48 -0000 1.44
@@ -7,15 +7,15 @@
-
+
-
+
-
-
+
+
-
+
-
+
-
+
-
+
comment_add.comment
-
+
Index: openacs-4/packages/contacts/www/search.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/search.adp,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/contacts/www/search.adp 5 Apr 2006 22:16:09 -0000 1.13
+++ openacs-4/packages/contacts/www/search.adp 12 Aug 2018 12:22:49 -0000 1.14
@@ -2,7 +2,7 @@
-
+
Index: openacs-4/packages/contacts/www/settings.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/settings.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/www/settings.tcl 5 Apr 2007 11:37:48 -0000 1.6
+++ openacs-4/packages/contacts/www/settings.tcl 12 Aug 2018 12:22:49 -0000 1.7
@@ -23,7 +23,7 @@
default_p {
label ""
display_template {
-
+
Default Signature
}
Index: openacs-4/packages/contacts/www/admin/ext-search-options.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/ext-search-options.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/www/admin/ext-search-options.adp 20 Feb 2006 22:01:03 -0000 1.6
+++ openacs-4/packages/contacts/www/admin/ext-search-options.adp 12 Aug 2018 12:22:49 -0000 1.7
@@ -12,7 +12,7 @@
-
+
#contacts.Stored_extended#:
Index: openacs-4/packages/contacts/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/index.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/contacts/www/admin/index.tcl 28 Jun 2007 00:05:03 -0000 1.18
+++ openacs-4/packages/contacts/www/admin/index.tcl 12 Aug 2018 12:22:49 -0000 1.19
@@ -23,7 +23,7 @@
edit {
label {}
display_template {
-
+
}
}
group_name {
@@ -39,7 +39,7 @@
mapped {
label {Mapped}
display_template {
-
+
@@ -50,12 +50,12 @@
default {
label {Default}
display_template {
-
-
+
+
-
+
@@ -68,7 +68,7 @@
label {Notifications}
display_template {
-
+
@@ -80,8 +80,8 @@
user_change {
label {User Change}
display_template {
-
-
+
+
@@ -92,28 +92,28 @@
}
person_form {
display_template {
-
+
[_ contacts.Person_Form]
}
}
org_form {
display_template {
-
+
[_ contacts.Organization_Form]
}
}
categories {
display_template {
-
+
[_ contacts.Manage_group_categories]
}
}
actions {
display_template {
-
+
[_ contacts.Permissions]
|