|
version 1.232, 2009/08/13 14:32:33
|
version 1.235, 2009/09/08 20:48:34
|
|
Line 82 sub confirm_success {
|
Line 82 sub confirm_success {
|
| .'</span>'."\n"; |
.'</span>'."\n"; |
| } else { |
} else { |
| return '<span class="LC_success">'."\n" |
return '<span class="LC_success">'."\n" |
| .'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('Ok').'" /> '."\n" |
.'<img src="/adm/lonIcons/navmap.correct.gif" alt="'.&mt('OK').'" /> '."\n" |
| .$message."\n" |
.$message."\n" |
| .'</span>'."\n"; |
.'</span>'."\n"; |
| } |
} |
|
Line 1945 sub set_form_elements {
|
Line 1945 sub set_form_elements {
|
| $values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g; |
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g; |
| $values{$name}[$i] =~ s/"/\\"/g; |
$values{$name}[$i] =~ s/"/\\"/g; |
| } |
} |
| if ($$elements{$name} eq 'text') { |
if (($$elements{$name} eq 'text') || ($$elements{$name} eq 'hidden')) { |
| my $numvalues = @{$values{$name}}; |
my $numvalues = @{$values{$name}}; |
| if ($numvalues > 1) { |
if ($numvalues > 1) { |
| my $valuestring = join('","',@{$values{$name}}); |
my $valuestring = join('","',@{$values{$name}}); |
|
Line 1980 sub set_form_elements {
|
Line 1980 sub set_form_elements {
|
| $output .= qq| |
$output .= qq| |
| if (courseForm.elements['$name'].value == "$value") { |
if (courseForm.elements['$name'].value == "$value") { |
| courseForm.elements['$name'].checked = true; |
courseForm.elements['$name'].checked = true; |
| |
} else { |
| |
courseForm.elements['$name'].checked = false; |
| }|; |
}|; |
| } |
} |
| } |
} |
|
Line 2021 sub set_form_elements {
|
Line 2023 sub set_form_elements {
|
| } |
} |
| } |
} |
| $output .= " |
$output .= " |
| |
return; |
| }\n"; |
}\n"; |
| return $output; |
return $output; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface