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

Diff of /trunk/webwork2/lib/WeBWorK/ContentGenerator/ProblemSet.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 442 Revision 443
… …
3 3
4use strict; 4use strict;
5use warnings; 5use warnings;
6use WeBWorK::ContentGenerator; 6use WeBWorK::ContentGenerator;
7use Apache::Constants qw(:common); 7use Apache::Constants qw(:common);
8use CGI qw(-compile :html :form); 8use CGI qw();
9 9
10sub title { 10sub title {
11 my ($self, $problem_set) = @_; 11 my ($self, $problem_set) = @_;
12 my $r = $self->{r}; 12 my $r = $self->{r};
13 my $courseEnvironment = $self->{courseEnvironment}; 13 my $courseEnvironment = $self->{courseEnvironment};
… …
20 my ($self, $problem_set) = @_; 20 my ($self, $problem_set) = @_;
21 my $r = $self->{r}; 21 my $r = $self->{r};
22 my $courseEnvironment = $self->{courseEnvironment}; 22 my $courseEnvironment = $self->{courseEnvironment};
23 my $user = $r->param('user'); 23 my $user = $r->param('user');
24 24
25 print startform({-method=>"POST", -action=>$r->uri."prob2/"}); 25 print CGI->startform({-method=>"POST", -action=>$r->uri."prob2/"});
26 print $self->hidden_authen_fields; 26 print $self->hidden_authen_fields;
27 print input({-type=>"submit", -value=>"Do Problem 2"}); 27 print CGI->input({-type=>"submit", -value=>"Do Problem 2"});
28 print endform; 28 print CGI->endform();
29 ""; 29 "";
30} 30}
31 31
321; 321;
Legend:
Removed from v.442  
changed lines
  Added in v.443
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9