--- loncom/interface/loncommon.pm 2010/08/24 09:11:37 1.979 +++ loncom/interface/loncommon.pm 2010/09/24 03:14:58 1.980 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.979 2010/08/24 09:11:37 wenzelju Exp $ +# $Id: loncommon.pm,v 1.980 2010/09/24 03:14:58 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4699,7 +4699,7 @@ sub bodytag { sub dc_courseid_toggle { my ($dc_info) = @_; - return ' '. + return ' '. ''. &mt('(More ...)').''. '
'.$dc_info.'
'; @@ -10649,15 +10649,20 @@ sub init_user_environment { $env{'browser.interface'}=$form->{'interface'}; } + my %is_adv = ( is_adv => &Apache::lonnet::is_advanced_user($domain,$username) ); + my %domdef = &Apache::lonnet::get_domain_defaults($domain); + foreach my $tool ('aboutme','blog','portfolio') { $userenv{'availabletools.'.$tool} = - &Apache::lonnet::usertools_access($username,$domain,$tool,'reload'); + &Apache::lonnet::usertools_access($username,$domain,$tool,'reload', + undef,\%userenv,\%domdef,\%is_adv); } foreach my $crstype ('official','unofficial','community') { $userenv{'canrequest.'.$crstype} = &Apache::lonnet::usertools_access($username,$domain,$crstype, - 'reload','requestcourses'); + 'reload','requestcourses', + \%userenv,\%domdef,\%is_adv); } $env{'user.environment'} = "$lonids/$cookie.id";