+ get_class_sort_routines($template, $rule->{'sort_routine'});
+
+}
+
+sub get_class_sort_routines {
+ my ($template, $current_routine) = @_;
+
+ my @sort_routines = GetSortRoutineNames();
+ my @sort_form = ();
+
+ foreach my $sort_routine (sort @sort_routines) {
+ push @sort_form, {
+ routine => $sort_routine,
+ selected => $sort_routine eq $current_routine ? 1 : 0
+ };
+ }
+ $template->param(routines_dropdown => \@sort_form);
+