version 1.208, 2009/04/25 16:53:13
|
version 1.210, 2009/04/29 18:42:38
|
Line 74 Successful completion of an operation me
|
Line 74 Successful completion of an operation me
|
=cut |
=cut |
|
|
sub confirm_success { |
sub confirm_success { |
my ($message)=@_; |
my ($message,$failure)=@_; |
return '<span class="LC_success_confirm">'. |
if ($failure) { |
|
return '<span class="LC_error">'. |
|
$message. |
|
' <img src="/adm/lonIcons/navmap.wrong.gif" /></span>'; |
|
} else { |
|
return '<span class="LC_success">'. |
$message. |
$message. |
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>'; |
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>'; |
|
} |
} |
} |
|
|
############################################## |
############################################## |
Line 1540 END
|
Line 1546 END
|
} |
} |
|
|
sub row_title { |
sub row_title { |
|
my ($title,$css_title_class,$css_value_class) = @_; |
$row_count[0]++; |
$row_count[0]++; |
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row'; |
my $css_class = ($row_count[0] % 2)?'LC_odd_row':'LC_even_row'; |
my ($title,$css_title_class,$css_value_class) = @_; |
|
$css_title_class ||= 'LC_pick_box_title'; |
$css_title_class ||= 'LC_pick_box_title'; |
$css_title_class = 'class="'.$css_title_class.'"'; |
$css_title_class = 'class="'.$css_title_class.'"'; |
|
|