Skip to content

I
intranet-core
Commit f9da542d authored by Project Open's avatar Project Open
Browse files
Options

- Added eval to extra_from and extra_where

parent a234b3dc
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 2 deletions
www/projects/index.tcl
View file @ f9da542d
...@@ -237,8 +237,8 @@ db_foreach column_list_sql $column_sql { ...@@ -237,8 +237,8 @@ db_foreach column_list_sql $column_sql {
lappend column_vars "$column_render_tcl" lappend column_vars "$column_render_tcl"
lappend column_headers_admin $admin_html lappend column_headers_admin $admin_html
if {"" != $extra_select} { lappend extra_selects [eval "set a \"$extra_select\""] } if {"" != $extra_select} { lappend extra_selects [eval "set a \"$extra_select\""] }
if {"" != $extra_from} { lappend extra_froms $extra_from } if {"" != $extra_from} { lappend extra_froms [eval "set a \"$extra_from\""] }
if {"" != $extra_where} { lappend extra_wheres $extra_where } if {"" != $extra_where} { lappend extra_wheres [eval "set a \"$extra_where\""] }
if {"" != $order_by_clause && if {"" != $order_by_clause &&
$order_by==$column_name} { $order_by==$column_name} {
set view_order_by_clause $order_by_clause set view_order_by_clause $order_by_clause
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment