| 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/Index.pm,v 1.37 2004/05/24 01:34:51 mschmitt Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/Index.pm,v 1.38 2004/06/14 20:30:30 toenail 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. |
| … | |
… | |
| 214 | |
214 | |
| 215 | return CGI::div({class=>"ResultsWithError"}, "You are not authorized to access the Instructor tools.") |
215 | return CGI::div({class=>"ResultsWithError"}, "You are not authorized to access the Instructor tools.") |
| 216 | unless $authz->hasPermissions($r->param("user"), "access_instructor_tools"); |
216 | unless $authz->hasPermissions($r->param("user"), "access_instructor_tools"); |
| 217 | |
217 | |
| 218 | print CGI::p("Use the interface below to quickly access commonly-used |
218 | print CGI::p("Use the interface below to quickly access commonly-used |
| 219 | instructor tools, or select a tool from the list to the left."); |
219 | instructor tools, or select a tool from the list to the left.", CGI::br(), |
| 220 | |
|
|
| 221 | print CGI::p("Select user(s) and/or set(s) below and click the action button |
220 | "Select user(s) and/or set(s) below and click the action button |
| 222 | of your choice."); |
221 | of your choice."); |
| 223 | |
222 | |
| 224 | my @userIDs = $db->listUsers; |
223 | my @userIDs = $db->listUsers; |
| 225 | my @Users = $db->getUsers(@userIDs); |
224 | my @Users = $db->getUsers(@userIDs); |
| 226 | |
225 | |
| … | |
… | |
| 311 | CGI::submit("act_as_user", "Act as")." one <b>user</b> (on one <b>set</b>)", |
310 | CGI::submit("act_as_user", "Act as")." one <b>user</b> (on one <b>set</b>)", |
| 312 | ), |
311 | ), |
| 313 | CGI::td({colspan=>2,style=>'text-align:center'}, |
312 | CGI::td({colspan=>2,style=>'text-align:center'}, |
| 314 | CGI::submit("edit_set_for_user", "Edit"). " one <b>set</b> for one <b>user</b>", |
313 | CGI::submit("edit_set_for_user", "Edit"). " one <b>set</b> for one <b>user</b>", |
| 315 | ), |
314 | ), |
|
|
315 | CGI::td({colspan=>2,style=>'text-align:center'}, |
|
|
316 | CGI::a({href=>"http://webwork3.math.rochester.edu:11002/webwork2/mth143b/instructor/add_users?".$self->url_authen_args}, |
|
|
317 | "Add users", |
|
|
318 | ), |
|
|
319 | ), |
| 316 | ]), |
320 | ]), |
| 317 | ); |
321 | ); |
| 318 | |
322 | |
| 319 | print CGI::end_form(); |
323 | print CGI::end_form(); |
| 320 | |
324 | |
Parent Directory
| 
Revision Log
| 
Patch