|
version 1.130, 2008/12/06 21:13:58
|
version 1.132, 2008/12/23 19:22:13
|
|
Line 193 sub verify_and_change_languages {
|
Line 193 sub verify_and_change_languages {
|
| &Apache::lonnet::delenv('environment\.languages'); |
&Apache::lonnet::delenv('environment\.languages'); |
| $message=&mt('Reset preferred language.'); |
$message=&mt('Reset preferred language.'); |
| } |
} |
| |
&Apache::loncommon::flush_langs_cache($user,$domain); |
| print_main_menu($r, $message); |
print_main_menu($r, $message); |
| # $r->print(<<ENDVCSCREEN); |
# $r->print(<<ENDVCSCREEN); |
| #$message |
#$message |
|
Line 1799 sub print_main_menu {
|
Line 1800 sub print_main_menu {
|
| # build the data structure for menu generation |
# build the data structure for menu generation |
| my $aboutmeurl='/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
my $aboutmeurl='/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
| my $role = ($env{'user.adv'} ? 'Roles' : 'Course'); |
my $role = ($env{'user.adv'} ? 'Roles' : 'Course'); |
| |
my %permissions; |
| |
if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) { |
| |
$permissions{'aboutme'} = 'F'; |
| |
} |
| my @menu= |
my @menu= |
| ({ categorytitle=>'Personal Data', |
({ categorytitle=>'Personal Data', |
| items =>[ |
items =>[ |
| { linktext => 'About Me', |
{ linktext => 'About Me', |
| url => $aboutmeurl, |
url => $aboutmeurl, |
| permission => 'F', |
permission => $permissions{'aboutme'}, |
| #help => 'Prefs_About_Me', |
#help => 'Prefs_About_Me', |
| icon => 'system-users.png', |
icon => 'system-users.png', |
| linktitle => 'Edit information about yourself that should be displayed on your public profile.' |
linktitle => 'Edit information about yourself that should be displayed on your public profile.' |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpreferences.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface