Index: openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	10 Sep 2003 14:52:01 -0000	1.5
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	12 Sep 2003 12:28:20 -0000	1.6
@@ -146,7 +146,7 @@
 ad_proc -public acs_sc::impl::get_options {
     {-contract_name:required}
     {-exclude_names ""}
-    {-empty_option:boolean}
+    {-empty_label "-"}
 } {
     Get a list of service contract implementation options
     for an HTML multiple choice widget.
@@ -155,7 +155,7 @@
            to return options for.
 
     @param exclude_names A list of implementation names to exclude
-    @param empty_option_p If provided an empty option is added
+    @param empty_label If provided an option with id empty string and the provided label will be added.
 
     @return A list of lists with the inner lists having label in first element and id in second.
 
@@ -182,8 +182,8 @@
         set impl_list $full_list
     }
 
-    if { $empty_option_p } {
-        lappend impl_list [list "-" ""]
+    if { ![empty_string_p $empty_label] } {
+        lappend impl_list [list $empty_label ""]
     }
 
     return $impl_list