Index: openacs-4/packages/dotlrn/www/dotlrn-default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/Attic/dotlrn-default-master.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/dotlrn-default-master.tcl	16 Apr 2002 13:53:52 -0000	1.2
+++ openacs-4/packages/dotlrn/www/dotlrn-default-master.tcl	18 Apr 2002 19:10:09 -0000	1.3
@@ -47,10 +47,15 @@
 # aks sloan "navbar everywhere" hack - must come back and sort this
 # out (again) sometime
 
-set user_id [ad_get_user_id]
-set portal_id [dotlrn::get_workspace_portal_id $user_id]
+set user_id [ad_get_user_id] 
 set community_id [dotlrn_community::get_community_id]
 
+if {[dotlrn::user_p -user_id $user_id]} {
+    set portal_id [dotlrn::get_workspace_portal_id $user_id]
+}
+
+
+
 # ad_return_complaint 1 "$portal_id |$community_id|"