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!" } }