Index: openacs-4/packages/acs-lang/lib/conflict-link.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/lib/conflict-link.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-lang/lib/conflict-link.tcl	7 Aug 2017 23:47:56 -0000	1.3
+++ openacs-4/packages/acs-lang/lib/conflict-link.tcl	3 Sep 2024 15:37:33 -0000	1.4
@@ -1,25 +1,15 @@
-# Optional parameters:
-#
-# package_key
-# locale
-
-# Default params to empty string
-# and build the link export list
-set link_export_list [list]
-foreach param {package_key locale} {
-    if { ![info exists $param] } {
-        set $param ""
-    } else {
-        # param provided
-        lappend link_export_list $param
-    }
+ad_include_contract {
+    Display the link to conflicting message keys
+} {
+    {package_key:token ""}
+    {locale:token ""}
 }
 
 set conflict_count [lang::message::conflict_count \
                         -package_key $package_key \
                         -locale $locale]
 
-set message_conflicts_url [export_vars -base message-conflicts $link_export_list]
+set message_conflicts_url [export_vars -base message-conflicts -no_empty {package_key locale}]
 
 # Local variables:
 #    mode: tcl