ug_admin_header

one of the documented procedures in this installation of the ACS

Usage:

ug_admin_header page_title db group_id

What it does:

Header for group admin pages. Neeeds group id in order to get the groups cascaded style sheet information.

Defined in: /web/philip/tcl/user-group-defs.tcl

Source code:



    set selection [ns_db 0or1row $db "
    select 1 from content_sections where scope='group' and group_id=$group_id and module_key='display'"]
    set css_enabled_p [ad_decode $selection "" 0 1]

    set scope group
    
    if { $css_enabled_p } {
	return "
	<html>
	<head>
	<title>$page_title</title>
	<LINK REL=stylesheet TYPE=\"text/css\" HREF=\"/display/get-simple-css.tcl?[export_url_vars scope group_id]\">
	</head>
	<body>
	"
    } else {
	return [ad_header $page_title]
    }

philg@mit.edu