Index: openacs-4/packages/acs-authentication/acs-authentication.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/acs-authentication.info,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-authentication/acs-authentication.info 10 Nov 2003 14:28:55 -0000 1.9
+++ openacs-4/packages/acs-authentication/acs-authentication.info 11 Nov 2003 10:34:47 -0000 1.10
@@ -7,23 +7,23 @@
t
t
-
+
Lars Pind
Authentication and related functionality.
- 2003-11-07
Collaboraid
Implements authentication-related security functions for OpenACS, including authentication, password maangement, account management, session management, etc.
-
-
-
+
+
+
-
+
+
Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 24 Oct 2003 16:44:19 -0000 1.19
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl 11 Nov 2003 10:34:47 -0000 1.20
@@ -347,9 +347,25 @@
-job_id $job_id \
-document $doc_result(document)]
- template::util::write_file \
- "[acs_root_dir]/batch-sync-acknolwedgement.xml" \
- $ack_doc
+ set ack_file_name [parameter::get_from_package_key \
+ -parameter AcknowledgementFileName \
+ -package_key acs-authentication \
+ -default {}]
+
+ if { ![empty_string_p $ack_file_name] } {
+ # Interpolate
+ set pairs [list \
+ acs_root_dir [acs_root_dir] \
+ ansi_date [clock format [clock seconds] -format %Y-%m-%d] \
+ authority $authority(short_name)]
+ foreach { var value } $pairs {
+ regsub -all "{$var}" $ack_file_name $value ack_file_name
+ }
+
+ template::util::write_file \
+ $ack_file_name \
+ $ack_doc
+ }
} {
global errorInfo
ns_log Error "Error processing sync document:\n$errorInfo"