Index: openacs-4/packages/dotfolio/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/index.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotfolio/www/index.tcl	23 Jun 2005 01:38:49 -0000	1.5
+++ openacs-4/packages/dotfolio/www/index.tcl	2 Aug 2005 01:54:52 -0000	1.6
@@ -22,10 +22,12 @@
 
 set root_object_id [acs_magic_object security_context_root]
 
-set adviser_p [dotfolio::user::adviser_p $user_id]
+# Determine the type of dotfolio user.
+set type_adviser_p [dotfolio::user::type_adviser_p -user_id $user_id]
+set type_admin_p [dotfolio::user::type_admin_p -user_id $user_id]
 
 # If user is not adviser then do some redirection.
-if {!$adviser_p} {
+if {!$type_adviser_p && !$type_admin_p} {
 
     # If user has a dotfolio, then redirect to the location of the dotfolio.
     # Otherwise redirect user back to index with message.