Index: openacs-4/tcl/zz-postload.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/tcl/zz-postload.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/tcl/zz-postload.tcl 13 Mar 2001 22:59:26 -0000 1.1 +++ openacs-4/tcl/zz-postload.tcl 20 Apr 2001 20:40:31 -0000 1.2 @@ -28,4 +28,20 @@ ns_log "Error" "Error executing initialization code block $init(name) in $init(script): $errorInfo" } } + +# OpenACS (ben) +# We need to load query files for the top-level stuff in www and tcl +set dirs {www tcl} +set oacs_root [acs_root_dir] + +foreach dir $dirs { + set files [glob -nocomplain "${oacs_root}/$dir/*.xql"] + + ns_log Notice "QD=Postload files to load: $files" + + foreach file $files { + db_qd_load_query_file $file + } +} + nsv_unset ad_after_server_initialization .