| |
1 |
1 |
ad_page_contract { |
| |
2 |
2 |
@author Luke Pond (dlpond@museatech.net) |
| |
3 |
3 |
@creation-date 2001-06-04 |
| |
4 |
4 |
|
| |
5 |
5 |
Displays all options for editing a page |
| |
6 |
6 |
|
| |
7 |
7 |
} { |
| |
8 |
8 |
name |
| |
9 |
9 |
} |
| |
10 |
10 |
|
| |
11 |
11 |
etp::check_write_access |
| |
12 |
12 |
|
| |
13 |
13 |
set package_id [ad_conn package_id] |
| |
14 |
14 |
set user_id [ad_conn user_id] |
| |
15 |
15 |
|
| |
16 |
16 |
set latest_revision_id [etp::get_latest_revision_id $package_id $name] |
| |
17 |
17 |
set live_revision_id [etp::get_live_revision_id $package_id $name] |
| |
|
18 |
set item_id [etp::get_item_id $package_id $name] |
| |
18 |
19 |
|
| |
19 |
20 |
if { $latest_revision_id > $live_revision_id } { |
| |
20 |
21 |
db_transaction { |
| |
21 |
22 |
db_dml publish_latest_revision "" |
| |
22 |
23 |
db_dml set_publish_date "" |
| |
23 |
24 |
db_dml set_audit_info "" |
| |
24 |
25 |
} |
| |
25 |
26 |
# Invalidate the cache used by etp::get_page_attributes |
| |
26 |
27 |
set key "etp::get_pa $package_id $name [etp::get_content_type $name]" |
| |
27 |
28 |
ns_log Notice "etp-publish: invalidating cache for $key" |
| |
28 |
29 |
util_memoize_flush $key |
| |
29 |
30 |
} |
| |
30 |
31 |
|
| |
31 |
32 |
ad_returnredirect "etp?[export_url_vars name]" |
| |
32 |
33 |
|
