- Upgrade to OpenACS 5.6

catalog/acs-authentication.cs_CZ.utf-8.xml

+<?xml version="1.0" encoding="utf-8"?>
+<message_catalog package_key="acs-authentication" package_version="5.2.3" locale="cs_CZ" charset="utf-8">
+
+  <msg key="Invalid_username_or_password">Neplatné uživatelské jméno nebo heslo</msg>
+</message_catalog>

catalog/acs-authentication.el_GR.utf-8.xml

+<?xml version="1.0" encoding="utf-8"?>
+<message_catalog package_key="acs-authentication" locale="el_GR" charset="utf-8">
+
+  <msg key="Invalid_username_or_password">Το όνομα του χρήστη ή ο κωδικός δεν είναι αποδεκτά</msg>
+</message_catalog>

catalog/acs-authentication.gl_ES.ISO-8859-1.xml

+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="acs-authentication" locale="gl_ES" charset="ISO-8859-1">
+
+  <msg key="Invalid_username_or_password">Usuario ou contrasinal errneo</msg>
+</message_catalog>

catalog/acs-authentication.hi_IN.utf-8.xml

+<?xml version="1.0" encoding="utf-8"?>
+<message_catalog package_key="acs-authentication" locale="hi_IN" charset="utf-8">
+
+  <msg key="Invalid_username_or_password">नियम विरुध्द यूसरनेम या पास्वर्ड् ।</msg>
+</message_catalog>

catalog/acs-authentication.ind_ID.utf-8.xml

+<?xml version="1.0" encoding="utf-8"?>
+<message_catalog package_key="acs-authentication" locale="ind_ID" charset="utf-8">
+
+  <msg key="Invalid_username_or_password">Invalid username or password</msg>
+</message_catalog>

catalog/acs-authentication.nl_ZA.ISO-8859-1.xml

+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="acs-authentication" package_version="5.2.3" locale="nl_ZA" charset="ISO-8859-1">
+
+  <msg key="Invalid_username_or_password">Ongeldige gebruikersnaam of wagwoord</msg>
+</message_catalog>

catalog/acs-authentication.nn_NO.ISO-8859-1.xml

+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="acs-authentication" locale="nn_NO" charset="ISO-8859-1">
+
+  <msg key="Invalid_username_or_password">Invalid username or password</msg>
+</message_catalog>

catalog/acs-authentication.pa_IN.utf-8.xml

+<?xml version="1.0" encoding="utf-8"?>
+<message_catalog package_key="acs-authentication" locale="pa_IN" charset="utf-8">
+
+  <msg key="Invalid_username_or_password">Batch edit these messages
+
+
+Message Key
+English (US) Message
+Punjabi Message
+
+
+ 
+acs-authentication.Invalid_username_or_password 
+ਗਲਤ ਉਪਭੋਗੀ ਨਾਂ ਜਾਂ ਗੁਪਤ-ਕੋਡ</msg>
+</message_catalog>

catalog/acs-authentication.th_TH.utf-8.xml

+<?xml version="1.0" encoding="utf-8"?>
+<message_catalog package_key="acs-authentication" locale="th_TH" charset="utf-8">
+
+  <msg key="Invalid_username_or_password">username หรือ password ไม่ถูกต้อง</msg>
+</message_catalog>

lib/local-search.adp

+<formtemplate id="user-search" style="inline"></formtemplate>

lib/local-search.tcl

+# creation-date 2007-01-21
+# author Dave Bauer (dave@solutiongrove.com)
+# includable search form
+# results should be appended to multirow called users
+# ADP level
+# default local authority search
+
+ad_form -name user-search -method GET -export {authority_id object_id} -form {
+    {search_text:text(text),optional
+	{label "Search"}
+    }
+} -on_request {
+    element set_value user-search search_text $search_text
+} -on_submit {
+
+}
+if {![info exists orderby]} {
+    set orderby ""
+}
+set search_text [string tolower $search_text]
+set search_terms [list]
+foreach term [split $search_text] {
+    lappend search_terms $term
+}
+
+set name_search "'()'"
+if {[llength $search_terms]} {
+    set name_search "([join $search_terms |])"
+}
+
+set system_name [ad_system_name]
+    db_foreach get_users "
+select 
+first_names,
+last_name, 
+email, 
+username,
+user_id,
+authority_id
+from cc_users
+where 
+(	
+  lower(first_names) ~ :name_search
+  or lower(last_name) ~ :name_search
+)
+or lower(username) like '%' || :search_text || '%'
+or lower(email) like '%' || :search_text || '%'
+" {
+
+set status [list]
+if {[info exists object_id]} {
+    set group_member_p [permission::permission_p -object_id $object_id -party_id $user_id -privilege $privilege]
+    set status ""
+    
+} else {
+    set group_member_p [group::member_p -group_id $group_id -user_id $user_id -cascade]
+    set group_name [group::get_element -element group_name -group_id $group_id]
+    if {$group_member_p} {
+	lappend status "[_ acs-authentication.Member_of_group_name]"
+    } else {
+	lappend status "[_ acs-authentication.Not_a_member_of_group_name]"
+    }
+    set status [join $status "<br />"]
+}
+    template::multirow -ulevel 2 -local append users $first_names $last_name $username $email $status $group_member_p "" "" "" $user_id $authority_id
+}
+
+set orderby_list [split $orderby ,]
+set orderby_column [lindex $orderby_list 0]
+set direction [lindex $orderby_list 1]
+set direction [string map {asc -increasing desc -decreasing} $direction]
+if {$orderby_column ne ""} {
+    eval "template::multirow -ulevel 2 -local sort users $direction $orderby_column"
+}
\ No newline at end of file

lib/search.adp

+<style>
+
+/* First level tabs */
+
+#navbar-div {
+  border-bottom: 1px solid #666;
+}
+#navbar-container {
+  height: 35px;
+  position: relative;
+}
+#navbar { 
+  position: absolute;
+  height: 21px;
+  margin: 0px;
+  padding: 0px 0px 0px 0px;
+  left: 10px;
+  bottom: -2px;
+  margin-top: 10px;
+  font-family: Arial, sans-serif;
+  font-size: 80%;
+  font-weight: bold;
+}
+html>body #navbar { bottom: 0px }
+
+#navbar .tab { 
+  height: 16px;
+  float: left; 
+  background-color: #eeeeee; 
+  border: 1px solid #666;
+  padding: 2px 5px 2px 5px;
+  margin: 0px 2px 0px 2px;
+}
+#navbar a {
+  text-decoration: none;
+  color: black;
+}
+#navbar a:hover {
+  text-decoration: underline;
+}
+#navbar #navbar-here { 
+  border-bottom-color: white;
+  background-color: white;
+}
+#navbar #navbar-here a {
+  color: black;
+}
+
+#navbar-body { 
+  border-bottom: 1px solid #016799;
+  background-color: white;
+  clear: both;
+  padding-top: 4px;
+  padding-left: 12px;
+  padding-right: 12px;
+  padding-bottom: 12px;
+}
+
+</style>
+<multiple name="authorities">
+<if @authorities.authority_id@ eq @selected_authority_id@>
+<include src="@authorities.form_include@" authority_id="@authorities.authority_id@" search_text="@search_text@" return_url="@return_url@" orderby="@orderby@" member_url="@member_url@" group_id="@group_id@" &="rel_type" &="object_id" &="privilege"></if>
+</multiple>
+
+<div id="navbar-div">
+  <div id="navbar-container">
+    <div id="navbar"> 
+      <multiple name="authorities">
+        <if @selected_authority_id@ eq @authorities.authority_id@>	
+          <div class="tab" id="navbar-here">
+@authorities.pretty_name@
+          </div>
+        </if>
+        <else>
+          <div class="tab">
+              <a href="@authorities.search_url@" title="@authorities.pretty_name@">@authorities.pretty_name@
+</a>
+          </div>
+        </else>
+      </multiple>
+    </div>
+  </div>
+</div>
+<div id="navbar-body">
+
+<if @authorities:rowcount@ gt 1>
+<h2>#acs-authentication.lt_Not_getting_the_results_you_expected#
+<multiple name="authorities">
+<if @authorities.authority_id@ ne @authority_id@>
+<a href="@authorities.search_url@">@authorities.pretty_name@</a><if @authorities.rownum@ lt @authorities:rowcount@> </if>
+</if>
+</multiple>
+</h2>
+</if>
+<listtemplate name="users"></listtemplate>
+</div>
\ No newline at end of file

lib/search.tcl

+ad_page_contract {
+    Includable page to search users in any authority
+    
+    To grant permission on an object
+    Including page can pass in 
+    add_permisison (list of Label, URL)
+    object_id
+    privilege
+
+    OR
+    To add a member of a group
+    add_to_subsite (list of label url)
+    add_to_main_site (optional) (list of label url)
+    group_id (optional default to subsite applicaiton group)
+    rel_type (default to membership_rel)
+
+} {
+    {search_text ""}
+    {authority_id ""}
+    orderby:optional
+}
+
+set authority_options [auth::authority::get_authority_options]
+set default_authority_id [lindex [lindex $authority_options 0] 1]
+if {$authority_id eq ""} {
+    set authority_id $default_authority_id
+}
+
+if {![info exists rel_type] || $rel_type eq ""} {
+    set rel_type membership_rel
+} 
+if {![info exists package_id] || $package_id eq ""} {
+    set package_id [ad_conn subsite_id]
+}
+
+if {![info exists return_url] || $return_url eq ""} {
+    set return_url [ad_return_url]
+}
+set selected_authority_id $authority_id
+
+set bulk_actions [list]
+# we need a base url for adding a user to the site (main subsite or dotlrn, etc...)
+if {[info exists add_to_main_site]} {
+    foreach elm $add_to_main_site {
+	lappend bulk_actions $elm
+    }
+}
+
+# we need a base url for adding a user to a specific community (subsite or dotlrn class instance etc...) (optional)
+if {[info exists add_to_subsite]} {
+    foreach elm $add_to_subsite {
+	lappend bulk_actions $elm
+    }
+} 
+if {[info exists add_to_subsite] && [llength $add_to_subsite]} {
+   set add_user_url [lindex $add_to_subsite 1]
+    set add_user_label [lindex $add_to_subsite 0]
+} elseif {[info exists add_to_main_site]} {
+    set add_user_url [lindex $add_to_main_site 1]
+    set add_user_label "[_ acs-authentication.Add_to_system_name [list system_name [ad_system_name]]]"
+}
+if {[info exists add_permission] && [llength $add_permission]} {
+    set add_user_url [lindex $add_permission 1]
+    set add_user_label [lindex $add_permission 0]
+    lappend bulk_actions $add_user_label $add_user_url $add_user_label
+}
+if {![regexp {\?} $add_user_url]} {
+    set add_user_url "${add_user_url}?"
+}
+if {![info exists group_id] || $group_id eq ""} {
+    set group_id [application_group::group_id_from_package_id -package_id $package_id]
+}
+# generate authority links
+
+ template::multirow create users first last username email auth_status group_member_p create_account_url actions extra_attributes user_id authority_id
+ns_log debug "MEMBER SEARCH TCL level='[template::adp_level]' [uplevel \#[template::adp_level] "info vars"]"
+ template::list::create \
+    -no_data "Search returned no results" \
+    -name users \
+    -multirow users \
+    -key userkey \
+    -has_checkboxes \
+    -bulk_action_export_vars { authority_id return_url object_id group_id } \
+    -filters {search_text {} authority_id {} object_id {}} \
+    -elements [list \
+     checkbox {
+	 display_template {<if @users.first@ not nil and @users.last@ not nil and @users.email@ not nil and @users.group_member_p@ false><input type="checkbox" name="userkey" value="@users.username@ @users.authority_id@" /></if>}} \
+		   first [list label "First Name" link_url_eval "\[export_vars -base \"$member_url\" {user_id} \]"] \
+		   last [list label "Last Name"  link_url_eval "\[export_vars -base \"$member_url\" {user_id} \]"] \
+    username [list label "Username" link_url_eval "\[export_vars -base \"$member_url\" {user_id} \]"] \
+     email {label "Email"} \
+     auth_status {
+ 	label "Status"
+     } \
+		   actions [list label "Actions" display_template "<if @users.first@ not nil and @users.last@ not nil and @users.email@ not nil and @users.group_member_p@ false><a href=\"${add_user_url}&userkey=@users.username@+@users.authority_id@&authority_id=${authority_id}&return_url=[ad_urlencode ${return_url}]&group_id=$group_id\" class=button>$add_user_label</a></if>"] \
+     extra_attributes {label "Extra Attributes"} \
+		   user_id [list hide_p [expr {!$admin_p}] label "" display_template "<if @users.user_id@ not nil><a href=\"$member_admin_url?user_id=@users.user_id@\">User Admin Page</a></if>"] \
+	       ] -bulk_actions $bulk_actions \
+ -orderby {first {orderby first_names} last {orderby last_name} username  {orderby username} email {orderby email} auth_status {orderby auth_status}}
+
+template::multirow create authorities authority_id pretty_name local_authority_p search_url form_include
+
+foreach option_list [auth::authority::get_authority_options] {
+    set this_authority_id [lindex $option_list 1]
+    set local_authority_p [string match $this_authority_id [auth::authority::local]]
+    if {$local_authority_p} {
+	set local_authority_id $this_authority_id
+	set form_include /packages/acs-authentication/lib/local-search
+    } else {
+	set form_include [acs_sc::invoke -impl_id [auth::authority::get_element -authority_id $this_authority_id -element search_impl_id] -operation FormInclude] 
+    }
+    if {$this_authority_id eq $selected_authority_id} {
+	set selected_form_include $form_include
+    }
+    template::multirow append authorities $this_authority_id [lindex $option_list 0] $local_authority_p [export_vars -base [ad_conn url] -no_empty {{authority_id $this_authority_id} search_text object_id}] $form_include
+}
+
+#template::multirow sort authorities -decreasing authority_id
+
+if {$selected_authority_id eq ""} {
+    set selected_authority_id $default_authority_id
+}
+set authority_id $selected_authority_id
+
+#set search_form_html [template::adp_include $selected_form_include [list authority_id $selected_authority_id search_text $search_text return_url $return_url orderby $orderby]]
+
+#<include src="@authorities.form_include@" authority_id="@authorities.authority_id@" search_text="@search_text@" return_url="@return_url@" orderby="@orderby@">
+if {![info exists orderby]} {
+    set orderby ""
+}
\ No newline at end of file

tcl/local-procs.xql

+<?xml version="1.0"?>
+
+<queryset>
+
+    <fullquery name="auth::local::authentication::MergeUser.getrelid">
+      <querytext>
+	select rel_id from cc_users where user_id = :from_user_id      
+      </querytext>
+    </fullquery>
+
+<fullquery name="auth::local::search::Search.user_search">      
+      <querytext>
+            select distinct user_id, username, email
+            from   cc_users u
+            where  upper(coalesce(u.first_names || ' ', '')  ||
+                   coalesce(u.last_name || ' ', '') ||
+                   u.email || ' ' ||
+                   u.username || ' ' ||
+                   coalesce(u.screen_name, '')) like upper('%'||:search_text||'%')
+            order  by username, email
+
+      </querytext>
+</fullquery>
+
+<fullquery name="auth::local::user_info::GetUserInfo.get_user_info">      
+      <querytext>
+            select user_id, first_names, last_name, username, email
+              from cc_users 
+             where user_id = :user_id
+      </querytext>
+</fullquery>
+
+</queryset>
+
+