| |
2 |
2 |
Displays information about a content page. |
| |
3 |
3 |
|
| |
4 |
4 |
@param version_id the id of the package version the file belongs to |
| |
5 |
5 |
@param path the path and filename of the page to document, relative to $::acs::rootdir |
| |
6 |
6 |
|
| |
7 |
7 |
@author Jon Salz (jsalz@mit.edu) |
| |
8 |
8 |
@author Lars Pind (lars@pinds.com) |
| |
9 |
9 |
@creation-date 1 July 2000 |
| |
10 |
10 |
|
| |
11 |
11 |
@cvs-id $Id$ |
| |
12 |
12 |
} { |
| |
13 |
13 |
version_id:naturalnum,optional |
| |
14 |
14 |
source_p:boolean,optional,trim,notnull |
| |
15 |
15 |
path:trim,notnull |
| |
16 |
16 |
} -properties { |
| |
17 |
17 |
title:onevalue |
| |
18 |
18 |
context:onevalue |
| |
19 |
19 |
script_documentation:onevalue |
| |
20 |
20 |
} |
| |
21 |
21 |
|
| |
22 |
|
set context [list] |
| |
|
22 |
set context {} |
| |
23 |
23 |
set url_vars [export_vars {path version_id}] |
| |
24 |
24 |
set return_url [export_vars -base [ad_conn url] {path version_id}] |
| |
25 |
25 |
set default_source_p [ad_get_client_property -default 0 acs-api-browser api_doc_source_p] |
| |
26 |
26 |
|
| |
27 |
27 |
if { ![info exists source_p] } { |
| |
28 |
28 |
set source_p $default_source_p |
| |
29 |
29 |
if {$source_p eq ""} {set source_p 0} |
| |
30 |
30 |
} |
| |
31 |
31 |
|
| |
32 |
32 |
if { ![info exists version_id] && |
| |
33 |
33 |
[regexp {^packages/([^ /]+)/} $path . package_key] } { |
| |
34 |
34 |
db_0or1row version_id_from_package_key { |
| |
35 |
35 |
select version_id |
| |
36 |
36 |
from apm_enabled_package_versions |
| |
37 |
37 |
where package_key = :package_key |
| |
38 |
38 |
} |
| |
39 |
39 |
} |
| |
40 |
40 |
|
| |
41 |
41 |
if { [info exists version_id] } { |
| |
42 |
42 |
db_0or1row package_info_from_version_id { |
