Index: openacs-4/packages/dotlrn-portlet/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/tcl/apm-callback-procs.tcl,v
diff -u -N -r1.2 -r1.2.12.1
--- openacs-4/packages/dotlrn-portlet/tcl/apm-callback-procs.tcl	24 Jul 2004 08:34:16 -0000	1.2
+++ openacs-4/packages/dotlrn-portlet/tcl/apm-callback-procs.tcl	18 Aug 2014 22:05:08 -0000	1.2.12.1
@@ -23,7 +23,7 @@
 
        set group_id [db_string group_id_from_name "
             select group_id from groups where group_name='dotlrn-admin'" -default ""]
-        if {![empty_string_p $group_id] } {
+        if {$group_id ne "" } {
 
         #Admin privs
         permission::grant \
@@ -41,7 +41,7 @@
 
        set group_id [db_string group_id_from_name "
             select group_id from groups where group_name='dotlrn-admin'" -default ""]
-        if {![empty_string_p $group_id] } {
+        if {$group_id ne "" } {
 
         permission::revoke \
             -party_id $group_id \