| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Hardcopy.pm,v 1.79 2006/07/11 03:59:08 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Hardcopy.pm,v 1.80 2006/07/12 01:23:54 gage 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. |
| … | |
… | |
| 335 | print CGI::p("Select the homework sets for which to generate hardcopy versions. You may" |
335 | print CGI::p("Select the homework sets for which to generate hardcopy versions. You may" |
| 336 | ." also select multiple users from the users list. You will receive hardcopy" |
336 | ." also select multiple users from the users list. You will receive hardcopy" |
| 337 | ." for each (set, user) pair."); |
337 | ." for each (set, user) pair."); |
| 338 | |
338 | |
| 339 | print CGI::table({class=>"FormLayout"}, |
339 | print CGI::table({class=>"FormLayout"}, |
| 340 | CGI::Tr( |
340 | CGI::Tr({}, |
| 341 | CGI::th("Users"), |
341 | CGI::th("Users"), |
| 342 | CGI::th("Sets"), |
342 | CGI::th("Sets"), |
| 343 | ), |
343 | ), |
| 344 | CGI::Tr( |
344 | CGI::Tr({}, |
| 345 | CGI::td($scrolling_user_list), |
345 | CGI::td($scrolling_user_list), |
| 346 | CGI::td($scrolling_set_list), |
346 | CGI::td($scrolling_set_list), |
| 347 | ), |
347 | ), |
| 348 | ); |
348 | ); |
| 349 | } else { # single user mode |
349 | } else { # single user mode |
| … | |
… | |
| 355 | |
355 | |
| 356 | print CGI::p("Download hardcopy of set ", $selected_set_id, " for ", $Users[0]->first_name, " ",$Users[0]->last_name,"?"); |
356 | print CGI::p("Download hardcopy of set ", $selected_set_id, " for ", $Users[0]->first_name, " ",$Users[0]->last_name,"?"); |
| 357 | |
357 | |
| 358 | } |
358 | } |
| 359 | print CGI::table({class=>"FormLayout"}, |
359 | print CGI::table({class=>"FormLayout"}, |
| 360 | CGI::Tr( |
360 | CGI::Tr({}, |
| 361 | CGI::td({colspan=>2, class=>"ButtonRow"}, |
361 | CGI::td({colspan=>2, class=>"ButtonRow"}, |
| 362 | CGI::small("You may choose to show any of the following data. Correct answers and solutions are only |
362 | CGI::small("You may choose to show any of the following data. Correct answers and solutions are only |
| 363 | available $phrase_for_privileged_users after the answer date of the homework set."), |
363 | available $phrase_for_privileged_users after the answer date of the homework set."), |
| 364 | CGI::br(), |
364 | CGI::br(), |
| 365 | CGI::b("Show:"), " ", |
365 | CGI::b("Show:"), " ", |
| … | |
… | |
| 378 | -checked => scalar($r->param("showSolutions")) || 0, |
378 | -checked => scalar($r->param("showSolutions")) || 0, |
| 379 | -label => "Solutions", |
379 | -label => "Solutions", |
| 380 | ), |
380 | ), |
| 381 | ), |
381 | ), |
| 382 | ), |
382 | ), |
| 383 | CGI::Tr( |
383 | CGI::Tr({}, |
| 384 | CGI::td({colspan=>2, class=>"ButtonRow"}, |
384 | CGI::td({colspan=>2, class=>"ButtonRow"}, |
| 385 | CGI::b("Hardcopy Format:"), " ", |
385 | CGI::b("Hardcopy Format:"), " ", |
| 386 | CGI::radio_group( |
386 | CGI::radio_group( |
| 387 | -name => "hardcopy_format", |
387 | -name => "hardcopy_format", |
| 388 | -values => \@formats, |
388 | -values => \@formats, |
| 389 | -default => scalar($r->param("hardcopy_format")) || $HC_DEFAULT_FORMAT, |
389 | -default => scalar($r->param("hardcopy_format")) || $HC_DEFAULT_FORMAT, |
| 390 | -labels => \%format_labels, |
390 | -labels => \%format_labels, |
| 391 | ), |
391 | ), |
| 392 | ), |
392 | ), |
| 393 | ), |
393 | ), |
| 394 | CGI::Tr( |
394 | CGI::Tr({}, |
| 395 | CGI::td({colspan=>2, class=>"ButtonRow"}, |
395 | CGI::td({colspan=>2, class=>"ButtonRow"}, |
| 396 | CGI::submit( |
396 | CGI::submit( |
| 397 | -name => "generate_hardcopy", |
397 | -name => "generate_hardcopy", |
| 398 | -value => $button_label, |
398 | -value => $button_label, |
| 399 | #-style => "width: 45ex", |
399 | #-style => "width: 45ex", |
Parent Directory
| 
Revision Log
| 
Patch