version 1.207, 2009/04/07 15:40:38
|
version 1.212, 2009/05/06 13:37:56
|
Line 62 use Apache::lonlocal;
|
Line 62 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use LONCAPA; |
use LONCAPA; |
|
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item confirm_success |
|
|
|
Successful completion of an operation message |
|
|
|
=cut |
|
|
|
sub confirm_success { |
|
my ($message,$failure)=@_; |
|
if ($failure) { |
|
return '<span class="LC_error">'."\n" |
|
.'<img src="/adm/lonIcons/navmap.wrong.gif" /> '."\n" |
|
.$message."\n" |
|
.'</span>'."\n"; |
|
} else { |
|
return '<span class="LC_success">'."\n" |
|
.'<img src="/adm/lonIcons/navmap.correct.gif" /> '."\n" |
|
.$message."\n" |
|
.'</span>'."\n"; |
|
} |
|
} |
|
|
############################################## |
############################################## |
############################################## |
############################################## |
Line 955 sub Create_PrgWin {
|
Line 980 sub Create_PrgWin {
|
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
"popwin.document.writeln(\'".$start_page. |
"popwin.document.writeln(\'".$start_page. |
"<h4>".&mt("$heading")."<\/h4>". |
"<h4>".&mt("$heading")."<\/h4>". |
"<form action= \"\" name=\"popremain\" method=\"post\">". |
"<form action=\"\" name=\"popremain\" method=\"post\">". |
'<input type="text" size="'.$width.'" name="remaining" value="'. |
'<input type="text" size="'.$width.'" name="remaining" value="'. |
&mt('Starting').'" /><\\/form>'.$end_page. |
&mt('Starting').'" /><\\/form>'.$end_page. |
"\');". |
"\');". |
Line 1523 END
|
Line 1548 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.'"'; |
|
|