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

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

Parent Directory Parent Directory | Revision Log Revision Log


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

1 : malsyned 323 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;

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9