| 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/ContentGenerator/Instructor/SetMaker.pm,v 1.39 2005/07/22 22:54:57 jj Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.40 2005/07/25 17:29:31 jj 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. |
| … | |
… | |
| 538 | CGI::submit(-name=>"browse_mysets", -value=>"From This Course", -style=>$these_widths, $dis3), |
538 | CGI::submit(-name=>"browse_mysets", -value=>"From This Course", -style=>$these_widths, $dis3), |
| 539 | CGI::submit(-name=>"browse_setdefs", -value=>"Set Definition Files", -style=>$these_widths, $dis4), |
539 | CGI::submit(-name=>"browse_setdefs", -value=>"Set Definition Files", -style=>$these_widths, $dis4), |
| 540 | $libs, |
540 | $libs, |
| 541 | )); |
541 | )); |
| 542 | |
542 | |
| 543 | print CGI::Tr(CGI::td({-bgcolor=>"black"})); |
543 | #print CGI::Tr(CGI::td({-bgcolor=>"black"})); |
|
|
544 | print CGI::hr(); |
| 544 | |
545 | |
| 545 | if ($browse_which eq 'browse_local') { |
546 | if ($browse_which eq 'browse_local') { |
| 546 | $self->browse_local_panel($library_selected); |
547 | $self->browse_local_panel($library_selected); |
| 547 | } elsif ($browse_which eq 'browse_mysets') { |
548 | } elsif ($browse_which eq 'browse_mysets') { |
| 548 | $self->browse_mysets_panel($library_selected, $list_of_local_sets); |
549 | $self->browse_mysets_panel($library_selected, $list_of_local_sets); |