Index: openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	8 Aug 2006 21:26:38 -0000	1.34
+++ openacs-4/packages/dotlrn-static/tcl/dotlrn-static-procs.tcl	27 Oct 2014 16:41:23 -0000	1.35
@@ -19,7 +19,7 @@
     Procs for the dotLRN Static applet
     
     @author arjun@openforce.net
-    @version $Id$
+    @cvs-id $Id$
 }
 
 namespace eval dotlrn_static {
@@ -108,7 +108,7 @@
 
 	set template_id [portal::get_portal_template_id $portal_id]
 	
-	if {[empty_string_p $template_id]} {
+	if {$template_id eq ""} {
 	   
 	    set template_id $portal_id
 	}
@@ -196,10 +196,10 @@
         set type [dotlrn::get_type_from_portal_id -portal_id $portal_id]
         set package_id 0
         
-        if {[string equal $type "user"]} {
+        if {$type eq "user"} {
             # do nothing for the user portal template
             return
-        } elseif {[string equal $type "dotlrn_club"]} {
+        } elseif {$type eq "dotlrn_club"} {
             # for clubs
             # Used by en_US messages below
             set clubs_pretty_name [dotlrn::parameter -name clubs_pretty_name]
@@ -209,7 +209,7 @@
                                 -content "$pretty_name" \
                                 -pretty_name "$pretty_name"
             ]
-        } elseif {[string equal $type "dotlrn_community"]} {
+        } elseif {$type eq "dotlrn_community"} {
             # for subgroups
             # Used by en_US messages below
             set subcommunities_pretty_name [dotlrn::parameter -name subcommunities_pretty_name]