version 1.208, 2009/04/25 16:53:13
|
version 1.217, 2009/05/20 20:27:37
|
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) { |
$message. |
return '<span class="LC_error">'."\n" |
' <img src="/adm/lonIcons/navmap.correct.gif" /></span>'; |
.'<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 972 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 1322 returns: nothing
|
Line 1330 returns: nothing
|
my @Crumbs; |
my @Crumbs; |
|
|
sub breadcrumbs { |
sub breadcrumbs { |
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $no_realBreadcrumb) = @_; |
my ($component,$component_help,$menulink,$helplink,$css_class,$no_mt, $CourseBreadcrumbs) = @_; |
# |
# |
$css_class ||= 'LC_breadcrumbs'; |
$css_class ||= 'LC_breadcrumbs'; |
my $Str1 = '<ol id="LC_MenuBreadcrumbs">'; |
my $Str1 = '<div id="LC_head_subbox"><ol id="LC_MenuBreadcrumbs">'; |
|
|
if($no_realBreadcrumb){ |
if($CourseBreadcrumbs){ |
$Str1 = '<ul class="LC_CourseBreadcrumbs">'; |
$Str1 = '<ul id="LC_CourseBreadcrumbs">'; |
} |
} |
|
|
my $Str = ''; |
my $Str = ''; |
Line 1336 returns: nothing
|
Line 1344 returns: nothing
|
# Make the faq and bug data cascade |
# Make the faq and bug data cascade |
my $faq = ''; |
my $faq = ''; |
my $bug = ''; |
my $bug = ''; |
my $help=''; |
my $help=''; |
# Crumb Symbol |
# Crumb Symbol |
my $crumbsymbol = '» '; |
my $crumbsymbol = '» '; |
# The last breadcrumb does not have a link, so handle it separately. |
# The last breadcrumb does not have a link, so handle it separately. |
my $last = pop(@Crumbs); |
my $last = pop(@Crumbs); |
# |
# |
# The first one should be the course or a menu link |
# The first one should be the course or a menu link |
if (!defined($menulink)) { $menulink=1; } |
if (!defined($menulink)) { $menulink=1; } |
if ($menulink) { |
if ($menulink) { |
my $description = 'Menu'; |
my $description = 'Menu'; |
my $no_mt_descr = 0; |
my $no_mt_descr = 0; |
Line 1353 returns: nothing
|
Line 1361 returns: nothing
|
$env{'course.'.$env{'request.course.id'}.'.description'}; |
$env{'course.'.$env{'request.course.id'}.'.description'}; |
$no_mt_descr = 1; |
$no_mt_descr = 1; |
} |
} |
unshift(@Crumbs,{ |
$menulink = { href =>'/adm/menu', |
href =>'/adm/menu', |
title =>'Go to main menu', |
title =>'Go to main menu', |
target =>'_top', |
target =>'_top', |
text =>$description, |
text =>$description, |
no_mt =>$no_mt_descr, }; |
no_mt =>$no_mt_descr, |
if($last) { |
}); |
#$last set, so we have some crumbs |
|
unshift(@Crumbs,$menulink); |
|
} else { |
|
#only menulink crumb present |
|
$last = $menulink; |
|
} |
} |
} |
my $links .= '<li>'. |
my $links .= '<li>'. |
join('</li><li>'.$crumbsymbol, |
join('</li><li>'.$crumbsymbol, |
Line 1414 returns: nothing
|
Line 1427 returns: nothing
|
# |
# |
|
|
|
|
if($no_realBreadcrumb){ |
if($CourseBreadcrumbs){ |
$Str1 .= $links.'</ul>'; |
$Str1 .= $links.'</ul>'; |
} else { |
} else { |
$Str1 .= $links.'</ol>'; |
$Str1 .= $links.'</ol></div>'; |
} |
} |
# |
# |
if (defined($component)) { |
if (defined($component)) { |
Line 1540 END
|
Line 1553 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.'"'; |
|
|
Line 1759 sub email_default_row {
|
Line 1772 sub email_default_row {
|
|
|
sub submit_row { |
sub submit_row { |
my ($title,$cmd,$submit_text,$css_class) = @_; |
my ($title,$cmd,$submit_text,$css_class) = @_; |
$submit_text = &mt($submit_text); |
|
my $output = &row_title($title,$css_class,'LC_pick_box_submit'); |
my $output = &row_title($title,$css_class,'LC_pick_box_submit'); |
$output .= qq| |
$output .= qq| |
<br /> |
<br /> |
Line 1801 sub topic_bar {
|
Line 1813 sub topic_bar {
|
return ' |
return ' |
<div class="LC_topic_bar"> |
<div class="LC_topic_bar"> |
<img alt="'.&mt('Step [_1]',$imgnum). |
<img alt="'.&mt('Step [_1]',$imgnum). |
'"src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> |
' "src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> |
<span>'.$title.'</span> |
<span>'.$title.'</span> |
</div> |
</div> |
'; |
'; |