| … | |
… | |
| 44 | # |
44 | # |
| 45 | ############################################################ |
45 | ############################################################ |
| 46 | |
46 | |
| 47 | sub pre_header_initialize { |
47 | sub pre_header_initialize { |
| 48 | my ($self, $setName, $problemNumber) = @_; |
48 | my ($self, $setName, $problemNumber) = @_; |
| 49 | my $r = $self->{r}; |
49 | my $r = $self->{r}; |
| 50 | my $courseEnv = $self->{ce}; |
50 | my $courseEnv = $self->{ce}; |
| 51 | my $db = $self->{db}; |
51 | my $db = $self->{db}; |
| 52 | my $userName = $r->param('user'); |
52 | my $userName = $r->param('user'); |
| 53 | my $effectiveUserName = $r->param('effectiveUser'); |
53 | my $effectiveUserName = $r->param('effectiveUser'); |
| 54 | |
54 | my $key = $r->param('key'); |
| 55 | my $user = $db->getUser($userName); |
55 | my $user = $db->getUser($userName); |
| 56 | my $effectiveUser = $db->getUser($effectiveUserName); |
56 | my $effectiveUser = $db->getUser($effectiveUserName); |
| 57 | |
57 | |
| 58 | # obtain the effective user set, or if that is not yet defined obtain global set |
58 | # obtain the effective user set, or if that is not yet defined obtain global set |
| 59 | my $set = $db->getGlobalUserSet($effectiveUserName, $setName); |
59 | my $set = $db->getGlobalUserSet($effectiveUserName, $setName); |
| … | |
… | |
| 205 | ##### translation ##### |
205 | ##### translation ##### |
| 206 | |
206 | |
| 207 | my $pg = WeBWorK::PG->new( |
207 | my $pg = WeBWorK::PG->new( |
| 208 | $courseEnv, |
208 | $courseEnv, |
| 209 | $effectiveUser, |
209 | $effectiveUser, |
| 210 | $r->param('key'), |
210 | $key, |
| 211 | $set, |
211 | $set, |
| 212 | $problem, |
212 | $problem, |
| 213 | $psvn, |
213 | $psvn, |
| 214 | $formFields, |
214 | $formFields, |
| 215 | { # translation options |
215 | { # translation options |
Parent Directory
| 
Revision Log
| 
Patch