Index: openacs-4/tcl/0-acs-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/tcl/0-acs-init.tcl,v diff -u -r1.7 -r1.7.2.1 --- openacs-4/tcl/0-acs-init.tcl 27 Oct 2014 16:42:09 -0000 1.7 +++ openacs-4/tcl/0-acs-init.tcl 17 Aug 2015 16:43:55 -0000 1.7.2.1 @@ -7,11 +7,15 @@ # # $Id$ -# handling NaviServer deprecated ns_info subcommands. namespace eval acs { + # + # Handling NaviServer deprecated ns_info subcommands. + # set ::acs::pageroot [expr {[catch {ns_server pagedir}] ? [ns_info pageroot] : [ns_server pagedir]}] - set ::acs::tcllib [expr {[catch {ns_server tcllib}] ? [ns_info tcllib] : [ns_server tcllib]}] - set ::acs::rootdir [file dirname [string trimright $::acs::tcllib "/"]] + set ::acs::tcllib [expr {[catch {ns_server tcllib}] ? [ns_info tcllib] : [ns_server tcllib]}] + set ::acs::rootdir [file dirname [string trimright $::acs::tcllib "/"]] + # + set ::acs::useNsfProc [expr {[info commands ::nsf::proc] ne ""}] } # Determine the OpenACS root directory, which is the directory right above the