--- loncom/interface/loncommon.pm 2008/12/15 08:28:23 1.692.2.5 +++ loncom/interface/loncommon.pm 2008/12/19 00:16:15 1.692.2.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.692.2.5 2008/12/15 08:28:23 raeburn Exp $ +# $Id: loncommon.pm,v 1.692.2.7 2008/12/19 00:16:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9030,7 +9030,9 @@ sub construct_course { 'policy.email', 'comment.email', 'pch.users.denied', - 'plc.users.denied'], + 'plc.users.denied', + 'hidefromcat', + 'categories'], $$crsudom,$$crsunum); } @@ -9488,6 +9490,11 @@ sub init_user_environment { } } + foreach my $tool ('aboutme','blog','portfolio') { + $userenv{'availabletools.'.$tool} = + &Apache::lonnet::usertools_access($username,$domain,$tool,'reload'); + } + $env{'user.environment'} = "$lonids/$cookie.id"; if (tie(my %disk_env,'GDBM_File',"$lonids/$cookie.id",