Index: openacs-4/packages/dotfolio/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/www/index.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotfolio/www/index.tcl	5 May 2005 08:51:31 -0000	1.1
+++ openacs-4/packages/dotfolio/www/index.tcl	19 May 2005 15:19:32 -0000	1.2
@@ -22,6 +22,23 @@
 
 set root_object_id [acs_magic_object security_context_root]
 
+set adviser_p [dotfolio::user::adviser_p $user_id]
+ns_log Warning "NC: adviser_p $adviser_p"
+
+# If user is not adviser then do some redirection.
+if {!$adviser_p} {
+
+    # If user has a dotfolio, then redirect to the location of the dotfolio.
+    # Otherwise redirect user back to index with message.
+    if {[dotfolio::has_dotfolio_p -user_id $user_id]} {
+	ad_returnredirect [dotfolio::user::dotfolio_url -user_id $user_id]
+    } else {
+	# TODO - user must be guest so display dotfolios that
+	# guest has access to.
+	ad_returnredirect -message "You do not have the permissions to access dotfolio." index
+    }
+}
+
 set elements {
     name {
 	label {\#dotfolio.name\#}