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.117 -r1.118
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	6 Mar 2002 05:14:08 -0000	1.117
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	6 Mar 2002 23:23:18 -0000	1.118
@@ -1314,20 +1314,26 @@
         if {[db_0or1row select {}]} {
             return $name
         } else {
-            return ""
+            ns_log error "portal::get_datasource_name error! No datasource
+            by that name found!"
+            ad_return_complaint 1 "portal::get_datasource_name error! No datasource
+            by that name found!"
         }
     }
 
     ad_proc -private get_datasource_id { ds_name } {
-        Get the ds id from the name or the null string if not found.
+        Get the ds id from the name
 
         @param ds_name
         @return ds_id
     } { 
         if {[db_0or1row select {}]} {
             return $datasource_id
         } else {
-            return ""
+            ns_log error "portal::get_datasource_id error! No datasource
+            by that name found!"
+            ad_return_complaint 1 "portal::get_datasource_id error! No datasource
+            by that name found!"
         }
     }