get_style_sheet file_name_stubWhat it does:
examines the http user_agent header, and depending on whether the user's browser is IE, netscape or other, appends -ie.css, -ns.css or .css to the file name sub supplied by the callerDefined in: /web/philip/tcl/style-sheets.tcl
Source code:
set user_agent [ns_set get [ns_conn headers] User-Agent] # IE browsers have MSIE and Mozilla in their user-agent header set internet_explorer_p [regexp -nocase "msie" $user_agent match] # Netscape browser just have Mozilla in their user-agent header if {$internet_explorer_p == 0} { if { [regexp -nocase "mozilla" $user_agent match] } { append file_name_stub "-ns.css" } else { append file_name_stub ".css" } } else { append file_name_stub "-ie.css" } return $file_name_stub