[system] / trunk / webwork-modperl / lib / WeBWorK / ContentGenerator / Instructor / UserList.pm Repository:
ViewVC logotype

View of /trunk/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1015 - (download) (as text) (annotate)
Wed Jun 4 20:19:27 2003 UTC (9 years, 11 months ago) by malsyned
File size: 683 byte(s)
The UserList module now has a single button, "Assign to all users", that
does what it says it does.  This should allow people to create new
problems and problem sets and edit them without ever needing the old
system, assuming that they are importing an existing course into
webwork2.
-Dennis

    1 package WeBWorK::ContentGenerator::Instructor::UserList;
    2 use base qw(WeBWorK::ContentGenerator::Instructor);
    3 
    4 =head1 NAME
    5 
    6 WeBWorK::ContentGenerator::Instructor::UserList - Entry point for User-specific data editing
    7 
    8 =cut
    9 
   10 use strict;
   11 use warnings;
   12 use CGI qw();
   13 
   14 sub initialize {
   15   my ($self, $setID) = @_;
   16   my $r = $self->{r};
   17   if (defined $r->param('assignToAll')) {
   18     $self->assignSetToAllUsers($setID);
   19   }
   20 }
   21 
   22 sub body {
   23   my ($self, $setID) = @_;
   24   my $r = $self->{r};
   25   print CGI::start_form({method=>"post", action=>$r->uri});
   26   print $self->hidden_authen_fields;
   27   print CGI::submit({name=>"assignToAll", value=>"Assign to All Users"});
   28   print CGI::end_form();
   29 
   30   return "";
   31 }
   32 
   33 1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9