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 -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/lib/conflict-link.tcl	9 Dec 2003 13:41:51 -0000	1.1.2.1
@@ -0,0 +1,22 @@
+# 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
+    }
+}
+
+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]