version 1.128, 2008/12/03 20:29:40
|
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 772 sub msgforwardchanger {
|
Line 773 sub msgforwardchanger {
|
foad => 'Forwarding Address(es)', |
foad => 'Forwarding Address(es)', |
noti => 'Notification E-mail Address(es)', |
noti => 'Notification E-mail Address(es)', |
foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>', |
foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>', |
mnot => 'Email Address(es) which should be notified about new LON-CAPA messages', # old: 'Message Notification Email Address(es)', |
mnot => 'E-mail Address(es) which should be notified about new LON-CAPA messages', |
|
# old: 'Message Notification Email Address(es)', |
mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>', |
mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>', |
chg => 'Change', |
chg => 'Change', |
email => 'The e-mail address entered in row ', |
email => 'The e-mail address entered in row ', |
Line 1798 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.' |
Line 2119 sub handler2 {
|
Line 2125 sub handler2 {
|
})); |
})); |
|
|
push (@Options,({ action => 'changemsgforward', |
push (@Options,({ action => 'changemsgforward', |
linktext => 'Change Message Forwarding and Notification Email Addresses', |
linktext => 'Change Message Forwarding and Notification E-mail Addresses', |
href => '/adm/preferences', |
href => '/adm/preferences', |
help => 'Prefs_Messages', |
help => 'Prefs_Messages', |
breadcrumb => |
breadcrumb => |