--- trunk/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm	2002/08/20 01:07:18	476
+++ trunk/webwork2/lib/WeBWorK/ContentGenerator/Problem.pm	2002/08/21 15:34:35	492
@@ -46,6 +46,9 @@
 	my $r = $self->{r};
 	my $userName = $r->param('user');
 	
+	# make sure $problemNumber is numeric (see PG.pm)
+	die "Problem must be numeric!\n" unless $problemNumber =~ /^\d+$/;
+	
 	# fix format of setName and problem
 	$setName =~ s/^set//;
 	$problemNumber =~ s/^prob//;