| |
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] |