gustafn
committed
on 02 Sep 21
improve spelling
openacs-4/.../openacs-default-theme/lib/plain-master.tcl (+6 -3)
1 1 ad_page_contract {
2 2   This is the highest level site specific master template.
3 3
4 4   Properties allowed
5 5   doc(title) HTML title
6 6   head code to be entered into head of document
7 7   body
8 8   focus HTML id of form element to focus
9 9   skip_link href of link to skip to. Should be of format #skip_link
10 10   main_content_p if true wrap in the main content divs (if false, provide your own
11 11     page structure, for instance two or three columns of content per page)
12 12
13 13   @author Lee Denison (lee@xarg.co.uk)
14 14   @author Don Baccus (dhogaza@pacifier.com)
15 15
16 16   $Id$
17 17 }
  18 ns_log Notice "Huh? here I am!"
18 19
19 20 if { ![info exists main_content_p] } {
20 21     set main_content_p 1
21 22 }
22 23
23 24 #
24 25 # Set some basic variables
25 26 #
26 27 set system_name [ad_system_name]
27 28 set subsite_name [lang::util::localize [subsite::get_element -element instance_name]]
28 29
29 30 if {[ad_conn url] eq "/"} {
30 31     set system_url ""
31 32 } else {
32 33     set system_url [ad_url]
33 34 }
34 35
35 36 if {[template::util::is_nil title]} {
36 37     # TODO: decide how best to set the lang attribute for the title
37 38     set title [ad_conn instance_name]
38 39 }
39 40
40 41 #
41 42 # Organize standard top level navigation, if any, for output by groups (rows of
42 43 # horizontal tabs by default)
43 44 #
44 45 if { [template::multirow exists navigation] } {
  46     if { ![info exists navigation_groups] } {
  47         set navigation_groups [list]
  48     }
45 49     for {set i 1} {$i <= [template::multirow size navigation]} {incr i} {
46 50         template::multirow get navigation $i
47           if {![info exists navigation_groups] ||
48                [lsearch -exact $navigation_groups $navigation(group)] < 0} {
  51         if { [lsearch -exact $navigation_groups $navigation(group)] < 0} {
49 52             lappend navigation_groups $navigation(group)
50 53         }
51 54     }
52 55 }
53 56
54 57 #
55 58 # User information and top level navigation links
56 59 #
57 60 set user_id [ad_conn user_id]
58 61 set untrusted_user_id [ad_conn untrusted_user_id]
59 62 set sw_admin_p 0
60 63
61 64 if { $untrusted_user_id == 0 } {
62 65     # The browser does NOT claim to represent a user that we know about
63 66     set login_url [ad_get_login_url -return]
64 67 } else {
65 68     # The browser claims to represent a user that we know about
66 69     set user_name [person::name -person_id $untrusted_user_id]
67 70     set pvt_home_url [ad_pvt_home]
68 71     set pvt_home_name [_ acs-subsite.Your_Account]