Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v diff -u -N -r1.11.2.1 -r1.11.2.2 --- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl 10 Sep 2015 08:22:06 -0000 1.11.2.1 +++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl 24 Sep 2015 07:10:24 -0000 1.11.2.2 @@ -175,8 +175,7 @@ @see use simple "ns_log ...." instead } { upvar $ref value - ns_log notice "$ref: $value -" + ns_log notice "$ref: $value" } @@ -606,13 +605,13 @@ foreach dir $dir_list { - #debug - #template::util::display_value dir + #debug + #template::util::display_value dir - # using this lame hack since most aD servers are running an earlier version of Tcl than 8.3, - # which supports the -directory switch that this hack emulates - append file_list [glob -nocomplain $dir/*.tcl $dir/*/*.tcl $dir/*/*/*.tcl $dir/*/*/*/*.tcl ] - append file_list " " + # using this lame hack since most aD servers are running an earlier version of Tcl than 8.3, + # which supports the -directory switch that this hack emulates + append file_list [glob -nocomplain $dir/*.tcl $dir/*/*.tcl $dir/*/*/*.tcl $dir/*/*/*/*.tcl ] + append file_list " " } #debugging Index: openacs-4/packages/acs-templating/www/doc/gen/generate-docs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/gen/generate-docs.tcl,v diff -u -N -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/acs-templating/www/doc/gen/generate-docs.tcl 10 Sep 2015 08:22:16 -0000 1.2.2.1 +++ openacs-4/packages/acs-templating/www/doc/gen/generate-docs.tcl 24 Sep 2015 07:10:25 -0000 1.2.2.2 @@ -47,21 +47,16 @@ set file_list [list] set doc_root $::acs::rootdir/packages/acs-templating/www/doc -#debugging: -template::util::display_value doc_root +#debugging +ns_log notice "acs-templating/doc/gen/generated-docs.tcl: doc_root $doc_root" -set namespace_template [template::util::read_file \ - $doc_root/gen/namespace-template.adp] - +set namespace_template [template::util::read_file $doc_root/gen/namespace-template.adp] set dir [ns_library private] # debugging -set svr_root $::acs::rootdir +set dir [list $::acs::rootdir/packages/cms/tcl $::acs::rootdir/packages/acs-templating/tcl] +ns_log notice "acs-templating/doc/gen/generated-docs.tcl: dir $dir" - -set dir [list $svr_root/packages/cms/tcl $svr_root/packages/acs-templating/tcl] -template::util::display_value dir - set parsed_list [doc::parse_tcl_library $dir] @@ -126,10 +121,9 @@ set namespace_code [template::adp_compile -string $namespace_template] #debug - template::util::display_value namespace_code + ns_log notice "acs-templating/doc/gen/generated-docs.tcl: namespace_code $namespace_code" set namespace_output [template::adp_eval namespace_code] - ns_log notice "\nwriting $namespace_page\n" template::util::write_to_file $namespace_page $namespace_output