[system] / branches / rel-2-4-dev / webwork-modperl / lib / WeBWorK / ContentGenerator / Instructor / SetMaker.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-4-dev/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3594 Revision 3595
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.55 2005/08/28 23:09:27 jj Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.56 2005/09/01 01:10:35 dpvc 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.
… …
885 my $maxShown = $r->param('max_shown') || MAX_SHOW_DEFAULT; 885 my $maxShown = $r->param('max_shown') || MAX_SHOW_DEFAULT;
886 $maxShown = 10000000 if($maxShown eq 'All'); # let's hope there aren't more 886 $maxShown = 10000000 if($maxShown eq 'All'); # let's hope there aren't more
887 my $library_basic = $r->param('library_is_basic') || 1; 887 my $library_basic = $r->param('library_is_basic') || 1;
888 888
889 ## Fix some parameters 889 ## Fix some parameters
890 clear_default($r,'library_subjects', ALL_SUBJECTS); 890 for my $key (keys(%{ LIB2_DATA() })) {
891 clear_default($r,'library_chapters', ALL_CHAPTERS); 891 clear_default($r, LIB2_DATA->{$key}->{name}, LIB2_DATA->{$key}->{all} );
892 clear_default($r,'library_sections', ALL_SECTIONS); 892 }
893 clear_default($r,'library_textbook', ALL_TEXTBOOKS);
894 893
895 ## These directories will have individual buttons 894 ## These directories will have individual buttons
896 %problib = %{$ce->{courseFiles}{problibs}} if $ce->{courseFiles}{problibs}; 895 %problib = %{$ce->{courseFiles}{problibs}} if $ce->{courseFiles}{problibs};
897 896
898 my $userName = $r->param('user'); 897 my $userName = $r->param('user');
Legend:
Removed from v.3594  
changed lines
  Added in v.3595
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9