| … | |
… | |
| 3 | # $Id$ |
3 | # $Id$ |
| 4 | ################################################################################ |
4 | ################################################################################ |
| 5 | |
5 | |
| 6 | package WeBWorK::ContentGenerator::Problem; |
6 | package WeBWorK::ContentGenerator::Problem; |
| 7 | |
7 | |
|
|
8 | =head1 NAME |
|
|
9 | |
|
|
10 | WeBWorK::ContentGenerator::Problem - Allow a student to interact with a problem. |
|
|
11 | |
|
|
12 | =cut |
|
|
13 | |
| 8 | use strict; |
14 | use strict; |
| 9 | use warnings; |
15 | use warnings; |
| 10 | use base qw(WeBWorK::ContentGenerator); |
16 | use base qw(WeBWorK::ContentGenerator); |
| 11 | use CGI qw(); |
17 | use CGI qw(); |
|
|
18 | use WeBWorK::Form; |
|
|
19 | use WeBWorK::PG; |
| 12 | use WeBWorK::Utils qw(ref2string encodeAnswers decodeAnswers); |
20 | use WeBWorK::Utils qw(ref2string encodeAnswers decodeAnswers); |
| 13 | use WeBWorK::PG; |
|
|
| 14 | use WeBWorK::Form; |
|
|
| 15 | |
21 | |
| 16 | # TODO: |
22 | # TODO: |
| 17 | # :) enforce permissions for showCorrectAnswers and showSolutions |
23 | # :) enforce permissions for showCorrectAnswers and showSolutions |
| 18 | # (use $PRIV = $canPRIV && ($wantPRIV || $mustPRIV) -- cool syntax!) |
24 | # (use $PRIV = $canPRIV && ($wantPRIV || $mustPRIV) -- cool syntax!) |
| 19 | # :) if answers were not submitted and there are student answers in the DB, |
25 | # :) if answers were not submitted and there are student answers in the DB, |
| … | |
… | |
| 40 | # redisplay - name of the "Redisplay Problem" button |
46 | # redisplay - name of the "Redisplay Problem" button |
| 41 | # submitAnswers - name of "Submit Answers" button |
47 | # submitAnswers - name of "Submit Answers" button |
| 42 | # |
48 | # |
| 43 | ############################################################ |
49 | ############################################################ |
| 44 | |
50 | |
| 45 | sub initialize { |
51 | sub prepare { |
| 46 | my ($self, $setName, $problemNumber) = @_; |
52 | my ($self, $setName, $problemNumber) = @_; |
| 47 | my $courseEnv = $self->{courseEnvironment}; |
53 | my $courseEnv = $self->{courseEnvironment}; |
| 48 | my $r = $self->{r}; |
54 | my $r = $self->{r}; |
| 49 | my $userName = $r->param('user'); |
55 | my $userName = $r->param('user'); |
| 50 | |
56 | |
| … | |
… | |
| 168 | } |
174 | } |
| 169 | |
175 | |
| 170 | sub body { |
176 | sub body { |
| 171 | my $self = shift; |
177 | my $self = shift; |
| 172 | |
178 | |
| 173 | #$self->prepare(@_); |
179 | $self->prepare(@_); |
| 174 | |
180 | |
| 175 | # unpack some useful variables |
181 | # unpack some useful variables |
| 176 | my $r = $self->{r}; |
182 | my $r = $self->{r}; |
| 177 | my $wwdb = $self->{wwdb}; |
183 | my $wwdb = $self->{wwdb}; |
| 178 | my $set = $self->{set}; |
184 | my $set = $self->{set}; |
Parent Directory
| 
Revision Log
| 
Patch