Index: openacs-4/packages/acs-lang/www/admin/batch-editor.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/batch-editor.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-lang/www/admin/batch-editor.tcl	27 Jun 2015 16:23:12 -0000	1.10
+++ openacs-4/packages/acs-lang/www/admin/batch-editor.tcl	7 Aug 2017 23:47:57 -0000	1.11
@@ -129,7 +129,9 @@
 
 lappend edit_buttons { "Update" "ok" }
 
-if { $show ne "untranslated" && $page_end < [expr {$total}] } { 
+if { $show ne "untranslated"
+     && $page_end < $total
+ } {
     lappend edit_buttons { "Update and next >" "next" }
 }
 
@@ -185,7 +187,7 @@
         ad_form -extend -name batch_editor -form \
             [list [list "default_locale_message_$count:text(inform),optional" \
                        {label $default_locale_label} \
-                       {value {[ad_quotehtml $default_message]}}]]
+                       {value {[ns_quotehtml $default_message]}}]]
     }
     
     if { [string length $translated_message] > 80 } {
@@ -255,7 +257,7 @@
 
 for {set count 0} {$count < $total} {incr count 10 } {
     set end_page [expr {$count + 9}]
-    if { $end_page > [expr {$total-1}] } {
+    if { $end_page > $total-1 } {
         set end_page [expr {$total-1}]
     }
     
@@ -308,3 +310,9 @@
     }
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: