Index: openacs-4/packages/acs-subsite/www/pvt/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/pvt/home.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-subsite/www/pvt/home.tcl	4 Jun 2006 00:45:45 -0000	1.21
+++ openacs-4/packages/acs-subsite/www/pvt/home.tcl	10 Jan 2007 21:22:09 -0000	1.22
@@ -53,20 +53,20 @@
 
 
 
-if [ad_parameter SolicitPortraitP "user-info" 0] {
+if {[ad_parameter SolicitPortraitP "user-info" 0]} {
     # we have portraits for some users 
-    if ![db_0or1row get_portrait_info "
+    if {![db_0or1row get_portrait_info "
     select cr.publish_date, nvl(cr.title,'your portrait') as portrait_title,
     nvl(cr.description,'no description') as portrait_description 
     from cr_revisions cr, cr_items ci, acs_rels a
     where cr.revision_id = ci.live_revision
     and  ci.item_id = a.object_id_two
     and a.object_id_one = :user_id
     and a.rel_type = 'user_portrait_rel'
-    "] {
+    "]} {
 	set portrait_state "upload"
     } else {
-        if { [empty_string_p $portrait_title] } {
+        if { $portrait_title eq "" } {
             set portrait_title "[_ acs-subsite.no_portrait_title_message]"
         }