Index: openacs-4/packages/dotlrn-assessment/tcl/test/dotlrn-assessment-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-assessment/tcl/test/Attic/dotlrn-assessment-test-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/dotlrn-assessment/tcl/test/dotlrn-assessment-test-procs.tcl	1 Oct 2020 13:27:59 -0000	1.1.2.3
+++ openacs-4/packages/dotlrn-assessment/tcl/test/dotlrn-assessment-test-procs.tcl	25 Feb 2021 12:24:40 -0000	1.1.2.4
@@ -43,6 +43,7 @@
         dotlrn_assessment::add_portlet_helper
         dotlrn_assessment::remove_portlet
         dotlrn_assessment::remove_applet
+        portal::exists_p
     } -cats {
         api
     } dotlrn_assessment__applet_portlet {
@@ -76,10 +77,7 @@
         # Create portal
         #
         set portal_id [portal::create $portal_user_id]
-        set portal_exists_p [db_0or1row foo {
-            select * from portals where portal_id=:portal_id
-        }]
-        if {$portal_exists_p} {
+        if {[portal::exists_p $portal_id]} {
             aa_log "Portal created (portal_id: $portal_id)"
             set applet_key [dotlrn_assessment::applet_key]
             if {[dotlrn_applet::get_applet_id_from_key -applet_key $applet_key] ne ""} {
Index: openacs-4/packages/dotlrn-chat/tcl/test/dotlrn-chat-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-chat/tcl/test/Attic/dotlrn-chat-test-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/dotlrn-chat/tcl/test/dotlrn-chat-test-procs.tcl	31 Aug 2020 17:14:16 -0000	1.1.2.3
+++ openacs-4/packages/dotlrn-chat/tcl/test/dotlrn-chat-test-procs.tcl	25 Feb 2021 12:24:40 -0000	1.1.2.4
@@ -43,6 +43,7 @@
         dotlrn_chat::add_portlet_helper
         dotlrn_chat::remove_portlet
         dotlrn_chat::remove_applet
+        portal::exists_p
     } -cats {
         api
     } dotlrn_chat__applet_portlet {
@@ -76,10 +77,7 @@
         # Create portal
         #
         set portal_id [portal::create $portal_user_id]
-        set portal_exists_p [db_0or1row foo {
-            select * from portals where portal_id=:portal_id
-        }]
-        if {$portal_exists_p} {
+        if {[portal::exists_p $portal_id]} {
             aa_log "Portal created (portal_id: $portal_id)"
             if {[dotlrn_applet::get_applet_id_from_key -applet_key [dotlrn_chat::applet_key]] ne ""} {
                 #
Index: openacs-4/packages/dotlrn-evaluation/tcl/test/dotlrn-evaluation-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-evaluation/tcl/test/Attic/dotlrn-evaluation-test-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/dotlrn-evaluation/tcl/test/dotlrn-evaluation-test-procs.tcl	1 Oct 2020 12:16:12 -0000	1.1.2.4
+++ openacs-4/packages/dotlrn-evaluation/tcl/test/dotlrn-evaluation-test-procs.tcl	25 Feb 2021 12:24:40 -0000	1.1.2.5
@@ -43,6 +43,7 @@
         dotlrn_evaluation::add_portlet_helper
         dotlrn_evaluation::remove_portlet
         dotlrn_evaluation::remove_applet
+        portal::exists_p
     } -cats {
         api
     } dotlrn_evaluation__applet_portlet {
@@ -76,10 +77,7 @@
         # Create portal
         #
         set portal_id [portal::create $portal_user_id]
-        set portal_exists_p [db_0or1row foo {
-            select * from portals where portal_id=:portal_id
-        }]
-        if {$portal_exists_p} {
+        if {[portal::exists_p $portal_id]} {
             aa_log "Portal created (portal_id: $portal_id)"
             set applet_key [dotlrn_evaluation::applet_key]
             if {[dotlrn_applet::get_applet_id_from_key -applet_key $applet_key] ne ""} {
Index: openacs-4/packages/dotlrn-faq/tcl/test/dotlrn-faq-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-faq/tcl/test/Attic/dotlrn-faq-test-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/dotlrn-faq/tcl/test/dotlrn-faq-test-procs.tcl	2 Oct 2020 16:56:25 -0000	1.1.2.4
+++ openacs-4/packages/dotlrn-faq/tcl/test/dotlrn-faq-test-procs.tcl	25 Feb 2021 12:24:40 -0000	1.1.2.5
@@ -43,6 +43,7 @@
         dotlrn_faq::add_portlet_helper
         dotlrn_faq::remove_portlet
         dotlrn_faq::remove_applet
+        portal::exists_p
     } -cats {
         api
     } dotlrn_faq__applet_portlet {
@@ -76,10 +77,7 @@
         # Create portal
         #
         set portal_id [portal::create $portal_user_id]
-        set portal_exists_p [db_0or1row foo {
-            select * from portals where portal_id=:portal_id
-        }]
-        if {$portal_exists_p} {
+        if {[portal::exists_p $portal_id]} {
             aa_log "Portal created (portal_id: $portal_id)"
             set applet_key [dotlrn_faq::applet_key]
             if {[dotlrn_applet::get_applet_id_from_key -applet_key $applet_key] ne ""} {
Index: openacs-4/packages/dotlrn-forums/tcl/test/dotlrn-forums-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/tcl/test/Attic/dotlrn-forums-test-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/dotlrn-forums/tcl/test/dotlrn-forums-test-procs.tcl	14 Oct 2020 15:26:27 -0000	1.1.2.5
+++ openacs-4/packages/dotlrn-forums/tcl/test/dotlrn-forums-test-procs.tcl	25 Feb 2021 12:24:40 -0000	1.1.2.6
@@ -47,6 +47,7 @@
         dotlrn_forums::add_portlet_helper
         dotlrn_forums::remove_portlet
         dotlrn_forums::remove_applet
+        portal::exists_p
     } -cats {
         api
     } dotlrn_forums__applet_portlet {
@@ -80,10 +81,7 @@
         # Create portal
         #
         set portal_id [portal::create $portal_user_id]
-        set portal_exists_p [db_0or1row foo {
-            select * from portals where portal_id=:portal_id
-        }]
-        if {$portal_exists_p} {
+        if {[portal::exists_p $portal_id]} {
             aa_log "Portal created (portal_id: $portal_id)"
             set applet_key [dotlrn_forums::applet_key]
             #
Index: openacs-4/packages/dotlrn-news/tcl/test/dotlrn-news-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news/tcl/test/Attic/dotlrn-news-test-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/dotlrn-news/tcl/test/dotlrn-news-test-procs.tcl	1 Oct 2020 09:24:24 -0000	1.1.2.3
+++ openacs-4/packages/dotlrn-news/tcl/test/dotlrn-news-test-procs.tcl	25 Feb 2021 12:24:40 -0000	1.1.2.4
@@ -44,6 +44,7 @@
         dotlrn_news::add_portlet_helper
         dotlrn_news::remove_portlet
         dotlrn_news::remove_applet
+        portal::exists_p
     } -cats {
         api
     } dotlrn_news__applet_portlet {
@@ -77,10 +78,7 @@
         # Create portal
         #
         set portal_id [portal::create $portal_user_id]
-        set portal_exists_p [db_0or1row foo {
-            select * from portals where portal_id=:portal_id
-        }]
-        if {$portal_exists_p} {
+        if {[portal::exists_p $portal_id]} {
             aa_log "Portal created (portal_id: $portal_id)"
             if {[dotlrn_applet::get_applet_id_from_key -applet_key [dotlrn_news::applet_key]] ne ""} {
                 #
Index: openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/test/Attic/dotlrn-static-test-procs.tcl,v
diff -u -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl	14 Oct 2020 15:38:59 -0000	1.1.2.4
+++ openacs-4/packages/dotlrn-static/tcl/test/dotlrn-static-test-procs.tcl	25 Feb 2021 12:24:40 -0000	1.1.2.5
@@ -42,6 +42,7 @@
         dotlrn_static::add_portlet_helper
         dotlrn_static::remove_portlet
         dotlrn_static::remove_applet
+        portal::exists_p
     } -cats {
         api
     } dotlrn_static__applet_portlet {
@@ -75,11 +76,8 @@
         # Create portal
         #
         set portal_id [portal::create $portal_user_id]
-        set portal_exists_p [db_0or1row foo {
-            select * from portals where portal_id=:portal_id
-        }]
         set applet_key [dotlrn_static::applet_key]
-        if {$portal_exists_p} {
+        if {[portal::exists_p $portal_id]} {
             aa_log "Portal created (portal_id: $portal_id)"
             if {[dotlrn_applet::get_applet_id_from_key -applet_key $applet_key] ne ""} {
                 #
Index: openacs-4/packages/static-portlet/tcl/test/static-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/test/Attic/static-portlet-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/static-portlet/tcl/test/static-portlet-procs.tcl	6 Oct 2020 17:42:49 -0000	1.1.2.5
+++ openacs-4/packages/static-portlet/tcl/test/static-portlet-procs.tcl	25 Feb 2021 12:24:40 -0000	1.1.2.6
@@ -32,6 +32,7 @@
         static_portal_content::update
         static_portal_content::remove_all_from_portal
         static_portal_content::delete
+        portal::exists_p
     } -cats {
         api
     } static_portal_content__procs {
@@ -86,10 +87,7 @@
             # Create portal
             #
             set portal_id [portal::create $portal_user_id]
-            set portal_exists_p [db_0or1row foo {
-                select * from portals where portal_id=:portal_id
-            }]
-            if {$portal_exists_p} {
+            if {[portal::exists_p $portal_id]} {
                 aa_log "Portal created (portal_id: $portal_id)"
                 #
                 # Add to portal