Index: openacs-4/packages/user-tracking/www/loading.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/loading.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/user-tracking/www/loading.tcl	28 Jun 2005 08:03:12 -0000	1.1.2.1
+++ openacs-4/packages/user-tracking/www/loading.tcl	28 Jun 2005 09:27:30 -0000	1.1.2.2
@@ -100,7 +100,8 @@
 
 ns_write "<h2>$message</h2><blockquote>"
 
-set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=$config" "-update" "-onlycoms=$onlylines" "-onlyusers=$onlyuser" "-month=$month" $logresolvemerge "-year=$year"]
+set binPerl [parameter::get -parameter "PerlPath"]
+set execAnalyzer [list "$binPerl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=$config" "-update" "-onlycoms=$onlylines" "-onlyusers=$onlyuser" "-month=$month" $logresolvemerge "-year=$year"]
 ns_log notice "$execAnalyzer"
 catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 7] [lindex $execAnalyzer 8] [lindex $execAnalyzer 4] [lindex $execAnalyzer 5] [lindex $execAnalyzer 6]} aux
 ns_log notice $aux