version 1.123, 2008/05/28 23:50:53
|
version 1.125.2.1, 2008/12/12 19:57:58
|
Line 108 sub wysiwygchanger {
|
Line 108 sub wysiwygchanger {
|
} |
} |
my $switchoff=&mt('Disable WYSIWYG editor'); |
my $switchoff=&mt('Disable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |
|
my $warning=''; |
|
if ($env{'user.adv'}) { |
|
$warning.="<p>".&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."</p>"; |
|
} |
$r->print(<<ENDLSCREEN); |
$r->print(<<ENDLSCREEN); |
<form name="prefs" action="/adm/preferences" method="post"> |
<form name="prefs" action="/adm/preferences" method="post"> |
<input type="hidden" name="action" value="set_wysiwyg" /> |
<input type="hidden" name="action" value="set_wysiwyg" /> |
|
$warning |
<br /> |
<br /> |
<label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br /> |
<label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br /> |
<label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label> |
<label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label> |
Line 1777 sub handler {
|
Line 1782 sub handler {
|
text => 'Change Message Forwarding/Notification'}, |
text => 'Change Message Forwarding/Notification'}, |
printmenu => 'no', |
printmenu => 'no', |
subroutine => \&verify_and_change_msgforward })); |
subroutine => \&verify_and_change_msgforward })); |
my $aboutmeaction= |
if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) { |
'/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme'; |
my $aboutmeaction = '/adm/'.$domain.'/'.$user.'/aboutme'; |
push (@Options,{ action => 'none', |
push (@Options,{ action => 'none', |
linktext => |
linktext => |
q{Edit the 'About Me' Personal Information Screen}, |
q{Edit the 'About Me' Personal Information Screen}, |
help => 'Prefs_About_Me', |
help => 'Prefs_About_Me', |
href => $aboutmeaction}); |
href => $aboutmeaction}); |
|
} |
push (@Options,({ action => 'changecolors', |
push (@Options,({ action => 'changecolors', |
linktext => 'Change Color Scheme', |
linktext => 'Change Color Scheme', |
href => '/adm/preferences', |
href => '/adm/preferences', |
Line 1924 sub handler {
|
Line 1930 sub handler {
|
text => 'Register Clicker'}, |
text => 'Register Clicker'}, |
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
if ($env{'user.adv'}) { |
my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']); |
|
if (keys(%author_roles) > 0) { |
push (@Options,({ action => 'changedomcoord', |
push (@Options,({ action => 'changedomcoord', |
linktext => 'Restrict Domain Coordinator Access', |
linktext => 'Restrict Domain Coordinator Access', |
href => '/adm/preferences', |
href => '/adm/preferences', |