Index: openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl	1 Mar 2005 00:01:24 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl	10 Jan 2007 21:22:11 -0000	1.6
@@ -15,7 +15,7 @@
 
 set current_user_id [ad_conn user_id]
 
-if [empty_string_p $user_id] {
+if {$user_id eq ""} {
     subsite::upload_allowed
     set user_id $current_user_id
     set admin_p 0
@@ -25,10 +25,10 @@
 
 ad_require_permission $user_id "write"
 
-if ![db_0or1row name "select 
+if {![db_0or1row name "select 
   first_names, last_name
 from persons 
-where person_id=:user_id"] {
+where person_id=:user_id"]} {
     ad_return_error "Account Unavailable" "We can't find you (user #$user_id) in the users table.  Probably your account was deleted for some reason."
     return
 }