Parent Directory
| 
Revision Log
Revision 2431 - (view) (download) (as text)
| 1 : | jj | 1994 | ################################################################################ |
| 2 : | # WeBWorK Online Homework Delivery System | ||
| 3 : | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ | ||
| 4 : | dpvc | 2431 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SetMaker.pm,v 1.20 2004/06/09 02:51:57 jj Exp $ |
| 5 : | jj | 1994 | # |
| 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 | ||
| 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. | ||
| 10 : | # | ||
| 11 : | # This program is distributed in the hope that it will be useful, but WITHOUT | ||
| 12 : | # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS | ||
| 13 : | # FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the | ||
| 14 : | # Artistic License for more details. | ||
| 15 : | ################################################################################ | ||
| 16 : | |||
| 17 : | |||
| 18 : | package WeBWorK::ContentGenerator::Instructor::SetMaker; | ||
| 19 : | use base qw(WeBWorK::ContentGenerator::Instructor); | ||
| 20 : | |||
| 21 : | =head1 NAME | ||
| 22 : | |||
| 23 : | WeBWorK::ContentGenerator::Instructor::SetMaker - Make problem sets. | ||
| 24 : | |||
| 25 : | =cut | ||
| 26 : | |||
| 27 : | use strict; | ||
| 28 : | use warnings; | ||
| 29 : | |||
| 30 : | use CGI::Pretty qw(); | ||
| 31 : | use WeBWorK::Form; | ||
| 32 : | use WeBWorK::Utils qw(readDirectory max); | ||
| 33 : | use WeBWorK::Utils::Tasks qw(renderProblems); | ||
| 34 : | |||
| 35 : | require WeBWorK::Utils::ListingDB; | ||
| 36 : | |||
| 37 : | jj | 2225 | use constant MAX_SHOW_DEFAULT => 20; |
| 38 : | jj | 2152 | use constant NO_LOCAL_SET_STRING => 'There are no local sets yet'; |
| 39 : | use constant SELECT_SET_STRING => 'Select a Set for This Course'; | ||
| 40 : | dpvc | 2431 | use constant SELECT_LOCAL_STRING => 'Select a Problem Collection'; |
| 41 : | use constant MY_PROBLEMS => ' My Problems '; | ||
| 42 : | use constant MAIN_PROBLEMS => ' Main Problems '; | ||
| 43 : | jj | 1994 | |
| 44 : | jj | 2116 | ## Flags for operations on files |
| 45 : | |||
| 46 : | use constant ADDED => 1; | ||
| 47 : | use constant HIDDEN => (1 << 1); | ||
| 48 : | use constant SUCCESS => (1 << 2); | ||
| 49 : | |||
| 50 : | dpvc | 2431 | ## for additional problib buttons |
| 51 : | my %problib; ## filled in in global.conf | ||
| 52 : | my %ignoredir = ('.' => 1, '..' => 1, 'Library' => 1); | ||
| 53 : | |||
| 54 : | jj | 2039 | ## This is for searching the disk for directories containing pg files. |
| 55 : | jj | 1994 | ## to make the recursion work, this returns an array where the first |
| 56 : | ## item is 1 or 0 depending on whether or not the current | ||
| 57 : | ## directory has any pg files. The second is a list of directories | ||
| 58 : | ## which contain pg files. | ||
| 59 : | sub get_library_sets { | ||
| 60 : | jj | 2024 | my $amtop = shift; |
| 61 : | jj | 1994 | my $topdir = shift; |
| 62 : | my @lis = readDirectory($topdir); | ||
| 63 : | dpvc | 2431 | my @pgs = grep { m/\.pg$/ and (not m/(Header|-text)\.pg/) and -f "$topdir/$_"} @lis; |
| 64 : | jj | 1994 | my $havepg = scalar(@pgs)>0 ? 1 : 0; |
| 65 : | dpvc | 2431 | my @mdirs = grep {!defined($ignoredir{$_}) and -d "$topdir/$_"} @lis; |
| 66 : | if ($amtop) {@mdirs = grep {!defined($problib{$_})} @mdirs} | ||
| 67 : | jj | 1994 | my ($adir, @results, @thisresult); |
| 68 : | for $adir (@mdirs) { | ||
| 69 : | jj | 2024 | @results = get_library_sets(0, "$topdir/$adir"); |
| 70 : | jj | 1994 | my $isadirok = shift @results; |
| 71 : | @thisresult = (@thisresult, @results); | ||
| 72 : | if ($isadirok) { | ||
| 73 : | @thisresult = ("$topdir/$adir", @thisresult); | ||
| 74 : | } | ||
| 75 : | } | ||
| 76 : | return(($havepg, @thisresult)); | ||
| 77 : | } | ||
| 78 : | |||
| 79 : | ## List all the pg files in the requested directory | ||
| 80 : | sub list_pg_files { | ||
| 81 : | my $templatedir = shift; | ||
| 82 : | my $topdir = shift; | ||
| 83 : | |||
| 84 : | my @lis = readDirectory("$templatedir/$topdir"); | ||
| 85 : | dpvc | 2431 | my @pgs = grep { m/\.pg$/ and (not m/(Header|-text)\.pg/) and -f "$templatedir/$topdir/$_"} @lis; |
| 86 : | jj | 1994 | @pgs = map { "$topdir/$_" } @pgs; |
| 87 : | return(@pgs); | ||
| 88 : | } | ||
| 89 : | |||
| 90 : | ## go through past page getting a list of identifiers for the problems | ||
| 91 : | ## and whether or not they are selected, and whether or not they should | ||
| 92 : | ## be hidden | ||
| 93 : | |||
| 94 : | sub get_past_problem_files { | ||
| 95 : | my $r = shift; | ||
| 96 : | my @found=(); | ||
| 97 : | my $count =1; | ||
| 98 : | while (defined($r->param("filetrial$count"))) { | ||
| 99 : | jj | 2116 | my $val = 0; |
| 100 : | $val |= ADDED if($r->param("trial$count")); | ||
| 101 : | $val |= HIDDEN if($r->param("hideme$count")); | ||
| 102 : | push @found, [$r->param("filetrial$count"), $val]; | ||
| 103 : | jj | 1994 | $count++; |
| 104 : | } | ||
| 105 : | jj | 2116 | return(\@found); |
| 106 : | jj | 1994 | } |
| 107 : | |||
| 108 : | #### For adding new problems | ||
| 109 : | |||
| 110 : | sub add_selected { | ||
| 111 : | my $self = shift; | ||
| 112 : | my $db = shift; | ||
| 113 : | my $setName = shift; | ||
| 114 : | jj | 2116 | my @past_problems = @{$self->{past_problems}}; |
| 115 : | my @selected = @past_problems; | ||
| 116 : | jj | 1994 | my (@path, $file, $selected, $freeProblemID); |
| 117 : | $freeProblemID = max($db->listGlobalProblems($setName)) + 1; | ||
| 118 : | jj | 2116 | my $addedcount=0; |
| 119 : | jj | 1994 | |
| 120 : | for $selected (@selected) { | ||
| 121 : | jj | 2116 | if($selected->[1] & ADDED) { |
| 122 : | $file = $selected->[0]; | ||
| 123 : | jj | 2283 | my $problemRecord = $self->addProblemToSet(setName => $setName, |
| 124 : | sourceFile => $file, problemID => $freeProblemID); | ||
| 125 : | $freeProblemID++; | ||
| 126 : | jj | 2116 | $self->assignProblemToAllSetUsers($problemRecord); |
| 127 : | jj | 2230 | $selected->[1] |= SUCCESS; |
| 128 : | jj | 2116 | $addedcount++; |
| 129 : | } | ||
| 130 : | jj | 1994 | } |
| 131 : | jj | 2116 | return($addedcount); |
| 132 : | jj | 1994 | } |
| 133 : | |||
| 134 : | |||
| 135 : | jj | 2039 | ############# List of sets of problems in templates directory |
| 136 : | jj | 1994 | |
| 137 : | jj | 2115 | sub get_problem_directories { |
| 138 : | jj | 1994 | my $ce = shift; |
| 139 : | dpvc | 2431 | my $lib = shift; |
| 140 : | my $source = $ce->{courseDirs}{templates}; | ||
| 141 : | my $main = MY_PROBLEMS; my $isTop = 1; | ||
| 142 : | if ($lib) {$source .= "/$lib"; $main = MAIN_PROBLEMS; $isTop = 0} | ||
| 143 : | my @all_problem_directories = get_library_sets($isTop, $source); | ||
| 144 : | jj | 2115 | my $includetop = shift @all_problem_directories; |
| 145 : | jj | 1994 | my $j; |
| 146 : | jj | 2115 | for ($j=0; $j<scalar(@all_problem_directories); $j++) { |
| 147 : | $all_problem_directories[$j] =~ s|^$ce->{courseDirs}->{templates}/?||; | ||
| 148 : | jj | 1994 | } |
| 149 : | jj | 2115 | @all_problem_directories = sort @all_problem_directories; |
| 150 : | dpvc | 2431 | unshift @all_problem_directories, $main if($includetop); |
| 151 : | jj | 2115 | return (\@all_problem_directories); |
| 152 : | jj | 1994 | } |
| 153 : | |||
| 154 : | jj | 2225 | ############# Everyone has a view problems line. Abstract it |
| 155 : | sub view_problems_line { | ||
| 156 : | my $internal_name = shift; | ||
| 157 : | my $label = shift; | ||
| 158 : | my $r = shift; # so we can get parameter values | ||
| 159 : | my $result = CGI::submit(-name=>"$internal_name", -value=>$label); | ||
| 160 : | |||
| 161 : | my %display_modes = %{WeBWorK::PG::DISPLAY_MODES()}; | ||
| 162 : | my @active_modes = grep { exists $display_modes{$_} } | ||
| 163 : | @{$r->ce->{pg}->{displayModes}}; | ||
| 164 : | push @active_modes, 'None'; | ||
| 165 : | # We have our own displayMode since its value may be None, which is illegal | ||
| 166 : | # in other modules. | ||
| 167 : | my $mydisplayMode = $r->param('mydisplayMode') || $r->ce->{pg}->{options}->{displayMode}; | ||
| 168 : | $result .= ' Display Mode: '.CGI::popup_menu(-name=> 'mydisplayMode', | ||
| 169 : | -values=>\@active_modes, | ||
| 170 : | -default=> $mydisplayMode); | ||
| 171 : | # Now we give a choice of the number of problems to show | ||
| 172 : | my $defaultMax = $r->param('max_shown') || MAX_SHOW_DEFAULT; | ||
| 173 : | $result .= ' Max. Shown: '. | ||
| 174 : | CGI::popup_menu(-name=> 'max_shown', | ||
| 175 : | -values=>[5,10,15,20,25,30,50,'All'], | ||
| 176 : | -default=> $defaultMax); | ||
| 177 : | |||
| 178 : | return($result); | ||
| 179 : | } | ||
| 180 : | |||
| 181 : | |||
| 182 : | jj | 1994 | ### The browsing panel has three versions |
| 183 : | ##### Version 1 is local problems | ||
| 184 : | sub browse_local_panel { | ||
| 185 : | my $self = shift; | ||
| 186 : | my $library_selected = shift; | ||
| 187 : | dpvc | 2431 | my $lib = shift || ''; $lib =~ s/^browse_//; |
| 188 : | my $name = ($lib eq '')? 'Local' : $problib{$lib}; | ||
| 189 : | jj | 1994 | |
| 190 : | dpvc | 2431 | my $list_of_prob_dirs= get_problem_directories($self->r->ce,$lib); |
| 191 : | jj | 2115 | if(scalar(@$list_of_prob_dirs) == 0) { |
| 192 : | $library_selected = "Found no directories containing problems"; | ||
| 193 : | unshift @{$list_of_prob_dirs}, $library_selected; | ||
| 194 : | } else { | ||
| 195 : | jj | 2152 | my $default_value = SELECT_LOCAL_STRING; |
| 196 : | jj | 2115 | if (not $library_selected or $library_selected eq $default_value) { |
| 197 : | unshift @{$list_of_prob_dirs}, $default_value; | ||
| 198 : | $library_selected = $default_value; | ||
| 199 : | } | ||
| 200 : | jj | 1994 | } |
| 201 : | jj | 2225 | my $view_problem_line = view_problems_line('view_local_set', 'View Problems', $self->r); |
| 202 : | dpvc | 2431 | print CGI::Tr(CGI::td({-class=>"InfoPanel", -align=>"left"}, "$name Problems: ", |
| 203 : | jj | 1994 | CGI::popup_menu(-name=> 'library_sets', |
| 204 : | jj | 2115 | -values=>$list_of_prob_dirs, |
| 205 : | jj | 1994 | -default=> $library_selected), |
| 206 : | CGI::br(), | ||
| 207 : | jj | 2225 | $view_problem_line, |
| 208 : | jj | 1994 | )); |
| 209 : | } | ||
| 210 : | |||
| 211 : | ##### Version 2 is local problem sets | ||
| 212 : | sub browse_mysets_panel { | ||
| 213 : | my $self = shift; | ||
| 214 : | my $library_selected = shift; | ||
| 215 : | my $list_of_local_sets = shift; | ||
| 216 : | my $default_value = "Select a Problem Set"; | ||
| 217 : | |||
| 218 : | jj | 2024 | if(scalar(@$list_of_local_sets) == 0) { |
| 219 : | jj | 2152 | $list_of_local_sets = [NO_LOCAL_SET_STRING]; |
| 220 : | jj | 2024 | } elsif (not $library_selected or $library_selected eq $default_value) { |
| 221 : | jj | 1994 | unshift @{$list_of_local_sets}, $default_value; |
| 222 : | $library_selected = $default_value; | ||
| 223 : | } | ||
| 224 : | |||
| 225 : | jj | 2225 | my $view_problem_line = view_problems_line('view_mysets_set', 'View Problems', $self->r); |
| 226 : | jj | 2230 | print CGI::Tr(CGI::td({-class=>"InfoPanel", -align=>"left"}, "Browse from: ", |
| 227 : | jj | 1994 | CGI::popup_menu(-name=> 'library_sets', |
| 228 : | -values=>$list_of_local_sets, | ||
| 229 : | -default=> $library_selected), | ||
| 230 : | CGI::br(), | ||
| 231 : | jj | 2225 | $view_problem_line |
| 232 : | jj | 1994 | )); |
| 233 : | } | ||
| 234 : | |||
| 235 : | ##### Version 3 is the problem library | ||
| 236 : | |||
| 237 : | |||
| 238 : | # There a different levels, and you can pick a new chapter, | ||
| 239 : | # pick a new section, pick all from chapter, pick all from section | ||
| 240 : | # | ||
| 241 : | # Incoming data - current chapter, current section | ||
| 242 : | sub browse_library_panel { | ||
| 243 : | my $self = shift; | ||
| 244 : | my $r = $self->r; | ||
| 245 : | jj | 2039 | my $ce = $r->ce; |
| 246 : | jj | 1994 | |
| 247 : | jj | 2140 | my $libraryRoot = $r->{ce}->{problemLibrary}->{root}; |
| 248 : | jj | 1994 | |
| 249 : | unless($libraryRoot) { | ||
| 250 : | print CGI::Tr(CGI::td(CGI::div({class=>'ResultsWithError', align=>"center"}, | ||
| 251 : | "The problem library has not been installed."))); | ||
| 252 : | return; | ||
| 253 : | } | ||
| 254 : | jj | 2039 | # Test if the Library directory exists. If not, try to make it |
| 255 : | unless(-d "$ce->{courseDirs}->{templates}/Library") { | ||
| 256 : | unless(symlink($libraryRoot, "$ce->{courseDirs}->{templates}/Library")) { | ||
| 257 : | jj | 2115 | my $msg = <<"HERE"; |
| 258 : | jj | 2039 | You are missing the directory <code>templates/Library</code>, which is needed |
| 259 : | for the Problem Library to function. It should be a link pointing to | ||
| 260 : | <code>$libraryRoot</code>, which you set in <code>conf/global.conf</code>. | ||
| 261 : | I tried to make the link for you, but that failed. Check the permissions | ||
| 262 : | in your <code>templates</code> directory. | ||
| 263 : | HERE | ||
| 264 : | jj | 2152 | $self->addbadmessage($msg); |
| 265 : | jj | 2039 | } |
| 266 : | } | ||
| 267 : | jj | 1994 | |
| 268 : | my $default_chap = "All Chapters"; | ||
| 269 : | my $default_sect = "All Sections"; | ||
| 270 : | |||
| 271 : | my @chaps = WeBWorK::Utils::ListingDB::getAllChapters($r->{ce}); | ||
| 272 : | unshift @chaps, $default_chap; | ||
| 273 : | my $chapter_selected = $r->param('library_chapters') || $default_chap; | ||
| 274 : | |||
| 275 : | my @sects=(); | ||
| 276 : | if ($chapter_selected ne $default_chap) { | ||
| 277 : | @sects = WeBWorK::Utils::ListingDB::getAllSections($r->{ce}, $chapter_selected); | ||
| 278 : | } | ||
| 279 : | |||
| 280 : | my @textbooks = ('Textbook info not ready'); | ||
| 281 : | |||
| 282 : | unshift @sects, $default_sect; | ||
| 283 : | my $section_selected = $r->param('library_sections') || $default_sect; | ||
| 284 : | jj | 2225 | my $view_problem_line = view_problems_line('lib_view', 'View Problems', $self->r); |
| 285 : | jj | 1994 | |
| 286 : | jj | 2230 | print CGI::Tr(CGI::td({-class=>"InfoPanel", -align=>"left"}, |
| 287 : | jj | 1994 | CGI::start_table(), |
| 288 : | CGI::Tr( | ||
| 289 : | CGI::td(["Chapter:", | ||
| 290 : | CGI::popup_menu(-name=> 'library_chapters', | ||
| 291 : | -values=>\@chaps, | ||
| 292 : | -default=> $chapter_selected, | ||
| 293 : | -onchange=>"submit();return true" | ||
| 294 : | ), | ||
| 295 : | CGI::submit(-name=>"lib_select_chapter", -value=>"Update Section List")])), | ||
| 296 : | CGI::Tr( | ||
| 297 : | CGI::td("Section:"), | ||
| 298 : | CGI::td({-colspan=>2}, | ||
| 299 : | CGI::popup_menu(-name=> 'library_sections', | ||
| 300 : | -values=>\@sects, | ||
| 301 : | -default=> $section_selected | ||
| 302 : | ))), | ||
| 303 : | |||
| 304 : | jj | 2015 | # CGI::Tr( |
| 305 : | # CGI::td("Textbook:"), | ||
| 306 : | # CGI::td({-colspan=>2}, | ||
| 307 : | # CGI::popup_menu(-name=> 'library_textbooks', | ||
| 308 : | # -values=>\@textbooks, | ||
| 309 : | # # -default=> $section_selected | ||
| 310 : | # ))), | ||
| 311 : | jj | 1994 | |
| 312 : | jj | 2015 | # CGI::Tr( |
| 313 : | # CGI::td("Keywords:"), | ||
| 314 : | # CGI::td({-colspan=>2}, CGI::textfield(-name=>"keywords", | ||
| 315 : | # -default=>"Keywords not implemented yet", | ||
| 316 : | # -override=>1, -size=>60))), | ||
| 317 : | jj | 2225 | CGI::Tr(CGI::td({-colspan=>3}, |
| 318 : | $view_problem_line)), | ||
| 319 : | jj | 1994 | CGI::end_table(), |
| 320 : | )); | ||
| 321 : | } | ||
| 322 : | |||
| 323 : | sub make_top_row { | ||
| 324 : | my $self = shift; | ||
| 325 : | my $r = $self->r; | ||
| 326 : | dpvc | 2431 | my $ce = $r->ce; |
| 327 : | jj | 1994 | my %data = @_; |
| 328 : | |||
| 329 : | my $list_of_local_sets = $data{all_set_defs}; | ||
| 330 : | jj | 2024 | my $have_local_sets = scalar(@$list_of_local_sets); |
| 331 : | jj | 1994 | my $browse_which = $data{browse_which}; |
| 332 : | my $library_selected = $r->param('library_sets'); | ||
| 333 : | my $set_selected = $r->param('local_sets'); | ||
| 334 : | |||
| 335 : | my ($dis1, $dis2, $dis3) = ("","",""); | ||
| 336 : | $dis1 = '-disabled' if($browse_which eq 'browse_library'); | ||
| 337 : | $dis2 = '-disabled' if($browse_which eq 'browse_local'); | ||
| 338 : | $dis3 = '-disabled' if($browse_which eq 'browse_mysets'); | ||
| 339 : | |||
| 340 : | dpvc | 2431 | ## Make buttons for additional problem libraries |
| 341 : | my $libs = ''; | ||
| 342 : | foreach my $lib (sort(keys(%problib))) { | ||
| 343 : | $libs .= ' '. CGI::submit(-name=>"browse_$lib", -value=>$problib{$lib}, | ||
| 344 : | ($browse_which eq "browse_$lib")? '-disabled': '') | ||
| 345 : | if (-d "$ce->{courseDirs}{templates}/$lib"); | ||
| 346 : | } | ||
| 347 : | $libs = CGI::br()."or Problems from".$libs if $libs ne ''; | ||
| 348 : | |||
| 349 : | my $these_widths = "width: 20ex"; | ||
| 350 : | jj | 1994 | print CGI::Tr(CGI::td({-class=>"InfoPanel", -align=>"center"}, |
| 351 : | dpvc | 2431 | "Browse ", |
| 352 : | CGI::submit(-name=>"browse_library", -value=>"Problem Library", -style=>$these_widths, $dis1), | ||
| 353 : | CGI::submit(-name=>"browse_local", -value=>"Local Problems", -style=>$these_widths, $dis2), | ||
| 354 : | CGI::submit(-name=>"browse_mysets", -value=>"From This Course", -style=>$these_widths, $dis3), | ||
| 355 : | $libs, | ||
| 356 : | jj | 1994 | )); |
| 357 : | |||
| 358 : | print CGI::Tr(CGI::td({-bgcolor=>"black"})); | ||
| 359 : | |||
| 360 : | if ($browse_which eq 'browse_local') { | ||
| 361 : | jj | 2024 | $self->browse_local_panel($library_selected); |
| 362 : | jj | 1994 | } elsif ($browse_which eq 'browse_mysets') { |
| 363 : | jj | 2024 | $self->browse_mysets_panel($library_selected, $list_of_local_sets); |
| 364 : | dpvc | 2431 | } elsif ($browse_which eq 'browse_library') { |
| 365 : | jj | 2024 | $self->browse_library_panel(); |
| 366 : | dpvc | 2431 | } else { ## handle other problem libraries |
| 367 : | $self->browse_local_panel($library_selected,$browse_which); | ||
| 368 : | jj | 1994 | } |
| 369 : | |||
| 370 : | print CGI::Tr(CGI::td({-bgcolor=>"black"})); | ||
| 371 : | |||
| 372 : | jj | 2024 | if($have_local_sets ==0) { |
| 373 : | jj | 2152 | $list_of_local_sets = [NO_LOCAL_SET_STRING]; |
| 374 : | } elsif (not $set_selected or $set_selected eq SELECT_SET_STRING) { | ||
| 375 : | jj | 1994 | if ($list_of_local_sets->[0] eq "Select a Problem Set") { |
| 376 : | shift @{$list_of_local_sets}; | ||
| 377 : | } | ||
| 378 : | jj | 2152 | unshift @{$list_of_local_sets}, SELECT_SET_STRING; |
| 379 : | $set_selected = SELECT_SET_STRING; | ||
| 380 : | jj | 1994 | } |
| 381 : | jj | 2269 | my $myjs = 'document.mainform.selfassign.value=confirm("Should I assign the new set to you now?\nUse OK for yes and Cancel for no.");true;'; |
| 382 : | jj | 1994 | |
| 383 : | jj | 2230 | print CGI::Tr(CGI::td({-class=>"InfoPanel", -align=>"left"}, "Adding Problems to ", |
| 384 : | jj | 2264 | CGI::b("Target Set: "), |
| 385 : | jj | 1994 | CGI::popup_menu(-name=> 'local_sets', |
| 386 : | -values=>$list_of_local_sets, | ||
| 387 : | -default=> $set_selected), | ||
| 388 : | jj | 2264 | CGI::submit(-name=>"edit_local", -value=>"Edit Target Set"), |
| 389 : | jj | 2269 | CGI::hidden(-name=>"selfassign", -default=>[0]). |
| 390 : | jj | 1994 | CGI::br(), |
| 391 : | CGI::br(), | ||
| 392 : | jj | 2230 | CGI::submit(-name=>"new_local_set", -value=>"Create a New Set in This Course:", |
| 393 : | jj | 2269 | -onclick=>$myjs |
| 394 : | jj | 2230 | ), |
| 395 : | jj | 1994 | " ", |
| 396 : | CGI::textfield(-name=>"new_set_name", | ||
| 397 : | -default=>"Name for new set here", | ||
| 398 : | -override=>1, -size=>30), | ||
| 399 : | CGI::br(), | ||
| 400 : | )); | ||
| 401 : | |||
| 402 : | print CGI::Tr(CGI::td({-bgcolor=>"black"})); | ||
| 403 : | |||
| 404 : | print CGI::Tr(CGI::td({-class=>"InfoPanel", -align=>"center"}, | ||
| 405 : | jj | 2230 | CGI::start_table({-border=>"0"}), |
| 406 : | CGI::Tr( CGI::td({ -align=>"center"}, | ||
| 407 : | CGI::submit(-name=>"select_all", -style=>$these_widths, | ||
| 408 : | -value=>"Mark All For Adding"), | ||
| 409 : | CGI::submit(-name=>"select_none", -style=>$these_widths, | ||
| 410 : | -value=>"Clear All Marks"), | ||
| 411 : | )), | ||
| 412 : | CGI::Tr( CGI::td( | ||
| 413 : | CGI::submit(-name=>"update", -style=>$these_widths. "; font-weight:bold", | ||
| 414 : | -value=>"Update"), | ||
| 415 : | CGI::submit(-name=>"rerandomize", | ||
| 416 : | jj | 1994 | -style=>$these_widths, |
| 417 : | -value=>"Rerandomize"), | ||
| 418 : | jj | 2230 | CGI::submit(-name=>"cleardisplay", |
| 419 : | jj | 1994 | -style=>$these_widths, |
| 420 : | jj | 2230 | -value=>"Clear Problem Display") |
| 421 : | )), | ||
| 422 : | CGI::end_table())); | ||
| 423 : | jj | 1994 | |
| 424 : | } | ||
| 425 : | |||
| 426 : | sub make_data_row { | ||
| 427 : | my $self = shift; | ||
| 428 : | my $sourceFileName = shift; | ||
| 429 : | my $pg = shift; | ||
| 430 : | my $cnt = shift; | ||
| 431 : | jj | 2230 | my $mark = shift || 0; |
| 432 : | jj | 1994 | |
| 433 : | jj | 2024 | $sourceFileName =~ s|^./||; # clean up top ugliness |
| 434 : | |||
| 435 : | jj | 1994 | my $urlpath = $self->r->urlpath; |
| 436 : | my $problem_output = $pg->{flags}->{error_flag} ? | ||
| 437 : | jj | 2225 | CGI::div({class=>"ResultsWithError"}, CGI::em("This problem produced an error")) |
| 438 : | jj | 2015 | : CGI::div({class=>"RenderSolo"}, $pg->{body_text}); |
| 439 : | jj | 1994 | |
| 440 : | |||
| 441 : | jj | 2024 | my $edit_link = ''; |
| 442 : | jj | 2040 | #if($self->{r}->param('browse_which') ne 'browse_library') { |
| 443 : | if($sourceFileName !~ /^Library\//) { | ||
| 444 : | jj | 2039 | $edit_link = CGI::a({href=>$self->systemLink($urlpath->newFromModule("WeBWorK::ContentGenerator::Instructor::PGProblemEditor", |
| 445 : | courseID =>$urlpath->arg("courseID"), | ||
| 446 : | setID=>"Undefined_Set", | ||
| 447 : | problemID=>"1"), | ||
| 448 : | params=>{sourceFilePath => "$sourceFileName"} | ||
| 449 : | jj | 1994 | )}, "Edit it" ); |
| 450 : | jj | 2024 | } |
| 451 : | jj | 1994 | |
| 452 : | jj | 2039 | my $try_link = CGI::a({href=>$self->systemLink($urlpath->newFromModule("WeBWorK::ContentGenerator::Problem", |
| 453 : | courseID =>$urlpath->arg("courseID"), | ||
| 454 : | setID=>"Undefined_Set", | ||
| 455 : | problemID=>"1"), | ||
| 456 : | jj | 2015 | params =>{effectiveUser => $self->r->param('user'), |
| 457 : | jj | 2021 | editMode => "SetMaker", |
| 458 : | jj | 2015 | sourceFilePath => "$sourceFileName"} )}, "Try it"); |
| 459 : | jj | 1994 | |
| 460 : | jj | 2230 | my %add_box_data = ( -name=>"trial$cnt",-value=>1,-label=>"Add me to the current set on the next update"); |
| 461 : | if($mark & SUCCESS) { | ||
| 462 : | $add_box_data{ -label } .= " (just added this problem)"; | ||
| 463 : | } elsif($mark & ADDED) { | ||
| 464 : | $add_box_data{ -checked } = 1; | ||
| 465 : | } | ||
| 466 : | jj | 1994 | |
| 467 : | print CGI::Tr({-align=>"left"}, CGI::td( | ||
| 468 : | |||
| 469 : | jj | 2024 | CGI::div({-style=>"background-color: #DDDDDD; margin: 0px auto"}, |
| 470 : | CGI::span({-style=>"float:left ; text-align: left"},"File name: $sourceFileName "), | ||
| 471 : | CGI::span({-style=>"float:right ; text-align: right"}, $edit_link, " ", $try_link) | ||
| 472 : | ), CGI::br(), | ||
| 473 : | jj | 1994 | |
| 474 : | |||
| 475 : | |||
| 476 : | |||
| 477 : | CGI::checkbox(-name=>"hideme$cnt",-value=>1,-label=>"Don't show me on the next update"), | ||
| 478 : | CGI::br(), | ||
| 479 : | jj | 2230 | CGI::checkbox((%add_box_data)), |
| 480 : | jj | 1994 | CGI::hidden(-name=>"filetrial$cnt", -default=>[$sourceFileName]). |
| 481 : | CGI::p($problem_output), | ||
| 482 : | )); | ||
| 483 : | } | ||
| 484 : | |||
| 485 : | |||
| 486 : | jj | 2115 | sub pre_header_initialize { |
| 487 : | jj | 1994 | my ($self) = @_; |
| 488 : | my $r = $self->r; | ||
| 489 : | jj | 2115 | ## For all cases, lets set some things |
| 490 : | $self->{error}=0; | ||
| 491 : | my $ce = $r->ce; | ||
| 492 : | my $db = $r->db; | ||
| 493 : | jj | 2225 | my $maxShown = $r->param('max_shown') || MAX_SHOW_DEFAULT; |
| 494 : | $maxShown = 10000000 if($maxShown eq 'All'); # let's hope there aren't more | ||
| 495 : | jj | 1994 | |
| 496 : | dpvc | 2431 | ## These directories will have individual buttons |
| 497 : | %problib = %{$ce->{courseFiles}{problibs}} if $ce->{courseFiles}{problibs}; | ||
| 498 : | jj | 2115 | |
| 499 : | jj | 1994 | my $userName = $r->param('user'); |
| 500 : | jj | 2115 | my $user = $db->getUser($userName); # checked |
| 501 : | die "record for user $userName (real user) does not exist." | ||
| 502 : | jj | 1994 | unless defined $user; |
| 503 : | my $authz = $r->authz; | ||
| 504 : | unless ($authz->hasPermissions($userName, "modify_problem_sets")) { | ||
| 505 : | jj | 2115 | return(""); # Error message already produced in the body |
| 506 : | jj | 1994 | } |
| 507 : | |||
| 508 : | jj | 2115 | ## Now one action we have to deal with here |
| 509 : | if ($r->param('edit_local')) { | ||
| 510 : | my $urlpath = $r->urlpath; | ||
| 511 : | my $db = $r->db; | ||
| 512 : | my $checkset = $db->getGlobalSet($r->param('local_sets')); | ||
| 513 : | if (not defined($checkset)) { | ||
| 514 : | $self->{error} = 1; | ||
| 515 : | jj | 2264 | $self->addbadmessage('You need to select a "Target Set" before you can edit it.'); |
| 516 : | jj | 2115 | } else { |
| 517 : | my $page = $urlpath->newFromModule('WeBWorK::ContentGenerator::Instructor::ProblemSetEditor', setID=>$r->param('local_sets'), courseID=>$urlpath->arg("courseID")); | ||
| 518 : | my $url = $self->systemLink($page); | ||
| 519 : | $self->reply_with_redirect($url); | ||
| 520 : | } | ||
| 521 : | } | ||
| 522 : | jj | 1994 | |
| 523 : | jj | 2115 | ## Next, lots of set up so that errors can be reported with message() |
| 524 : | |||
| 525 : | jj | 1994 | ############# List of problems we have already printed |
| 526 : | |||
| 527 : | jj | 2116 | $self->{past_problems} = get_past_problem_files($r); |
| 528 : | jj | 2230 | # if we don't end up reusing problems, this will be wiped out |
| 529 : | # if we do redisplay the same problems, we must adjust this accordingly | ||
| 530 : | my @past_marks = map {$_->[1]} @{$self->{past_problems}}; | ||
| 531 : | jj | 2116 | my $none_shown = scalar(@{$self->{past_problems}})==0; |
| 532 : | jj | 2115 | my @pg_files=(); |
| 533 : | jj | 1994 | my $use_previous_problems = 1; |
| 534 : | my $first_shown = $r->param('first_shown') || 0; | ||
| 535 : | my $last_shown = $r->param('last_shown'); | ||
| 536 : | if (not defined($last_shown)) { | ||
| 537 : | $last_shown = -1; | ||
| 538 : | } | ||
| 539 : | my @all_past_list = (); # these are include requested, but not shown | ||
| 540 : | jj | 2115 | my $j = 0; |
| 541 : | jj | 1994 | while (defined($r->param("all_past_list$j"))) { |
| 542 : | push @all_past_list, $r->param("all_past_list$j"); | ||
| 543 : | $j++; | ||
| 544 : | } | ||
| 545 : | |||
| 546 : | ############# Default of which problem selector to display | ||
| 547 : | |||
| 548 : | jj | 2115 | my $browse_which = $r->param('browse_which') || 'browse_local'; |
| 549 : | jj | 1994 | |
| 550 : | my $problem_seed = $r->param('problem_seed') || 0; | ||
| 551 : | $r->param('problem_seed', $problem_seed); # if it wasn't defined before | ||
| 552 : | |||
| 553 : | dpvc | 2431 | ## check for problem lib buttons |
| 554 : | my $browse_lib = ''; | ||
| 555 : | foreach my $lib (keys %problib) { | ||
| 556 : | if ($r->param("browse_$lib")) { | ||
| 557 : | $browse_lib = "browse_$lib"; | ||
| 558 : | last; | ||
| 559 : | } | ||
| 560 : | } | ||
| 561 : | |||
| 562 : | jj | 1994 | ########### Start the logic through if elsif elsif ... |
| 563 : | |||
| 564 : | ##### Asked to browse certain problems | ||
| 565 : | dpvc | 2431 | if ($browse_lib ne '') { |
| 566 : | $browse_which = $browse_lib; | ||
| 567 : | $r->param('library_sets', ""); | ||
| 568 : | $use_previous_problems = 0; @pg_files = (); ## clear old problems | ||
| 569 : | } elsif ($r->param('browse_library')) { | ||
| 570 : | jj | 1994 | $browse_which = 'browse_library'; |
| 571 : | $r->param('library_sets', ""); | ||
| 572 : | dpvc | 2431 | $use_previous_problems = 0; @pg_files = (); ## clear old problems |
| 573 : | jj | 1994 | } elsif ($r->param('browse_local')) { |
| 574 : | $browse_which = 'browse_local'; | ||
| 575 : | $r->param('library_sets', ""); | ||
| 576 : | dpvc | 2431 | $use_previous_problems = 0; @pg_files = (); ## clear old problems |
| 577 : | jj | 1994 | } elsif ($r->param('browse_mysets')) { |
| 578 : | $browse_which = 'browse_mysets'; | ||
| 579 : | $r->param('library_sets', ""); | ||
| 580 : | dpvc | 2431 | $use_previous_problems = 0; @pg_files = (); ## clear old problems |
| 581 : | jj | 1994 | |
| 582 : | ##### Change the seed value | ||
| 583 : | |||
| 584 : | } elsif ($r->param('rerandomize')) { | ||
| 585 : | $problem_seed++; | ||
| 586 : | $r->param('problem_seed', $problem_seed); | ||
| 587 : | jj | 2152 | $self->addbadmessage('Changing the problem seed for display, but there are no problems showing.') if $none_shown; |
| 588 : | jj | 1994 | |
| 589 : | ##### Clear the display | ||
| 590 : | |||
| 591 : | } elsif ($r->param('cleardisplay')) { | ||
| 592 : | @pg_files = (); | ||
| 593 : | $use_previous_problems=0; | ||
| 594 : | jj | 2152 | $self->addbadmessage('The display was already cleared.') if $none_shown; |
| 595 : | jj | 1994 | |
| 596 : | ##### View problems selected from the local list | ||
| 597 : | |||
| 598 : | } elsif ($r->param('view_local_set')) { | ||
| 599 : | |||
| 600 : | my $set_to_display = $r->param('library_sets'); | ||
| 601 : | jj | 2152 | if (not defined($set_to_display) or $set_to_display eq SELECT_LOCAL_STRING or $set_to_display eq "Found no directories containing problems") { |
| 602 : | $self->addbadmessage('You need to select a set to view.'); | ||
| 603 : | jj | 1994 | } else { |
| 604 : | dpvc | 2431 | $set_to_display = '.' if $set_to_display eq MY_PROBLEMS; |
| 605 : | $set_to_display = substr($browse_which,7) if $set_to_display eq MAIN_PROBLEMS; | ||
| 606 : | jj | 1994 | @pg_files = list_pg_files($ce->{courseDirs}->{templates}, |
| 607 : | "$set_to_display"); | ||
| 608 : | $use_previous_problems=0; | ||
| 609 : | } | ||
| 610 : | |||
| 611 : | ##### View problems selected from the a set in this course | ||
| 612 : | |||
| 613 : | } elsif ($r->param('view_mysets_set')) { | ||
| 614 : | |||
| 615 : | my $set_to_display = $r->param('library_sets'); | ||
| 616 : | jj | 2024 | if (not defined($set_to_display) |
| 617 : | or $set_to_display eq "Select a Problem Set" | ||
| 618 : | jj | 2152 | or $set_to_display eq NO_LOCAL_SET_STRING) { |
| 619 : | $self->addbadmessage("You need to select a set from this course to view."); | ||
| 620 : | jj | 1994 | } else { |
| 621 : | my @problemList = $db->listGlobalProblems($set_to_display); | ||
| 622 : | my $problem; | ||
| 623 : | @pg_files=(); | ||
| 624 : | for $problem (@problemList) { | ||
| 625 : | my $problemRecord = $db->getGlobalProblem($set_to_display, $problem); # checked | ||
| 626 : | die "global $problem for set $set_to_display not found." unless | ||
| 627 : | $problemRecord; | ||
| 628 : | push @pg_files, $problemRecord->source_file; | ||
| 629 : | |||
| 630 : | } | ||
| 631 : | $use_previous_problems=0; | ||
| 632 : | } | ||
| 633 : | |||
| 634 : | ##### View whole chapter from the library | ||
| 635 : | ## This will change somewhat later | ||
| 636 : | |||
| 637 : | jj | 2230 | } elsif ($r->param('lib_view')) { |
| 638 : | jj | 1994 | |
| 639 : | @pg_files=(); | ||
| 640 : | my $chap = $r->param('library_chapters') || ""; | ||
| 641 : | $chap = "" if($chap eq "All Chapters"); | ||
| 642 : | my $sect = $r->param('library_sections') || ""; | ||
| 643 : | $sect = "" if($sect eq "All Sections"); | ||
| 644 : | my @dbsearch = WeBWorK::Utils::ListingDB::getSectionListings($r->{ce}, "$chap", "$sect"); | ||
| 645 : | my ($result, $tolibpath); | ||
| 646 : | for $result (@dbsearch) { | ||
| 647 : | jj | 2002 | $tolibpath = "Library/$result->{path}/$result->{filename}"; |
| 648 : | jj | 1994 | |
| 649 : | ## Too clunky!!!! | ||
| 650 : | push @pg_files, $tolibpath; | ||
| 651 : | } | ||
| 652 : | $use_previous_problems=0; | ||
| 653 : | |||
| 654 : | ##### Edit the current local problem set | ||
| 655 : | |||
| 656 : | } elsif ($r->param('edit_local')) { ## Jump to set edit page | ||
| 657 : | |||
| 658 : | jj | 2115 | ; # already handled |
| 659 : | |||
| 660 : | |||
| 661 : | jj | 1994 | ##### Make a new local problem set |
| 662 : | |||
| 663 : | } elsif ($r->param('new_local_set')) { | ||
| 664 : | if ($r->param('new_set_name') !~ /^[\w.-]*$/) { | ||
| 665 : | jj | 2152 | $self->addbadmessage("The name ".$r->param('new_set_name')." is not a valid set name. Use only letters, digits, -, _, and ."); |
| 666 : | jj | 1994 | } else { |
| 667 : | my $newSetName = $r->param('new_set_name'); | ||
| 668 : | $newSetName =~ s/^set//; | ||
| 669 : | $newSetName =~ s/\.def$//; | ||
| 670 : | jj | 2112 | $r->param('local_sets',$newSetName); |
| 671 : | jj | 1994 | my $newSetRecord = $db->getGlobalSet($newSetName); |
| 672 : | if (defined($newSetRecord)) { | ||
| 673 : | jj | 2152 | $self->addbadmessage("The set name $newSetName is already in use. Pick a different name if you would like to start a new set."); |
| 674 : | jj | 1994 | } else { # Do it! |
| 675 : | $newSetRecord = $db->{set}->{record}->new(); | ||
| 676 : | $newSetRecord->set_id($newSetName); | ||
| 677 : | $newSetRecord->set_header(""); | ||
| 678 : | $newSetRecord->problem_header(""); | ||
| 679 : | $newSetRecord->open_date(time()+60*60*24*7); # in one week | ||
| 680 : | $newSetRecord->due_date(time()+60*60*24*7*2); # in two weeks | ||
| 681 : | $newSetRecord->answer_date(time()+60*60*24*7*3); # in three weeks | ||
| 682 : | eval {$db->addGlobalSet($newSetRecord)}; | ||
| 683 : | jj | 2269 | $self->addgoodmessage("Set $newSetName has been created."); |
| 684 : | my $selfassign = $r->param('selfassign') || ""; | ||
| 685 : | $selfassign = "" if($selfassign =~ /false/i); # deal with javascript false | ||
| 686 : | if($selfassign) { | ||
| 687 : | $self->assignSetToUser($userName, $newSetRecord); | ||
| 688 : | $self->addgoodmessage("Set $newSetName was assigned to $userName."); | ||
| 689 : | } | ||
| 690 : | jj | 1994 | } |
| 691 : | } | ||
| 692 : | |||
| 693 : | ##### Add selected problems to the current local set | ||
| 694 : | |||
| 695 : | } elsif ($r->param('update')) { | ||
| 696 : | ## first handle problems to be added before we hide them | ||
| 697 : | my($localSet, @selected); | ||
| 698 : | |||
| 699 : | jj | 2116 | @pg_files = grep {($_->[1] & ADDED) != 0 } @{$self->{past_problems}}; |
| 700 : | jj | 1994 | @selected = map {$_->[0]} @pg_files; |
| 701 : | |||
| 702 : | jj | 2116 | my @action_files = grep {$_->[1] > 0 } @{$self->{past_problems}}; |
| 703 : | jj | 2230 | # There are now good reasons to do an update without selecting anything. |
| 704 : | #if(scalar(@action_files) == 0) { | ||
| 705 : | # $self->addbadmessage('Update requested, but no problems were marked.'); | ||
| 706 : | #} | ||
| 707 : | jj | 2116 | |
| 708 : | jj | 1994 | if (scalar(@selected)>0) { # if some are to be added, they need a place to go |
| 709 : | $localSet = $r->param('local_sets'); | ||
| 710 : | jj | 2152 | if (not defined($localSet) or |
| 711 : | $localSet eq SELECT_SET_STRING or | ||
| 712 : | $localSet eq NO_LOCAL_SET_STRING) { | ||
| 713 : | jj | 2264 | $self->addbadmessage('You are trying to add problems to something, but you did not select a "Target Set" name as a target.'); |
| 714 : | jj | 1994 | } else { |
| 715 : | my $newSetRecord = $db->getGlobalSet($localSet); | ||
| 716 : | if (not defined($newSetRecord)) { | ||
| 717 : | jj | 2152 | $self->addbadmessage("You are trying to add problems to $localSet, but that set does not seem to exist! I bet you used your \"Back\" button."); |
| 718 : | jj | 1994 | } else { |
| 719 : | jj | 2116 | my $addcount = add_selected($self, $db, $localSet); |
| 720 : | if($addcount > 0) { | ||
| 721 : | jj | 2152 | $self->addgoodmessage("Added $addcount problem".(($addcount>1)?'s':''). |
| 722 : | jj | 2116 | " to $localSet."); |
| 723 : | } | ||
| 724 : | jj | 1994 | } |
| 725 : | } | ||
| 726 : | } | ||
| 727 : | ## now handle problems to be hidden | ||
| 728 : | |||
| 729 : | jj | 2116 | ## only keep the ones which are not hidden |
| 730 : | @pg_files = grep {($_->[1] & HIDDEN) ==0 } @{$self->{past_problems}}; | ||
| 731 : | jj | 2230 | @past_marks = map {$_->[1]} @pg_files; |
| 732 : | jj | 1994 | @pg_files = map {$_->[0]} @pg_files; |
| 733 : | @all_past_list = (@all_past_list[0..($first_shown-1)], | ||
| 734 : | @pg_files, | ||
| 735 : | @all_past_list[($last_shown+1)..(scalar(@all_past_list)-1)]); | ||
| 736 : | jj | 2225 | $last_shown = $first_shown+$maxShown -1; |
| 737 : | jj | 1994 | $last_shown = (scalar(@all_past_list)-1) if($last_shown>=scalar(@all_past_list)); |
| 738 : | |||
| 739 : | } elsif ($r->param('next_page')) { | ||
| 740 : | $first_shown = $last_shown+1; | ||
| 741 : | jj | 2225 | $last_shown = $first_shown+$maxShown-1; |
| 742 : | jj | 1994 | $last_shown = (scalar(@all_past_list)-1) if($last_shown>=scalar(@all_past_list)); |
| 743 : | jj | 2230 | @past_marks = (); |
| 744 : | jj | 1994 | } elsif ($r->param('prev_page')) { |
| 745 : | $last_shown = $first_shown-1; | ||
| 746 : | jj | 2225 | $first_shown = $last_shown - $maxShown+1; |
| 747 : | jj | 1994 | |
| 748 : | $first_shown = 0 if($first_shown<0); | ||
| 749 : | jj | 2230 | @past_marks = (); |
| 750 : | jj | 1994 | |
| 751 : | jj | 2230 | } elsif ($r->param('select_all')) { |
| 752 : | @past_marks = map {1} @past_marks; | ||
| 753 : | } elsif ($r->param('select_none')) { | ||
| 754 : | @past_marks = (); | ||
| 755 : | |||
| 756 : | jj | 1994 | ##### No action requested, probably our first time here |
| 757 : | |||
| 758 : | } else { | ||
| 759 : | #my $c = $r->connection; | ||
| 760 : | #print "Debug info: ". $r->get_remote_host ."<p>". $c->remote_ip ; | ||
| 761 : | ; | ||
| 762 : | } ##### end of the if elsif ... | ||
| 763 : | |||
| 764 : | |||
| 765 : | ############# List of local sets | ||
| 766 : | |||
| 767 : | jj | 2024 | my @all_set_defs = $db->listGlobalSets; |
| 768 : | jj | 1994 | for ($j=0; $j<scalar(@all_set_defs); $j++) { |
| 769 : | $all_set_defs[$j] =~ s|^set||; | ||
| 770 : | $all_set_defs[$j] =~ s|\.def||; | ||
| 771 : | } | ||
| 772 : | |||
| 773 : | if ($use_previous_problems) { | ||
| 774 : | @pg_files = @all_past_list; | ||
| 775 : | } else { | ||
| 776 : | $first_shown = 0; | ||
| 777 : | jj | 2225 | $last_shown = scalar(@pg_files)<$maxShown ? scalar(@pg_files) : $maxShown; |
| 778 : | jj | 1994 | $last_shown--; # to make it an array index |
| 779 : | jj | 2230 | @past_marks = (); |
| 780 : | jj | 1994 | } |
| 781 : | jj | 2115 | ############# Now store data in self for retreival by body |
| 782 : | $self->{first_shown} = $first_shown; | ||
| 783 : | $self->{last_shown} = $last_shown; | ||
| 784 : | $self->{browse_which} = $browse_which; | ||
| 785 : | $self->{problem_seed} = $problem_seed; | ||
| 786 : | $self->{pg_files} = \@pg_files; | ||
| 787 : | jj | 2230 | $self->{past_marks} = \@past_marks; |
| 788 : | jj | 2115 | $self->{all_set_defs} = \@all_set_defs; |
| 789 : | jj | 1994 | |
| 790 : | jj | 2115 | } |
| 791 : | |||
| 792 : | |||
| 793 : | sub title { | ||
| 794 : | return "Problem Set Maker"; | ||
| 795 : | } | ||
| 796 : | |||
| 797 : | sub body { | ||
| 798 : | my ($self) = @_; | ||
| 799 : | |||
| 800 : | my $r = $self->r; | ||
| 801 : | my $ce = $r->ce; # course environment | ||
| 802 : | my $db = $r->db; # database | ||
| 803 : | my $j; # garden variety counter | ||
| 804 : | |||
| 805 : | my $userName = $r->param('user'); | ||
| 806 : | |||
| 807 : | my $user = $db->getUser($userName); # checked | ||
| 808 : | die "record for user $userName (real user) does not exist." | ||
| 809 : | unless defined $user; | ||
| 810 : | |||
| 811 : | ### Check that this is a professor | ||
| 812 : | my $authz = $r->authz; | ||
| 813 : | unless ($authz->hasPermissions($userName, "modify_problem_sets")) { | ||
| 814 : | print "User $userName returned " . | ||
| 815 : | $authz->hasPermissions($user, "modify_problem_sets") . | ||
| 816 : | " for permission"; | ||
| 817 : | return(CGI::div({class=>'ResultsWithError'}, | ||
| 818 : | CGI::em("You are not authorized to access the Instructor tools."))); | ||
| 819 : | } | ||
| 820 : | |||
| 821 : | ########## Extract information computed in pre_header_initialize | ||
| 822 : | |||
| 823 : | my $first_shown = $self->{first_shown}; | ||
| 824 : | my $last_shown = $self->{last_shown}; | ||
| 825 : | my $browse_which = $self->{browse_which}; | ||
| 826 : | my $problem_seed = $self->{problem_seed}; | ||
| 827 : | my @pg_files = @{$self->{pg_files}}; | ||
| 828 : | my @all_set_defs = @{$self->{all_set_defs}}; | ||
| 829 : | |||
| 830 : | my @pg_html=($last_shown>=$first_shown) ? | ||
| 831 : | jj | 2225 | renderProblems(r=> $r, |
| 832 : | user => $user, | ||
| 833 : | problem_list => [@pg_files[$first_shown..$last_shown]], | ||
| 834 : | displayMode => $r->param('mydisplayMode')) : (); | ||
| 835 : | jj | 1994 | |
| 836 : | ########## Top part | ||
| 837 : | jj | 2269 | print CGI::startform({-method=>"POST", -action=>$r->uri, -name=>'mainform'}), |
| 838 : | jj | 1994 | $self->hidden_authen_fields, |
| 839 : | '<div align="center">', | ||
| 840 : | CGI::start_table({-border=>2}); | ||
| 841 : | jj | 2024 | $self->make_top_row('all_set_defs'=>\@all_set_defs, |
| 842 : | jj | 1994 | 'browse_which'=> $browse_which); |
| 843 : | print CGI::hidden(-name=>'browse_which', -default=>[$browse_which]), | ||
| 844 : | CGI::hidden(-name=>'problem_seed', -default=>[$problem_seed]); | ||
| 845 : | for ($j = 0 ; $j < scalar(@pg_files) ; $j++) { | ||
| 846 : | print CGI::hidden(-name=>"all_past_list$j", -default=>$pg_files[$j]); | ||
| 847 : | } | ||
| 848 : | |||
| 849 : | print CGI::hidden(-name=>'first_shown', -default=>[$first_shown]); | ||
| 850 : | print CGI::hidden(-name=>'last_shown', -default=>[$last_shown]); | ||
| 851 : | |||
| 852 : | |||
| 853 : | ########## Now print problems | ||
| 854 : | my $jj; | ||
| 855 : | for ($jj=0; $jj<scalar(@pg_html); $jj++) { | ||
| 856 : | $pg_files[$jj] =~ s|^$ce->{courseDirs}->{templates}/?||; | ||
| 857 : | jj | 2230 | $self->make_data_row($pg_files[$jj+$first_shown], $pg_html[$jj], $jj+1, $self->{past_marks}->[$jj]); |
| 858 : | jj | 1994 | } |
| 859 : | |||
| 860 : | ########## Finish things off | ||
| 861 : | print CGI::end_table(); | ||
| 862 : | print '</div>'; | ||
| 863 : | # if($first_shown>0 or (1+$last_shown)<scalar(@pg_files)) { | ||
| 864 : | my ($next_button, $prev_button) = ("", ""); | ||
| 865 : | if ($first_shown > 0) { | ||
| 866 : | $prev_button = CGI::submit(-name=>"prev_page", -style=>"width:15ex", | ||
| 867 : | -value=>"Previous page"); | ||
| 868 : | } | ||
| 869 : | if ((1+$last_shown)<scalar(@pg_files)) { | ||
| 870 : | $next_button = CGI::submit(-name=>"next_page", -style=>"width:15ex", | ||
| 871 : | -value=>"Next page"); | ||
| 872 : | } | ||
| 873 : | if (scalar(@pg_files)>0) { | ||
| 874 : | print CGI::p(($first_shown+1)."-".($last_shown+1)." of ".scalar(@pg_files). | ||
| 875 : | " shown.", $prev_button, " ", $next_button); | ||
| 876 : | } | ||
| 877 : | # } | ||
| 878 : | print CGI::endform(), "\n"; | ||
| 879 : | |||
| 880 : | return ""; | ||
| 881 : | } | ||
| 882 : | |||
| 883 : | ############################################## End of Body | ||
| 884 : | |||
| 885 : | # SKEL: To emit your own HTTP header, uncomment this: | ||
| 886 : | # | ||
| 887 : | #sub header { | ||
| 888 : | # my ($self) = @_; | ||
| 889 : | # | ||
| 890 : | # # Generate your HTTP header here. | ||
| 891 : | # | ||
| 892 : | # # If you return something, it will be used as the HTTP status code for this | ||
| 893 : | # # request. The Apache::Constants module might be useful for gerating status | ||
| 894 : | # # codes. If you don't return anything, the status code "OK" will be used. | ||
| 895 : | # return ""; | ||
| 896 : | #} | ||
| 897 : | |||
| 898 : | # SKEL: If you need to do any processing after the HTTP header is sent, but before | ||
| 899 : | # any template processing occurs, or you need to calculate values that will be | ||
| 900 : | # used in multiple methods, do it in this method: | ||
| 901 : | # | ||
| 902 : | #sub initialize { | ||
| 903 : | #my ($self) = @_; | ||
| 904 : | #} | ||
| 905 : | |||
| 906 : | # SKEL: If you need to add tags to the document <HEAD>, uncomment this method: | ||
| 907 : | # | ||
| 908 : | #sub head { | ||
| 909 : | # my ($self) = @_; | ||
| 910 : | # | ||
| 911 : | # # You can print head tags here, like <META>, <SCRIPT>, etc. | ||
| 912 : | # | ||
| 913 : | # return ""; | ||
| 914 : | #} | ||
| 915 : | |||
| 916 : | # SKEL: To fill in the "info" box (to the right of the main body), use this | ||
| 917 : | # method: | ||
| 918 : | # | ||
| 919 : | #sub info { | ||
| 920 : | # my ($self) = @_; | ||
| 921 : | # | ||
| 922 : | # # Print HTML here. | ||
| 923 : | # | ||
| 924 : | # return ""; | ||
| 925 : | #} | ||
| 926 : | |||
| 927 : | # SKEL: To provide navigation links, use this method: | ||
| 928 : | # | ||
| 929 : | #sub nav { | ||
| 930 : | # my ($self, $args) = @_; | ||
| 931 : | # | ||
| 932 : | # # See the documentation of path() and pathMacro() in | ||
| 933 : | # # WeBWorK::ContentGenerator for more information. | ||
| 934 : | # | ||
| 935 : | # return ""; | ||
| 936 : | #} | ||
| 937 : | |||
| 938 : | # SKEL: For a little box for display options, etc., use this method: | ||
| 939 : | # | ||
| 940 : | #sub options { | ||
| 941 : | # my ($self) = @_; | ||
| 942 : | # | ||
| 943 : | # # Print HTML here. | ||
| 944 : | # | ||
| 945 : | # return ""; | ||
| 946 : | #} | ||
| 947 : | |||
| 948 : | # SKEL: For a list of sibling objects, use this method: | ||
| 949 : | # | ||
| 950 : | #sub siblings { | ||
| 951 : | # my ($self, $args) = @_; | ||
| 952 : | # | ||
| 953 : | # # See the documentation of siblings() and siblingsMacro() in | ||
| 954 : | # # WeBWorK::ContentGenerator for more information. | ||
| 955 : | # # | ||
| 956 : | # # Refer to implementations in ProblemSet and Problem. | ||
| 957 : | # | ||
| 958 : | # return ""; | ||
| 959 : | #} | ||
| 960 : | |||
| 961 : | =head1 AUTHOR | ||
| 962 : | |||
| 963 : | Written by John Jones, jj (at) asu.edu. | ||
| 964 : | |||
| 965 : | =cut | ||
| 966 : | |||
| 967 : | |||
| 968 : | |||
| 969 : | 1; |
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |