--- loncom/interface/lonhtmlcommon.pm 2008/12/05 10:23:56 1.192 +++ loncom/interface/lonhtmlcommon.pm 2008/12/12 07:28:09 1.195 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.192 2008/12/05 10:23:56 bisitz Exp $ +# $Id: lonhtmlcommon.pm,v 1.195 2008/12/12 07:28:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1306,7 +1306,7 @@ returns: nothing my ($component,$component_help,$menulink,$helplink,$css_class) = @_; # $css_class ||= 'LC_breadcrumbs'; - my $Str = "\n".'
'; + my $Str = "\n".''; + $Str .= $links.''; # if (defined($component)) { $Str .= ' -
'. @@ -1465,6 +1465,9 @@ returns: nothing # routines, but can also be called directly to start and end rows which have # needs that are not accommodated by the *_select_row() routines. +{ # Start: row_count block for pick_box +my @row_count; + sub start_pick_box { my ($css_class) = @_; if (defined($css_class)) { @@ -1472,6 +1475,7 @@ sub start_pick_box { } else { $css_class= 'class="LC_pick_box"'; } + unshift(@row_count,0); my $output = <<"END"; END @@ -1479,6 +1483,7 @@ END } sub end_pick_box { + shift(@row_count); my $output = <<"END";
END @@ -1493,12 +1498,13 @@ END } sub row_title { + $row_count[0]++; + 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 = 'class="'.$css_title_class.'"'; $css_value_class ||= 'LC_pick_box_value'; - $css_value_class = 'class="'.$css_value_class.'"'; if ($title ne '') { $title .= ':'; @@ -1508,7 +1514,7 @@ sub row_title {
$title + ENDONE return $output; } @@ -1530,6 +1536,9 @@ ENDTWO return $output; } +} # End: row_count block for pick_box + + sub role_select_row { my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_; my $output; @@ -2068,7 +2077,7 @@ sub generate_menu { } $menu_html .= ''; } - $menu_html .= ''; + $menu_html .= ''; } $menu_html .= qq||; return $menu_html;