| |
1 |
1 |
ad_page_contract { |
| |
2 |
2 |
List and manage contacts. |
| |
3 |
3 |
|
| |
4 |
4 |
@author Matthew Geddert openacs@geddert.com |
| |
5 |
5 |
@creation-date 2004-07-28 |
| |
6 |
6 |
@cvs-id $Id$ |
| |
7 |
7 |
} { |
| |
8 |
|
{orderby:optional ""} |
| |
|
8 |
{tasks_orderby:optional ""} |
| |
9 |
9 |
{format "normal"} |
| |
10 |
10 |
{search_id:integer ""} |
| |
11 |
11 |
{query ""} |
| |
12 |
12 |
{page:optional "1"} |
| |
13 |
13 |
{page_size:integer "25"} |
| |
14 |
14 |
{tasks_interval:integer "7"} |
| |
|
15 |
{page_flush_p "0"} |
| |
15 |
16 |
} |
| |
16 |
17 |
|
| |
17 |
18 |
set title "[_ tasks.Tasks]" |
| |
18 |
19 |
set context {} |
| |
19 |
20 |
set user_id [ad_conn user_id] |
| |
20 |
21 |
set package_id [ad_conn package_id] |
| |
21 |
22 |
set url [ad_conn url] |
| |
22 |
23 |
|
| |
23 |
24 |
set return_url [export_vars -base $url -url {orderby format search_id query page page_size tasks_interval {page_flush_p t}}] |
| |
24 |
25 |
|
| |
25 |
26 |
|
| |
26 |
27 |
set package_id [site_node::get_element -url "/contacts" -element object_id] |
| |
27 |
28 |
if { [exists_and_not_null search_id] } { |
| |
28 |
29 |
contact::search::log -search_id $search_id |
| |
29 |
30 |
} |
| |
30 |
31 |
set search_options [concat [list [list [_ contacts.All_Contacts] ""]] [db_list_of_lists dbqd.contacts.www.index.public_searches {}]] |
| |
31 |
32 |
|
| |
32 |
33 |
set searchcount 1 |
| |
33 |
34 |
db_foreach dbqd.contacts.www.index.my_recent_searches {} { |
| |
34 |
35 |
lappend search_options [list "${searchcount}) ${recent_title}" ${recent_search_id}] |
| |
| |
42 |
43 |
{tasks_interval:integer(text),optional {label " <span style=\"font-size: smaller;\">[_ tasks.View_next]</span>"} {after_html "<span style=\"font-size: smaller;\">days"} {html {size 2 maxlength 3 onChange "javascript:acs_FormRefresh('search')"}}} |
| |
43 |
44 |
} |
| |
44 |
45 |
|
| |
45 |
46 |
if { [parameter::get -boolean -parameter "ForceSearchBeforeAdd" -default "0"] } { |
| |
46 |
47 |
if { [exists_and_not_null query] && $search_id == "" } { |
| |
47 |
48 |
append form_elements { |
| |
48 |
49 |
{add_person:text(submit) {label {[_ contacts.Add_Person]}} {value "1"}} |
| |
49 |
50 |
{add_organization:text(submit) {label {[_ contacts.Add_Organization]}} {value "1"}} |
| |
50 |
51 |
} |
| |
51 |
52 |
} |
| |
52 |
53 |
} |
| |
53 |
54 |
|
| |
54 |
55 |
ad_form -name "search" -method "GET" -export {orderby page_size format} -form $form_elements \ |
| |
55 |
56 |
-on_request { |
| |
56 |
57 |
} -edit_request { |
| |
57 |
58 |
} -on_refresh { |
| |
58 |
59 |
} -on_submit { |
| |
59 |
60 |
} -after_submit { |
| |
60 |
61 |
} |
| |
61 |
62 |
|
| |
62 |
|
set orderby "" |
