[system] / trunk / webwork2 / lib / WeBWorK / ContentGenerator / Problem.pm Repository:
ViewVC logotype

Diff of /trunk/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 492 Revision 494
1################################################################################ 1################################################################################
2# WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester 2# WeBWorK mod_perl (c) 2000-2002 WeBWorK Project
3# $Id$ 3# $Id$
4################################################################################ 4################################################################################
5 5
6package WeBWorK::ContentGenerator::Problem; 6package WeBWorK::ContentGenerator::Problem;
7 7
… …
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 48
49 # make sure $problemNumber is numeric (see PG.pm)
50 die "Problem must be numeric!\n" unless $problemNumber =~ /^\d+$/;
51
52 # fix format of setName and problem 49 # fix format of setName and problem
53 $setName =~ s/^set//; 50 $setName =~ s/^set//;
54 $problemNumber =~ s/^prob//; 51 $problemNumber =~ s/^prob//;
52
53 # make sure $problemNumber is numeric (see PG.pm)
54 die "Problem must be numeric!\n" unless $problemNumber =~ /^\d+$/;
55 55
56 ##### database setup ##### 56 ##### database setup #####
57 57
58 my $cldb = WeBWorK::DB::Classlist->new($courseEnv); 58 my $cldb = WeBWorK::DB::Classlist->new($courseEnv);
59 my $wwdb = WeBWorK::DB::WW->new($courseEnv); 59 my $wwdb = WeBWorK::DB::WW->new($courseEnv);
Legend:
Removed from v.492  
changed lines
  Added in v.494
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9