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 ""} {
                 #