Index: openacs-4/packages/user-tracking/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/tcl/apm-callback-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/user-tracking/tcl/apm-callback-procs.tcl 1 Mar 2005 17:35:37 -0000 1.1 +++ openacs-4/packages/user-tracking/tcl/apm-callback-procs.tcl 2 Mar 2005 16:38:07 -0000 1.2 @@ -34,14 +34,12 @@ #Busco ficheros de configuraci�n set ut_dir [acs_package_root_dir "user-tracking"] - append config_dir $ut_dir "/config" - set execls [list "ls" $config_dir] - set files [exec [lindex $execls 0] [lindex $execls 1]] - + append config_dir $ut_dir "/config" + set files [exec "find" $config_dir "-maxdepth" "1" "-type" "f"] #Escribo los par�metros al final de cada fichero for {set x 0} {$x<[llength $files]} {incr x} { - set file_name "${config_dir}/[lindex $files $x]" + set file_name [lindex $files $x] if { [file exists $file_name] == 1} {