Index: openacs-4/packages/application-track/tcl/application-track-callback-definition-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/application-track/tcl/application-track-callback-definition-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/application-track/tcl/application-track-callback-definition-procs.tcl 9 Nov 2005 16:21:08 -0000 1.2 +++ openacs-4/packages/application-track/tcl/application-track-callback-definition-procs.tcl 9 Nov 2005 16:55:26 -0000 1.3 @@ -7,16 +7,16 @@ } -namespace eval application-track { +namespace eval application-track {} - ad_proc -callback getApplicationName { + ad_proc -callback application-track::getApplicationName { - } { Obtains application names } - - ad_proc -callback getGeneralInfo { + ad_proc -callback application-track::getGeneralInfo { -comm_id:required } { Obtains application independient info @@ -25,15 +25,13 @@ } - -ad_proc -callback getSpecificInfo { +ad_proc -callback application-track::getSpecificInfo { -comm_id:required -query_name -elements_name } { Obtains application dependient info Returns a list with particular data about each application in each community. For instace, in forums, it will return a list with: forum_name, #threads, 1st_thead_date, last_thread_date } - - -} Index: openacs-4/packages/application-track/www/general.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/application-track/www/general.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/application-track/www/general.tcl 8 Nov 2005 15:42:52 -0000 1.1 +++ openacs-4/packages/application-track/www/general.tcl 9 Nov 2005 16:55:27 -0000 1.2 @@ -85,7 +85,7 @@ template::multirow set CommList [template::multirow size CommList] "url2" "specific?class_instance_id=$class_id$link" foreach app $applicationsList { - template::multirow set CommList [template::multirow size CommList] "$app" [lindex [callback -impl "$app" GetGeneralInfo -comm_id $class_id] 0] + template::multirow set CommList [template::multirow size CommList] "$app" [lindex [callback -impl "$app" application-track::getGeneralInfo -comm_id $class_id] 0] template::multirow set CommList [template::multirow size CommList] "${app}_url" "specific?class_instance_id=$class_id&Name=$app" } Index: openacs-4/packages/application-track/www/specific.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/application-track/www/specific.adp,v diff -u -r1.1 -r1.2 --- openacs-4/packages/application-track/www/specific.adp 8 Nov 2005 15:42:52 -0000 1.1 +++ openacs-4/packages/application-track/www/specific.adp 9 Nov 2005 16:55:27 -0000 1.2 @@ -8,13 +8,13 @@
<% foreach app $applicationsList { - set nelements [callback -impl "$app" GetGeneralInfo -comm_id $class_instance_id] + set nelements [callback -impl "$app" application-track::getGeneralInfo -comm_id $class_instance_id] set nelements_p 0 set show_p 1 if {$nelements != 0 } { set nelements_p 1 - set resultado [callback -impl $app GetSpecificInfo -comm_id $class_instance_id -query_name "query" -elements_name "elements" ] + set resultado [callback -impl $app application-track::getSpecificInfo -comm_id $class_instance_id -query_name "query" -elements_name "elements" ] if {[exists_and_not_null query]} { template::list::create \ -name $app \