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.132 -r1.133
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	22 Apr 2002 00:10:07 -0000	1.132
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	23 Apr 2002 16:14:00 -0000	1.133
@@ -1550,10 +1550,24 @@
         @param portal_id
         @param ds_id
     } {
-        set new_p_ds_id [db_nextval acs_object_id_seq]
-        db_dml insert {} 
+        if {![datasource_available_p -portal_id $portal_id -datasource_id $ds_id]} {
+            set new_p_ds_id [db_nextval acs_object_id_seq]
+            db_dml insert {} 
+        }
     }
 
+    ad_proc -private datasource_available_p {
+        {-portal_id:required}
+        {-datasource_id:required}
+    } {
+        Check is the given ds is available to the given portal
+
+        @param portal_id
+        @param ds_id
+    } {
+        return [db_string select {}]
+    }
+
     ad_proc -private make_datasource_unavailable {portal_id ds_id} {
         Make the datasource unavailable to the given portal.