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; |
} |
} |