| 1 | package WeBWorK::ContentGenerator::ProblemSets; |
1 | package WeBWorK::ContentGenerator::ProblemSets; |
| 2 | our @ISA = qw(WeBWorK::ContentGenerator); |
2 | our @ISA = qw(WeBWorK::ContentGenerator); |
| 3 | |
3 | |
|
|
4 | use strict; |
|
|
5 | use warnings; |
| 4 | use WeBWorK::ContentGenerator; |
6 | use WeBWorK::ContentGenerator; |
|
|
7 | use WeBWorK::DB::WW; |
| 5 | use Apache::Constants qw(:common); |
8 | use Apache::Constants qw(:common); |
| 6 | use CGI qw(-compile :html :form); |
9 | use CGI qw(-compile :html :form); |
|
|
10 | |
|
|
11 | sub initialize { |
|
|
12 | my $self = shift; |
|
|
13 | my $courseEnvironment = $self->{courseEnvironment}; |
|
|
14 | |
|
|
15 | # Open a database connection that we can use for the rest of |
|
|
16 | # the content generation. |
|
|
17 | |
|
|
18 | my $wwdb = new WeBWorK::DB::WW $courseEnvironment; |
|
|
19 | $self->{wwdb} = $wwdb; |
|
|
20 | } |
| 7 | |
21 | |
| 8 | sub title { |
22 | sub title { |
| 9 | my $self = shift; |
23 | my $self = shift; |
| 10 | my $r = $self->{r}; |
24 | my $r = $self->{r}; |
| 11 | my $courseEnvironment = $self->{courseEnvironment}; |
25 | my $courseEnvironment = $self->{courseEnvironment}; |
| … | |
… | |
| 17 | sub body { |
31 | sub body { |
| 18 | my $self = shift; |
32 | my $self = shift; |
| 19 | my $r = $self->{r}; |
33 | my $r = $self->{r}; |
| 20 | my $courseEnvironment = $self->{courseEnvironment}; |
34 | my $courseEnvironment = $self->{courseEnvironment}; |
| 21 | my $user = $r->param('user'); |
35 | my $user = $r->param('user'); |
|
|
36 | my $wwdb = $self->{wwdb}; |
|
|
37 | |
|
|
38 | if (!defined $wwdb->getSets($user)) { |
|
|
39 | print "undefined".br; |
|
|
40 | } |
|
|
41 | |
|
|
42 | my @setNames = $wwdb->getSets($user); |
|
|
43 | |
|
|
44 | print "Set Names<br>\n"; |
|
|
45 | print join(br."\n", @setNames); |
|
|
46 | print p; |
| 22 | |
47 | |
| 23 | print startform({-method=>"POST", -action=>$r->uri."set0/"}); |
48 | print startform({-method=>"POST", -action=>$r->uri."set0/"}); |
| 24 | print $self->hidden_authen_fields; |
49 | print $self->hidden_authen_fields; |
| 25 | print input({-type=>"submit", -value=>"Do Set 0"}); |
50 | print input({-type=>"submit", -value=>"Do Set 0"}); |
| 26 | print endform; |
51 | print endform; |
Parent Directory
| 
Revision Log
| 
Patch