Index: openacs-4/packages/acs-lang/www/admin/edit-history.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/edit-history.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/www/admin/edit-history.tcl	7 Aug 2017 23:47:57 -0000	1.2
+++ openacs-4/packages/acs-lang/www/admin/edit-history.tcl	3 Sep 2024 15:37:33 -0000	1.3
@@ -3,22 +3,21 @@
     
     @author Peter Marklund
 } {
-    {locale "de_DE"}
+    {locale:word "de_DE"}
     {number_of_edits 400}
     {email_exclude ""}
 }
 
 set list_of_locales [db_list_of_lists locale_loop { select label, locale from enabled_locales order by label }]
 
-set admin_email peter@collaboraid.biz
-
 ad_form \
     -name locale \
     -method GET \
     -form {
         {locale:text(select)
             {label "Locale"}
             {options $list_of_locales}
+            {value $locale}
         }
         {number_of_edits:text,optional
             {label "Number of edits"}
@@ -30,23 +29,21 @@
         }
     }    
 
-set email_clause [ad_decode $email_exclude "" "" "and cu.email not like '%$email_exclude%'"]
-
-db_multirow -extend { key_url } history german_edit_history "
-    select q.* from (select lma.overwrite_date, 
+db_multirow -extend { key_url } history german_edit_history {
+                     select lma.overwrite_date, 
                             lma.old_message,
                             lma.message_key,
                             lma.package_key,
                             lma.locale,
-                            cu.first_names || cu.last_name as user_name
+                            cu.first_names || ' ' || cu.last_name as user_name
                      from lang_messages_audit lma,
                           cc_users cu
                      where cu.user_id = lma.overwrite_user
                        and lma.locale = :locale
-                       $email_clause
-                     order by lma.overwrite_date desc) q 
-    where rownum < :number_of_edits
-" {
+                       and (:email_exclude is null or cu.email not like '%' || :email_exclude || '%')
+                     order by lma.overwrite_date desc
+                     fetch first :number_of_edits rows only
+} {
     set key_url [export_vars -base /acs-lang/admin/edit-localized-message {package_key message_key locale}]
 }