+
+ % if ($filePath eq 'techniques') { + % for (['A' .. 'C'], ['D' .. 'F'], ['G' .. 'N'], ['O' .. 'Z']) { +
+

+ <%= maketext('Sample Problems for Techniques: [_1]', "$_->[0] .. $_->[-1]") =%> +

+
    + % my $b = join('', @$_); + % for (sort grep { substr($_, 0, 1 ) =~ qr/^[$b]/i } keys(%$list)) { +
  • <%= link_to $_ => 'sample_problem_viewer', { filePath => $list->{$_} } %>
  • + % } +
+
+ % } + % } else { + % my %topics = ( + % categories => maketext('Catetory'), + % subjects => maketext('Subject'), + % macros => maketext('Macro') + % ); + % for (sort(keys %$list)) { + % my $id = ($_ =~ s/\s/_/gr) =~ s/\./_/gr; +
+

<%= maketext('Sample Problems for [_1]: [_2]', $topics{$filePath}, $_) %>

+
    + % for my $link (sort (keys %{ $list->{$_} })) { +
  • + <%= link_to $link => 'sample_problem_viewer', { filePath => $list->{$_}{$link} } %> +
  • + % } +
+
+ % } + % } +
+