View of /trunk/webwork2/lib/WeBWorK/ProblemSets.pm

    1 package WeBWorK::ProblemSets;
    2 our @ISA = qw(WeBWorK::ContentGenerator);
    3 
    4 use WeBWorK::ContentGenerator;
    5 use Apache::Constants qw(:common);
    6 use CGI qw(-compile :html :form);
    7 
    8 sub go() {
    9   my $self = shift;
   10   my $r = $self->{r};
   11   my $courseEnvironment = $self->{courseEnvironment};
   12   my $user = $r->param('user');
   13 
   14   $self->header; return OK if $r->header_only;
   15   $self->top("Problem Sets for $user");
   16 
   17   print startform({-method=>"POST", -action=>$r->uri."set4/"});
   18   print $self->hidden_authen_fields;
   19   print input({-type=>"submit", -value=>"Do Set 4"});
   20   print endform;
   21 
   22   $self->bottom;
   23 
   24   return OK;
   25 }
   26 
   27 1;