Index: openacs-4/packages/static-pages/tcl/static-pages-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/static-pages/tcl/static-pages-init.tcl,v diff -u -r1.2.4.3 -r1.2.4.4 --- openacs-4/packages/static-pages/tcl/static-pages-init.tcl 15 Dec 2002 23:49:55 -0000 1.2.4.3 +++ openacs-4/packages/static-pages/tcl/static-pages-init.tcl 16 Dec 2002 09:11:18 -0000 1.2.4.4 @@ -17,9 +17,16 @@ # means is curretnly running, and the string will give the time the # proc started running: -ns_share -init { array set sp_sync_cr_with_filesystem_times {} } sp_sync_cr_with_filesystem_times +set nsv {sp_sync_cr_fs_times} +if { ![nsv_array exists $nsv] } { + nsv_array set $nsv [list] + #nsv_set $nsv foo bar ; nsv_unset $nsv foo +} -ns_share -init { set sp_sync_cr_with_filesystem_mutex [ns_mutex create] } sp_sync_cr_with_filesystem_mutex +set key {sp_sync_cr_fs_mutex} +if { ![nsv_exists . $key] } { + nsv_set . $key [ns_mutex create] +} # Register the handler for each static page file extension.