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.39 -r1.40
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	30 Oct 2001 20:35:59 -0000	1.39
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	1 Nov 2001 15:25:05 -0000	1.40
@@ -33,7 +33,7 @@
     @return ds_id
     @creation-date Spetember 2001
 } { 
-    if {[db_0or1row get_ds_id_from_name "select datasource_id from portal_datasources where datasource_name = :ds_name"]} {
+    if {[db_0or1row get_ds_id_from_name "select datasource_id from portal_datasources where name = :ds_name"]} {
 	return $datasource_id
     } else {
 	return ""
@@ -228,7 +228,7 @@
     @creation-date 9/28/2001
 } {
 
-    set datasource_id [get_datasource_id $ds_name]
+    set ds_id [get_datasource_id $ds_name]
 
     # set up a unique prett_name for the PE
     if { [db_0or1row pe_prety_name_unique_check "select 1