css_generate_complete_css dbWhat it does:
assumes scope is set in the callers enironment. if scope=user it assumes user_id is set in callers environment and if scope=group it assumes that group_id is set in callers environment. it returns generate css string from the css_complete table matching the provided scopeDefined in: /web/philip/tcl/display-defs.tcl
Source code:
upvar scope scope
if { $scope=="group" } {
upvar group_id group_id
}
if { $scope=="user" } {
upvar user_id user_id
}
set selection [ns_db select $db "
select selector, property, value
from css_complete
where [ad_scope_sql]"]
set_variables_after_query
set counter 0
set last_selector ""
while { [ns_db getrow $db $selection] } {
set_variables_after_query
if { [string compare $selector $last_selector]!=0 } {
if { $counter > 0 } {
append css " \}\n"
}
append css "$selector \{ "
} else {
append css "; "
}
append css "$property: $value"
incr counter
set last_selector $selector
}
if { $counter > 0 } {
append css " \}"
} else {
# no css values supplied
set css ""
}
return $css