View of /trunk/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm

    1 package WeBWorK::ContentGenerator::Problem;
    2 our @ISA = qw(WeBWorK::ContentGenerator);
    3 
    4 use WeBWorK::ContentGenerator;
    5 use Apache::Constants qw(:common);
    6 
    7 sub title {
    8   my ($self, $problem_set, $problem) = @_;
    9   my $r = $self->{r};
   10   my $user = $r->param('user');
   11   return "Problem $problem of problem set $problem_set for $user";
   12 }
   13 
   14 sub body {
   15   my ($self, $problem_set, $problem) = @_;
   16   my $r = $self->{r};
   17   my $courseEnvironment = $self->{courseEnvironment};
   18   my $user = $r->param('user');
   19 
   20   print "Problem goes here";
   21 
   22   "";
   23 }
   24 
   25 1;