| … | |
… | |
| 43 | sub pre_header_initialize { |
43 | sub pre_header_initialize { |
| 44 | my ($self, $setName, $problemNumber) = @_; |
44 | my ($self, $setName, $problemNumber) = @_; |
| 45 | my $courseEnv = $self->{courseEnvironment}; |
45 | my $courseEnv = $self->{courseEnvironment}; |
| 46 | my $r = $self->{r}; |
46 | my $r = $self->{r}; |
| 47 | my $userName = $r->param('user'); |
47 | my $userName = $r->param('user'); |
|
|
48 | |
|
|
49 | # make sure $problemNumber is numeric (see PG.pm) |
|
|
50 | die "Problem must be numeric!\n" unless $problemNumber =~ /^\d+$/; |
| 48 | |
51 | |
| 49 | # fix format of setName and problem |
52 | # fix format of setName and problem |
| 50 | $setName =~ s/^set//; |
53 | $setName =~ s/^set//; |
| 51 | $problemNumber =~ s/^prob//; |
54 | $problemNumber =~ s/^prob//; |
| 52 | |
55 | |
Parent Directory
| 
Revision Log
| 
Patch