|
| |
11 |
11 |
} -validate { |
|
| |
12 |
12 |
} |
|
| |
13 |
13 |
if { [exists_and_not_null party_id] } { |
|
| |
14 |
|
set party_ids {} |
|
| |
|
14 |
set party_ids [list] |
|
| |
15 |
15 |
foreach party_id $party_id { |
|
| |
16 |
16 |
lappend party_ids $party_id |
|
| |
17 |
17 |
} |
|
|
| |
23 |
23 |
set user_id [ad_conn user_id] |
|
| |
24 |
24 |
set context [list $title] |
|
| |
25 |
25 |
set package_id [ad_conn package_id] |
|
| |
26 |
|
set recipients {} |
|
| |
|
26 |
set recipients [list] |
|
| |
27 |
27 |
foreach party_id $party_ids { |
|
| |
28 |
28 |
contact::require_visiblity -party_id $party_id |
|
| |
29 |
29 |
lappend recipients "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a>" |