--- loncom/interface/loncommon.pm 2008/12/18 08:33:11 1.723 +++ loncom/interface/loncommon.pm 2008/12/19 00:13:51 1.725 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.723 2008/12/18 08:33:11 riegler Exp $ +# $Id: loncommon.pm,v 1.725 2008/12/19 00:13:51 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -9367,7 +9367,9 @@ sub construct_course { 'policy.email', 'comment.email', 'pch.users.denied', - 'plc.users.denied'], + 'plc.users.denied', + 'hidefromcat', + 'categories'], $$crsudom,$$crsunum); } @@ -9825,6 +9827,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",