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