# addr-2.tcl

imode_basic_auth -uname ""  -pwd [ad_parameter "GroupPassword" imode]

ad_page_contract {

    Lookup a user name or email in address book   

    @param last_name
    @param first_name
    @param email
    @author hqm@arsdigita.com
    @cvs-id spam-add.tcl,v 3.5.2.4 2000/07/21 03:58:01 ron Exp
} {
    last_name
    first_name
    email
}

#set group_filter_clause " and lower(ug.group_name) = lower('employees') "
set group_filter_clause ""

set clauses [list]

if {![empty_string_p last_name]} {
    set pattern "$last_name%"
    lappend clauses " lower(last_name) like lower([ns_dbquotevalue $pattern]) "
}

if {![empty_string_p first_name]} {
    set pattern "$first_name%"
    lappend clauses " lower(first_names) like lower([ns_dbquotevalue $pattern]) "
}

if {![empty_string_p email]} {
    set pattern "$email%"
    lappend clauses " lower(email) like lower([ns_dbquotevalue $pattern]) "
}

set page_content ""

if {[llength $clauses] == 0} {
    append page_content "You must enter a search term"
} else {
    set query "select distinct users.user_id as uuid,
        users.last_name,
        users.first_names,
        users.email,
        uc.home_phone,
        uc.work_phone,
        uc.cell_phone,
        uc.pager,
        uc.fax
   from users, users_contact uc, user_groups ug, user_group_map ugm
  where users.user_id = ugm.user_id
        and ug.group_id = ugm.group_id
        $group_filter_clause
        and users.user_id = uc.user_id(+) and [join $clauses " AND "]
  order by last_name
      "
    set entries ""
    set i 1
    db_foreach matching_items $query {
        append entries "<br>$i. <a href=\"one-user.tcl?[export_url_vars uuid]\" accesskey=\"$i\">$last_name, $first_names</a> <a href=\"mailto:$email\">$email</a>"
        incr i
        # limit results to size of phone page memory
        if {[string length $entries] > [ad_parameter MaxPageSize imode 4500]} {
            break
        }
    }

    if {[empty_string_p $entries]} {
        append page_content "No matches"
    } else {
        append page_content $entries
    }
}


ns_return 200 "text/html; charset=shift_jis" "
<title>iMode Address Book</title>
$page_content
"