loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.47, 2003/09/08 19:08:57	version 1.48, 2003/09/08 19:17:34
Line 193 sub start_labelgroup {	Line 193 sub start_labelgroup {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval);	my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval);
$type =~tr/A-Z/a-z/;	$type =~tr/A-Z/a-z/;
	if ($target ne 'modified' && ($name =~ /\W/ \|\| $name =~ /^[0-9]/)) {
	&Apache::lonxml::error("Only _ a-z A-Z and 0-9 are allowed in the name to a labelgroup, and the first character can not be a number.<br />");
	}
if ($target eq 'web' \|\| $target eq 'tex' \|\|	if ($target eq 'web' \|\| $target eq 'tex' \|\|
$target eq 'grade' \|\| $target eq 'answer' \|\| $target eq 'analyze') {	$target eq 'grade' \|\| $target eq 'answer' \|\| $target eq 'analyze') {
$Apache::randomlabel::groupname=$name;	$Apache::randomlabel::groupname=$name;