| 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/ContentGenerator/Instructor/Index.pm,v 1.49 2005/07/14 13:15:26 glarose Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Index.pm,v 1.50 2005/09/30 19:36:57 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 | |
78 | |
| 79 | # depending on which button was pushed, fill values in for URL construction |
79 | # depending on which button was pushed, fill values in for URL construction |
| 80 | |
80 | |
| 81 | defined param $r "sets_assigned_to_user" and do { |
81 | defined param $r "sets_assigned_to_user" and do { |
| 82 | if ($nusers == 1) { |
82 | if ($nusers == 1) { |
| 83 | $module = "${ipfx}::SetsAssignedToUser"; |
83 | $module = "${ipfx}::UserDetail"; |
| 84 | $args{userID} = $firstUserID; |
84 | $args{userID} = $firstUserID; |
| 85 | $params{fromTools} = 1; |
85 | $params{fromTools} = 1; |
| 86 | } else { |
86 | } else { |
| 87 | push @error, E_ONE_USER; |
87 | push @error, E_ONE_USER; |
| 88 | } |
88 | } |
| … | |
… | |
| 361 | CGI::td({style=>"width:50%"}, $scrolling_user_list), |
361 | CGI::td({style=>"width:50%"}, $scrolling_user_list), |
| 362 | CGI::td({style=>"width:50%"}, $scrolling_set_list), |
362 | CGI::td({style=>"width:50%"}, $scrolling_set_list), |
| 363 | ), |
363 | ), |
| 364 | CGI::Tr({class=>"ButtonRow"}, [ |
364 | CGI::Tr({class=>"ButtonRow"}, [ |
| 365 | CGI::td([ |
365 | CGI::td([ |
| 366 | CGI::submit("sets_assigned_to_user", "View/edit")." all sets for one <b>user</b>", |
366 | CGI::submit("sets_assigned_to_user", "View/edit")." all sets for one <b>user</b>(set dates, scores)", |
| 367 | CGI::submit("users_assigned_to_set", "View/edit")." all users for one <b>set</b>", |
367 | CGI::submit("users_assigned_to_set", "View/edit")." all users for one <b>set</b>", |
| 368 | ]), |
368 | ]), |
| 369 | CGI::td([ |
369 | CGI::td([ |
| 370 | CGI::submit("edit_users", "Edit"). " selected <b>users</b>", |
370 | CGI::submit("edit_users", "Edit"). " class list data for selected <b>users</b>", |
| 371 | CGI::submit("edit_sets", "Edit"). " one <b>set</b>" . " ". |
371 | CGI::submit("edit_sets", "Edit"). " one <b>set</b>" . " ". |
| 372 | "or ".CGI::submit("prob_lib","add problems")." to one <b>set</b>", |
372 | "or ".CGI::submit("prob_lib","add problems")." to one <b>set</b>", |
| 373 | ]), |
373 | ]), |
| 374 | CGI::td([ |
374 | CGI::td([ |
| 375 | CGI::submit("user_stats", "Statistics")." or ". |
375 | CGI::submit("user_stats", "Statistics")." or ". |
Parent Directory
| 
Revision Log
| 
Patch