Index: openacs-4/packages/dotlrn/lib/member-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/lib/member-email.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn/lib/member-email.tcl	15 Aug 2018 16:43:08 -0000	1.8
+++ openacs-4/packages/dotlrn/lib/member-email.tcl	3 Sep 2024 15:37:37 -0000	1.9
@@ -1,29 +1,22 @@
-# packages/dotlrn/lib/member-email.tcl
-#
-# form for adding/editing a member email based on type
-# as includeletized from roelc's original code
-#
-# @author Deds Castillo (deds@i-manila.com.ph)
-# @creation-date 2005-07-20
-# @cvs-id $Id$
+ad_include_contract {
+    packages/dotlrn/lib/member-email.tcl
 
-foreach required_param {community_id type return_url} {
-    if {![info exists $required_param]} {
-        return -code error "$required_param is a required parameter."
-    }
-}
+    form for adding/editing a member email based on type
+    as includeletized from roelc's original code
 
-foreach optional_param {enabled_p extra_vars} {
-    if {![info exists $optional_param]} {
-        set $optional_param {}
-    }
+    As of 2019-09-27, seems like only dotlrn-ecommerce is using this
+    include
+
+    @author Deds Castillo (deds@i-manila.com.ph)
+    @creation-date 2005-07-20
+    @cvs-id $Id$
+} {
+    community_id:naturalnum
+    type:notnull
+    return_url:localurl,notnull
+    {enabled_p:boolean false}
+    {extra_vars ""}
 }
-ns_log notice "dedsman: $extra_vars"
-if {![template::util::is_true $enabled_p]} {
-    set enabled_p f
-} else {
-    set enabled_p t
-}
 
 if {$community_id eq ""} {
     permission::require_permission -object_id [ad_conn package_id] -privilege "admin"