[system] / trunk / webwork2 / lib / WeBWorK / ContentGenerator / ProblemSets.pm Repository:
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 403 - (download) (as text) (annotate)
Mon Jun 24 16:34:30 2002 UTC (11 years, 9 months ago) by malsyned
File size: 682 byte(s)
Removed the CARP code (for now?), and made sure that an actual problem was
reachable (even though PG evaluation is commented out in the dispatcher
right now)

    1 package WeBWorK::ContentGenerator::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 title {
    9   my $self = shift;
   10   my $r = $self->{r};
   11   my $courseEnvironment = $self->{courseEnvironment};
   12   my $user = $r->param('user');
   13 
   14   return "Problem Sets for $user";
   15 }
   16 
   17 sub body {
   18   my $self = shift;
   19   my $r = $self->{r};
   20   my $courseEnvironment = $self->{courseEnvironment};
   21   my $user = $r->param('user');
   22 
   23   print startform({-method=>"POST", -action=>$r->uri."set0/"});
   24   print $self->hidden_authen_fields;
   25   print input({-type=>"submit", -value=>"Do Set 0"});
   26   print endform;
   27   "";
   28 }
   29 
   30 1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9