OpenACS

arjun
committed
MAIN:arjun:20020710030827
on 10 Jul 02
added attachments stuff
openacs-4/.../auth-ldap/lib/search.tcl (+121)
  1 # creation-date 2007-01-21
  2 # author Dave Bauer (dave@solutiongrove.com)
  3 # includable search form
  4 # results should be appended to multirow called users
  5 # ADP level
  6 # should get authority_id, return_url passed in.
  7
  8 ad_form -name user-search -export {authority_id object_id} -html {id "user-search"} -has_submit 1 -form {
  9     {search_text:text(text),optional
  10         {label "Search"}
  11     }
  12     {search_btn:text(button) {label ""} {value "Search"} {html {onclick {document.getElementById('searchform').style.display='';document.getElementById('user-search').submit()}}}}
  13 }
  14 if {![info exists orderby]} {
  15     set orderby ""
  16 }
  17 set auth_search_impl_id [auth::authority::get_element -authority_id $authority_id -element "search_impl_id"]
  18
  19 set auth_search_parameters [auth::driver::get_parameter_values -authority_id $authority_id -impl_id $auth_search_impl_id]
  20
  21 array set auth_search_parameters_arr $auth_search_parameters
  22 set search_attribs [list]
  23 # foreach attribute_mapping [split $auth_search_parameters_arr(InfoAttributeMap) ";"] {
  24 #     set attr [lindex [split $attribute_mapping "="] 1]
  25 #     set pretty_name [lindex [split $attribute_mapping "="] 0]
  26 #     lappend search_attribs $attr
  27 #     ad_form -extend -name user-search -form \
  28 #       [list [list $attr:text,optional [list label $pretty_name]]]
  29 #     }
  30
  31
  32 ad_form -extend -name user-search -on_request {
  33 #    element set_value user-search search_text $search_text
  34 } -on_submit {
  35
  36 } -validate {
  37     {search_text
  38         {[string length $search_text] >= 3 || [string length $search_text] <3 || [string length $department] >= 3}
  39         "\"search_text\" must be a string containing three or more characters"
  40     }
  41 }
  42
  43 set search_terms [list]
  44 foreach attr [concat search_text $search_attribs] {
  45     if {[info exists $attr] && [set $attr] ne ""} {
  46         lappend search_terms $attr [set $attr]
  47     }
  48 }
  49 if {[llength $search_terms]} {
  50     set matches [auth::ldap::search::Search $search_terms $auth_search_parameters]
  51    
  52      set user_info_impl_id [auth::authority::get_element -authority_id $authority_id -element "user_info_impl_id"]
  53      set user_info_parameters [auth::driver::get_parameter_values -authority_id $authority_id -impl_id $user_info_impl_id]
  54
  55     # matches will contain a list of either usernames or user_ids
  56     foreach user $matches {
  57         # user info is an array - info_status, user_info, info_message
  58         set user_info_raw [auth::ldap::user_info::GetUserInfo $user $user_info_parameters]
  59 #       ns_log notice "user info is $user_info_raw"
  60         # some objects (like resources in LDAP for example), may not return any information so we check first
  61         if { [lindex $user_info_raw 3] ne "" } {
  62             array set user_info [lindex $user_info_raw 3]
  63         } else {
  64             array set user_info [list first_names "" last_name "" email ""]
  65         }
  66
  67         # unpack user_info
  68         set extra_attributes ""
  69         foreach name [array names user_info] {
  70             if {[lsearch {first_names last_name username email} $name] < 0} {
  71                 append extra_attributes "$name $user_info($name) "
  72             }
  73             set $name $user_info($name)
  74         }
  75         if { ![info exists email] } { set email "" }
  76
  77         if { [auth::UseEmailForLoginP] } {
  78             set username $email
  79         } else {
  80             set username $user
  81         }
  82
  83         # does the user have a local account?
  84         set local_account_p 0
  85         set user_id ""
  86         set status [list]
  87         db_0or1row user_exists_p "select user_id from cc_users where upper(username) = upper(:user) and upper(email) = upper(:email)"
  88         if {$user_id eq ""} {
  89             set group_member_p 0
  90         } else {
  91             set group_member_p [group::member_p -group_id $group_id -user_id $user_id -cascade]
  92         }
  93         set group_name [group::get_element -element group_name -group_id $group_id]
  94         if {$group_member_p} {
  95             lappend status "[_ acs-authentication.Member_of_group_name]"
  96         } else {
  97             lappend status "[_ acs-authentication.Not_a_member_of_group_name]"
  98         }
  99         if {[info exists object_id]} {
  100             set group_member_p [permission::permission_p -object_id $object_id -party_id $user_id -privilege $privilege]
  101         }
  102         set create_account_url [export_vars -base create-local-account {username first_names last_name email authority_id}]
  103         # we could go on to retrieve member information here if there is a local account (for instance to allow member_state change, etc)
  104
  105         set ldap_status [lindex $user_info_raw 5]
  106         set system_name [ad_system_name]
  107         set status "[join $status "<br>"]"
  108         template::multirow -ulevel 2 -local append users $first_names $last_name $username $email $status $group_member_p $create_account_url "" $extra_attributes $user_id $authority_id
  109         unset user_info email
  110         
  111     }
  112 }
  113
  114
  115 set orderby_list [split $orderby ,]
  116 set orderby_column [lindex $orderby_list 0]
  117 set direction [lindex $orderby_list 1]
  118 set direction [string map {asc -increasing desc -decreasing} $direction]
  119 if {$orderby_column ne ""} {
  120     eval "template::multirow -ulevel 2 -local sort users $direction $orderby_column"
  121 }