version 1.63, 2010/07/08 23:19:19
|
version 1.65, 2010/10/07 14:41:49
|
Line 89 sub handler {
|
Line 89 sub handler {
|
\%idx,\@jsarray,$subcats); |
\%idx,\@jsarray,$subcats); |
my ($numtitles,@codetitles); |
my ($numtitles,@codetitles); |
if ($env{'form.coursenum'} ne '' && &user_is_known()) { |
if ($env{'form.coursenum'} ne '' && &user_is_known()) { |
if ($env{'form.currcat_0'} eq 'instcode::0') { |
|
$numtitles = &instcode_course_selector($r,$codedom,$formname,$domdesc, |
|
undef,undef,\@codetitles); |
|
} |
|
&course_details($r,$codedom,$formname,$domdesc,\@trails,\%allitems,\@codetitles); |
&course_details($r,$codedom,$formname,$domdesc,\@trails,\%allitems,\@codetitles); |
} else { |
} else { |
my ($catlinks,$has_subcats,$selitem) = &category_breadcrumbs($codedom,@cats); |
my ($catlinks,$has_subcats,$selitem) = &category_breadcrumbs($codedom,@cats); |
Line 399 sub category_breadcrumbs {
|
Line 395 sub category_breadcrumbs {
|
$catlinks .= '<option value="">'.&mt('De-select').'</option>'; |
$catlinks .= '<option value="">'.&mt('De-select').'</option>'; |
for (my $j=0; $j<@{$cats[$shallower]{$container}}; $j++) { |
for (my $j=0; $j<@{$cats[$shallower]{$container}}; $j++) { |
my $name = $cats[$shallower]{$container}[$j]; |
my $name = $cats[$shallower]{$container}[$j]; |
my $item = &escape($name).':'.$container.':'.$shallower; |
my $item = &escape($name).':'.&escape($container).':'.$shallower; |
my $selected = ''; |
my $selected = ''; |
if ($item eq $env{'form.currcat_'.$shallower}) { |
if ($item eq $env{'form.currcat_'.$shallower}) { |
$selected = ' selected="selected"'; |
$selected = ' selected="selected"'; |