version 1.313, 2012/12/28 16:12:07
|
version 1.314, 2012/12/28 18:22:13
|
Line 266 sub start_textfield {
|
Line 266 sub start_textfield {
|
my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser, |
my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser, |
$style); |
$style); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2); |
$result.=&Apache::edit::editfield($token->[1],$bodytext,'Text you want to appear by default:',80,2); |
|
my $spell_langs = &spelling_languages(); |
$result .= &Apache::edit::select_arg('Spellcheck for:', 'spellcheck', |
$result .= &Apache::edit::select_arg('Spellcheck for:', 'spellcheck', |
['none', 'en', 'de', 'fr'], $token); |
$spell_langs, $token); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
my $constructtag=&Apache::edit::get_new_args($token,$parstack, |
$safeeval,'rows','cols', |
$safeeval,'rows','cols', |
Line 461 sub start_textline {
|
Line 462 sub start_textline {
|
'addchars',$token,10); |
'addchars',$token,10); |
$result.=&Apache::edit::select_arg('Readonly:','readonly', |
$result.=&Apache::edit::select_arg('Readonly:','readonly', |
['no','yes'],$token); |
['no','yes'],$token); |
|
my $spell_langs = &spelling_languages(); |
$result.=&Apache::edit::select_arg("Spellcheck for: ", 'spellcheck', |
$result.=&Apache::edit::select_arg("Spellcheck for: ", 'spellcheck', |
['none', 'en', 'de', 'fr'], $token); |
$spell_langs, $token); |
$result.=&Apache::edit::end_row(); |
$result.=&Apache::edit::end_row(); |
$result.=&Apache::edit::end_table(); |
$result.=&Apache::edit::end_table(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
Line 1755 sub get_tries_text {
|
Line 1757 sub get_tries_text {
|
return $tries_text; |
return $tries_text; |
} |
} |
|
|
|
sub spelling_languages { |
|
my %langchoices; |
|
foreach my $id (&Apache::loncommon::languageids()) { |
|
my $code = &Apache::loncommon::supportedlanguagecode($id); |
|
if ($code ne '') { |
|
$langchoices{$code} = &Apache::loncommon::plainlanguagedescription($id); |
|
} |
|
} |
|
my @spelllangs = ('none'); |
|
foreach my $code ('en','de','he','es','fr','pt','tr') { |
|
push(@spelllangs,[$code,$langchoices{$code}]); |
|
} |
|
return \@spelllangs; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |
|
|