Index: openacs-4/packages/user-tracking/user-tracking.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/user-tracking.info,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/user-tracking/user-tracking.info	15 Apr 2005 08:12:01 -0000	1.3
+++ openacs-4/packages/user-tracking/user-tracking.info	28 Jun 2005 09:27:29 -0000	1.3.2.1
@@ -8,23 +8,23 @@
     <singleton-p>f</singleton-p>
     <auto-mount>user-tracking</auto-mount>
 
-    <version name="0.1d2" url="http://openacs.org/repository/download/apm/user-tracking-0.1d2.apm">
+    <version name="0.2b1" url="http://openacs.org/repository/download/apm/user-tracking-0.2b1.apm">
         <owner url="mailto:doa@tid.es">David Ortega</owner>
         <owner url="mailto:sergiog@tid.es">Sergio González</owner>
         <owner url="mailto: pabloa@tid.es">Pablo Arozarena</owner>
         <summary>Package for user tracking </summary>
-        <release-date>2005-04-12</release-date>
+        <release-date>2005-06-27</release-date>
         <vendor url="http://e-lane.org/">E-lane</vendor>
         <description format="text/html">The purpose behind this development is to ensure we track and retrieve knowledge about how end users are making use of the system. The main objective of this package will be to track user behaviour and activities, so that Professors and administrators can use this to understand how the system is used and make improvements in the learning process.</description>
 
-        <provides url="user-tracking" version="0.1d2"/>
+        <provides url="user-tracking" version="0.2b1"/>
 
         <callbacks>
             <callback type="after-install"  proc="user-tracking::apm_callbacks::package_install"/>
        	    <callback type="after-upgrade"  proc="user-tracking::apm_callbacks::my_upgrade_callback"/> 
 	</callbacks>
         <parameters>
-        <!-- No version parameters -->
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="PerlPath"  default="/usr/bin/perl" description="Absolute path from computer root to perl executable"/>
         </parameters>
 
     </version>
Index: openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl	14 Apr 2005 15:44:27 -0000	1.2
+++ openacs-4/packages/user-tracking/tcl/user-tracking-procs.tcl	28 Jun 2005 09:27:30 -0000	1.2.2.1
@@ -85,14 +85,15 @@
        		4 { set site_p 1}
        	}
         }
-   	
+	set binPerl [parameter::get -parameter "PerlPath"]
+                   	
         if {[exists_and_not_null all_users_p]} {
         	
         	ns_log notice "USER-TRACKING-->every user"
         	
         	db_foreach user "select user_id  from cc_users" {
          		ns_log notice "USER: $user_id"
-			set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlyusers=$user_id"]        	     		
+			set execAnalyzer [list "$binPerl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlyusers=$user_id"]        	     		
    			catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4]} aux
    		}
         }
@@ -102,7 +103,7 @@
         	
         	db_foreach community "select community_id from dotlrn_communities" {
         	   ns_log notice "Community: $community_id"
-		   set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlycoms=$community_id"]        		
+		   set execAnalyzer [list "$binPerl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlycoms=$community_id"]        		
    		   catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4]} aux
         	}
         }
@@ -112,15 +113,15 @@
         	db_foreach community "select community_id from dotlrn_communities" {
         	     	db_foreach user "select user_id  from cc_users" {
 	       	     		ns_log notice "Community: $community_id - User: $user_id"
-				set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlycoms=$community_id" "-onlyusers=$user_id"]        	     		
+				set execAnalyzer [list "$binPerl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update" "-onlycoms=$community_id" "-onlyusers=$user_id"]        	     		
                    catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 4] [lindex $execAnalyzer 5]} aux
    		}
            }
    
         }
         if {[exists_and_not_null site_p]} {
            ns_log notice "USER-TRACKING-->site"
-           set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update"]        	     		
+           set execAnalyzer [list "$binPerl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=site" "-update"]        	     		
            catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 2]} aux
    
         }
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 -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
Index: openacs-4/packages/user-tracking/www/loading2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/loading2.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/user-tracking/www/loading2.tcl	28 Jun 2005 08:03:12 -0000	1.1.2.1
+++ openacs-4/packages/user-tracking/www/loading2.tcl	28 Jun 2005 09:27:30 -0000	1.1.2.2
@@ -86,10 +86,11 @@
 
 set aux ""
 if { [exists_and_not_null logresolvemerge] } {
-set execAnalyzer [list "perl" "[user-tracking::get_user_tracking_dir]/www/awstats/cgi-bin/awstats_dotlrn.pl" "-config=$config" "-update" "-onlycoms=$onlylines" "-onlyusers=$onlyuser" "$logresolvemerge" "-month=$month" "-year=$year"]
-ns_log notice "$execAnalyzer"
-catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 6] [lindex $execAnalyzer 4] [lindex $execAnalyzer 5] [lindex $execAnalyzer 7] [lindex $execAnalyzer 8]} aux
-ns_log notice $aux
+	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" "$logresolvemerge" "-month=$month" "-year=$year"]
+	ns_log notice "$execAnalyzer"
+	catch {exec [lindex $execAnalyzer 0] [lindex $execAnalyzer 1] [lindex $execAnalyzer 2] [lindex $execAnalyzer 3] [lindex $execAnalyzer 6] [lindex $execAnalyzer 4] [lindex $execAnalyzer 5] [lindex $execAnalyzer 7] [lindex $execAnalyzer 8]} aux
+	ns_log notice $aux
 }
 
 if {[exists_and_not_null url]} {