| |
1 |
1 |
# /packages/photo-album/www/photo.tcl |
| |
2 |
2 |
|
| |
3 |
3 |
ad_page_contract { |
| |
4 |
4 |
|
| |
5 |
5 |
Photo display page and allows user to move a photo from one album to another album in the same folder |
| |
6 |
6 |
|
| |
7 |
7 |
@author Tom Baginski (bags@arsdigita.com) |
| |
8 |
8 |
@creation-date 12/10/2000 |
| |
9 |
9 |
@cvs-id $Id$ |
| |
10 |
10 |
} { |
| |
11 |
11 |
{latest_revision 0} |
| |
12 |
12 |
{photo_id:integer 0} |
| |
13 |
13 |
{collection_id:integer,optional {}} |
| |
14 |
|
{show_html_p 0"} |
| |
|
14 |
{show_html_p 0} |
| |
15 |
15 |
} -properties { |
| |
16 |
16 |
context:onevalue |
| |
17 |
17 |
title:onevalue |
| |
18 |
18 |
description:onevalue |
| |
19 |
19 |
story:onevalue |
| |
20 |
20 |
caption:onevalue |
| |
21 |
21 |
path:onevalue |
| |
22 |
22 |
height:onevalue |
| |
23 |
23 |
width:onevalue |
| |
24 |
24 |
photo_nav_html:onevalue |
| |
25 |
25 |
admin_p:onevalue |
| |
26 |
26 |
write_p:onevalue |
| |
27 |
27 |
album_id:onevalue |
| |
28 |
28 |
page_num:onevalue |
| |
29 |
29 |
show_base_link:onevalue |
| |
30 |
30 |
clipboards:multirow |
| |
31 |
31 |
} -validate { |
| |
32 |
32 |
valid_photo -requires {photo_id:integer} { |
| |
33 |
33 |
if { [string equal $photo_id 0] && ![string equal $latest_revision 0] } { |
| |
34 |
34 |
set photo_id $latest_revision |
