version 1.77, 2006/03/21 19:43:21
|
version 1.78, 2006/03/21 21:06:35
|
Line 98 sub wysiwygchanger {
|
Line 98 sub wysiwygchanger {
|
my $r = shift; |
my $r = shift; |
my %userenv = &Apache::lonnet::get |
my %userenv = &Apache::lonnet::get |
('environment',['wysiwygeditor']); |
('environment',['wysiwygeditor']); |
my $onselect='checked="1"'; |
my $onselect='checked="checked"'; |
my $offselect=''; |
my $offselect=''; |
if ($userenv{'wysiwygeditor'} eq 'on') { |
if ($userenv{'wysiwygeditor'} eq 'on') { |
$onselect=''; |
$onselect=''; |
$offselect='checked="1"'; |
$offselect='checked="checked"'; |
} |
} |
my $switchoff=&mt('Disable WYSIWYG editor'); |
my $switchoff=&mt('Disable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |
my $switchon=&mt('Enable WYSIWYG editor'); |