| 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: webwork2/lib/WeBWorK/HTML/ScrollingRecordList.pm,v 1.5 2004/06/08 00:04:45 sh002i Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/HTML/ScrollingRecordList.pm,v 1.6 2004/09/10 22:15:48 sh002i 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. |
| … | |
… | |
| 78 | my $filter_labels = {}; |
78 | my $filter_labels = {}; |
| 79 | my @selected_filters= (); |
79 | my @selected_filters= (); |
| 80 | |
80 | |
| 81 | my @ids = (); |
81 | my @ids = (); |
| 82 | my %labels = (); |
82 | my %labels = (); |
|
|
83 | |
|
|
84 | my $refresh_button_name = defined($options{refresh_button_name}) ? $options{refresh_button_name}:"Change Display Settings"; |
| 83 | |
85 | |
| 84 | my @selected_records = $r->param("$name"); |
86 | my @selected_records = $r->param("$name"); |
| 85 | |
87 | |
| 86 | if (@Records) { |
88 | if (@Records) { |
| 87 | my $class = ref $Records[0]; |
89 | my $class = ref $Records[0]; |
| … | |
… | |
| 164 | |
166 | |
| 165 | CGI::td({-align=>"right"},"Filter: "). |
167 | CGI::td({-align=>"right"},"Filter: "). |
| 166 | CGI::td(CGI::scrolling_list(%filter_options)), |
168 | CGI::td(CGI::scrolling_list(%filter_options)), |
| 167 | ]), |
169 | ]), |
| 168 | ), |
170 | ), |
| 169 | CGI::submit("$name!refresh", "Change Display Settings"), CGI::br(), |
171 | CGI::submit("$name!refresh", $refresh_button_name), CGI::br(), |
| 170 | CGI::scrolling_list(%list_options), |
172 | CGI::scrolling_list(%list_options), |
| 171 | ); |
173 | ); |
| 172 | } |
174 | } |
| 173 | |
175 | |
| 174 | 1; |
176 | 1; |
Parent Directory
| 
Revision Log
| 
Patch