|
-
+ |
Index: openacs-4/packages/logger/lib/entries.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/lib/entries.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/logger/lib/entries.tcl 16 Sep 2005 12:14:08 -0000 1.16
+++ openacs-4/packages/logger/lib/entries.tcl 14 Oct 2005 22:41:16 -0000 1.17
@@ -357,10 +357,10 @@
set groupby_values {
- { "[_ logger.Day]" { { groupby time_stamp } { orderby time_stamp,desc } } }
- { "[_ logger.Week]" { { groupby time_stamp_week } { orderby time_stamp,desc } } }
- { "[_ logger.Project]" { { groupby project_name } { orderby project_id,asc } } }
- { "[_ logger.User]" { { groupby user_id } { orderby user_id,asc } } }
+ { "#logger.Day#" { { groupby time_stamp } { orderby time_stamp,desc } } }
+ { "#logger.Week#" { { groupby time_stamp_week } { orderby time_stamp,desc } } }
+ { "#logger.Project#" { { groupby project_name } { orderby project_id,asc } } }
+ { "#logger.User#" { { groupby user_id } { orderby user_id,asc } } }
}
set normal_row {
@@ -403,9 +403,10 @@
[list label \$tree_name_${id} multirow_cols c_${id}_category_id]
# Groupby
- lappend groupby_values [list [category_tree::get_name $id] \
+ set groupby_values [list [category_tree::get_name $id] \
[list [list groupby c_${id}_category_id] \
[list orderby c_${id}_category_id]]]
+
}
Index: openacs-4/packages/logger/www/log.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/log.adp,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/logger/www/log.adp 5 Oct 2005 07:43:26 -0000 1.17
+++ openacs-4/packages/logger/www/log.adp 14 Oct 2005 22:41:16 -0000 1.18
@@ -21,7 +21,7 @@
@@ -41,9 +41,7 @@
-
-
-
+
#logger.Recent_Entries#
Index: openacs-4/packages/logger/www/log.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/www/log.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/logger/www/log.tcl 4 Oct 2005 22:53:18 -0000 1.33
+++ openacs-4/packages/logger/www/log.tcl 14 Oct 2005 22:41:16 -0000 1.34
@@ -79,7 +79,8 @@
# We need project and variable names
logger::project::get -project_id $project_id -array project_array
logger::variable::get -variable_id $variable_id -array variable_array
-set unit $variable_array(unit)
+set unit "[_ [regsub -all {#} $variable_array(unit) ""]]"
+
# get the project_manager_url if this is related to project manager
set project_manager_url [logger::util::project_manager_url]
|