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

    1 package WeBWorK::ContentGenerator::ProblemSet;
    2 our @ISA = qw(WeBWorK::ContentGenerator);
    3 
    4 use strict;
    5 use warnings;
    6 use WeBWorK::ContentGenerator;
    7 use Apache::Constants qw(:common);
    8 use CGI qw(-compile :html :form);
    9 
   10 sub title {
   11   my ($self, $problem_set) = @_;
   12   my $r = $self->{r};
   13   my $courseEnvironment = $self->{courseEnvironment};
   14   my $user = $r->param('user');
   15 
   16   return "Problem set $problem_set for $user";
   17 }
   18 
   19 sub body {
   20   my ($self, $problem_set) = @_;
   21   my $r = $self->{r};
   22   my $courseEnvironment = $self->{courseEnvironment};
   23   my $user = $r->param('user');
   24 
   25   print startform({-method=>"POST", -action=>$r->uri."prob2/"});
   26   print $self->hidden_authen_fields;
   27   print input({-type=>"submit", -value=>"Do Problem 2"});
   28   print endform;
   29   "";
   30 }
   31 
   32 1;