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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 353 - (view) (download) (as text)

1 : malsyned 353 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."set4/"});
24 :     print $self->hidden_authen_fields;
25 :     print input({-type=>"submit", -value=>"Do Set 4"});
26 :     print endform;
27 :     "";
28 :     }
29 :    
30 :     1;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9