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.7 -r1.8
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	16 Sep 2003 08:29:59 -0000	1.7
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl	29 Sep 2003 08:05:18 -0000	1.8
@@ -20,13 +20,21 @@
 ad_proc -public acs_sc::impl::new {
     {-contract_name:required}
     {-name:required}
-    {-pretty_name:required}
+    {-pretty_name ""}
     {-owner:required}
 } {
     Add new service contract implementation.
+
+    @param name         The internal name of the implementation. Referred to when invoking the implementation.
+                        Alphanumeric characters and underscores only.
+
+    @param pretty_name  The name of the implementation when display to users. Defaults to 'name'.
     
     @return the ID of the new implementation
 } {
+    if { [empty_string_p $pretty_name] } {
+        set pretty_name $name
+    }
     return [db_exec_plsql impl_new {}]
 }