--- loncom/interface/lonmenu.pm 2009/05/06 12:13:18 1.262 +++ loncom/interface/lonmenu.pm 2009/05/16 18:06:41 1.265 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.262 2009/05/06 12:13:18 raeburn Exp $ +# $Id: lonmenu.pm,v 1.265 2009/05/16 18:06:41 tempelho Exp $ # # Copyright Michigan State University Board of Trustees # @@ -369,19 +369,18 @@ $utility
  • $helplink
  • $lt{'exit'}
  • -
      +
    + $form -
    $reg ENDINLINEMENU } else { @@ -1644,7 +1643,7 @@ sub roles_selector { } } if ($is_cc) { - &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount); + &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount); } else { my %gotnosection; foreach my $item (keys(%env)) { @@ -1662,7 +1661,7 @@ sub roles_selector { } if (ref($courseroles{$role}) eq 'ARRAY') { if ($sec ne '') { - if (!grep(/^Q$sec\E$/,@{$courseroles{$role}})) { + if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) { push(@{$courseroles{$role}},$sec); $seccount{$role} ++; }