| … | |
… | |
| 27 | use warnings; |
27 | use warnings; |
| 28 | #use CGI qw(-nosticky ); |
28 | #use CGI qw(-nosticky ); |
| 29 | use WeBWorK::CGI; |
29 | use WeBWorK::CGI; |
| 30 | use WeBWorK::Cookie; |
30 | use WeBWorK::Cookie; |
| 31 | |
31 | |
| 32 | |
|
|
| 33 | #################### |
|
|
| 34 | ## WeBWorK-tr Import localization handle |
|
|
| 35 | |
|
|
| 36 | use WeBWorK::Localize; |
|
|
| 37 | # use vars qw($LH); |
|
|
| 38 | my $LH = $WeBWorK::ContentGenerator::LH; |
|
|
| 39 | |
|
|
| 40 | ## WeBWorK-tr end modification |
|
|
| 41 | ##################### |
|
|
| 42 | |
32 | |
| 43 | |
33 | |
| 44 | sub pre_header_initialize { |
34 | sub pre_header_initialize { |
| 45 | my ($self) = @_; |
35 | my ($self) = @_; |
| 46 | my $r = $self->r; |
36 | my $r = $self->r; |