| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/HTML/ScrollingRecordList.pm,v 1.3 2004/05/23 18:28:44 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/HTML/ScrollingRecordList.pm,v 1.4 2004/05/23 23:35:42 mschmitt Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 85 | |
85 | |
| 86 | if (@Records) { |
86 | if (@Records) { |
| 87 | my $class = ref $Records[0]; |
87 | my $class = ref $Records[0]; |
| 88 | |
88 | |
| 89 | ($filters, $filter_labels) = getFiltersForClass(@Records); |
89 | ($filters, $filter_labels) = getFiltersForClass(@Records); |
| 90 | if (defined $r->param("$name!filter")){warn "Param =", $r->param("$name!filter"); |
90 | if (defined $r->param("$name!filter")){ |
| 91 | @selected_filters = $r->param("$name!filter"); |
91 | @selected_filters = $r->param("$name!filter"); |
| 92 | @selected_filters = ("all") unless @selected_filters; |
92 | @selected_filters = ("all") unless @selected_filters; |
| 93 | } |
93 | } |
| 94 | else { |
94 | else { |
| 95 | @selected_filters = @default_filters; |
95 | @selected_filters = @default_filters; |