Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.80 -r1.81
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	3 Dec 2001 21:01:09 -0000	1.80
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	7 Dec 2001 19:30:31 -0000	1.81
@@ -21,7 +21,7 @@
     } {
 	Call a particular ds op
     } {
-	ns_log warning "datasource_call: op= $op ds_id = $ds_id list args = [llength list_args]"
+	ns_log notice "portal::datasource_call op= $op ds_id = $ds_id list args = [llength list_args]"
 	return [acs_sc_call portal_datasource $op $list_args [get_datasource_name $ds_id]]
     }
 
@@ -972,9 +972,6 @@
 	and p.template_id = pem.portal_id
 	and pem.datasource_id = :ds_id" ] == 1 } {
 
-	    ns_log notice "aks2"
-	    
-
 	    # I have a template with the element, copy the element from
 	    # the template to my portal
 
@@ -1028,8 +1025,6 @@
 
 	} else {
 
-	    ns_log notice "aks3"
-
 	    # no template, or the template dosen't have this DS
 	    # or I'm a template!
 	    set new_element_id [db_nextval acs_object_id_seq]
@@ -1315,31 +1310,20 @@
 		[datasource_call \
 		$element(datasource_id) "Show" [list [array get config] ]] } \
 		errmsg ] } {
-	    ns_log notice "portal::render_element show callback Error! $errmsg"	
+	    ns_log error "*** portal::render_element show callback Error! ***\n\n $errmsg\n\n"	
+            ad_return_complaint 1 "*** portal::render_element show callback Error! *** <P> $errmsg\n\n"
 	}
 
-	ns_log notice "aks18 [array get config]"
-
 	set element(name) \
 		[datasource_call \
 		$element(datasource_id) "GetPrettyName" [list]] 
 
-	ns_log notice "aks17 [array get config]"
+	set element(link) \
+                [datasource_call $element(datasource_id) "Link" [list]]
 
-	set element(link) [datasource_call $element(datasource_id) "Link" [list]]
-
 	# done with callbacks, now set config params
-
-	ns_log notice "aks15 [array get config]"
-
 	set element(shadeable_p) $config(shadeable_p) 
-
-	ns_log notice "aks16"
-
 	set element(shaded_p) $config(shaded_p) 
-
-	ns_log notice "aks14"
-
 	set element(hideable_p) $config(hideable_p) 
 	set element(user_editable_p) $config(user_editable_p)