| |
7 |
7 |
@cvs-id $Id$ |
| |
8 |
8 |
|
| |
9 |
9 |
} { |
| |
10 |
10 |
message_id:integer,optional,verify |
| |
11 |
11 |
forum_id:integer,notnull |
| |
12 |
12 |
{parent_id:integer,verify ""} |
| |
13 |
13 |
{subject:verify ""} |
| |
14 |
14 |
{message_body:verify ""} |
| |
15 |
15 |
{message_body.format:verify ""} |
| |
16 |
16 |
{confirm_p:verify ""} |
| |
17 |
17 |
{subject.spellcheck:verify ""} |
| |
18 |
18 |
{content.spellcheck:verify ""} |
| |
19 |
19 |
{anonymous_p:boolean,verify ""} |
| |
20 |
20 |
{attach_p:boolean,verify ""} |
| |
21 |
21 |
{attachments:multiple,verify ""} |
| |
22 |
22 |
{attachment_cleanup_list:tmpfile,verify ""} |
| |
23 |
23 |
} |
| |
24 |
24 |
# |
| |
25 |
25 |
# 'Simple' or 'Complex' (legacy) attachment style |
| |
26 |
26 |
# |
| |
27 |
|
# - Simple (default): just allow to attach new files to a message using the file |
| |
|
27 |
# - Simple (default): just allow one to attach new files to a message using the file |
| |
28 |
28 |
# widget during post, and using the attachments package API to 'attach' them |
| |
29 |
29 |
# to the message. |
| |
30 |
30 |
# |
| |
31 |
31 |
# - Complex (legacy): attach URLs, new or already existing files, browse |
| |
32 |
32 |
# through folders and choose where to upload the files in the file storage, |
| |
33 |
33 |
# using the attachments package 'attach' pages. |
| |
34 |
34 |
# |
| |
35 |
35 |
set complex_attachments_p false |
| |
36 |
36 |
set attachmentStyle [parameter::get -parameter "AttachmentStyle" -default "simple"] |
| |
37 |
37 |
if {$attachmentStyle eq "complex"} { |
| |
38 |
38 |
set complex_attachments_p true |
| |
39 |
39 |
} |
| |
40 |
40 |
|
| |
41 |
41 |
set peeraddr [ad_conn peeraddr] |
| |
42 |
42 |
set user_id [ad_conn user_id] |
| |
43 |
43 |
set package_id [ad_conn package_id] |
| |
44 |
44 |
|
| |
45 |
45 |
set screen_name [acs_user::get_user_info -user_id $user_id -element screen_name] |
| |
46 |
46 |
set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0] |
| |
47 |
47 |
set pvt_home [ad_pvt_home] |
