version 1.8.4.3, 2009/12/07 22:33:26
|
version 1.8.4.4, 2009/12/08 04:58:14
|
Line 137 sub gcitest_switcher {
|
Line 137 sub gcitest_switcher {
|
foreach my $item (@sorted_courses) { |
foreach my $item (@sorted_courses) { |
foreach my $course (@{$Sortby{$item}}) { |
foreach my $course (@{$Sortby{$item}}) { |
my ($cdom,$cnum) = split('_',$course); |
my ($cdom,$cnum) = split('_',$course); |
$output .= '<option value="cc./'.$cdom.'/'.$cnum.'">'.$item.'</option>'; |
$output .= '<option value="cc./'.$cdom.'/'.$cnum.'">'.$courses{$course}{'description'}.'</option>'; |
} |
} |
} |
} |
$output .= '</select><input type="hidden" name="selectrole" value="" /></form>'; |
$output .= '</select><input type="hidden" name="selectrole" value="" /></form>'; |