loncom/homework/randomlabel.pm - diff

Return to randomlabel.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.60, 2004/03/12 21:01:14	version 1.61, 2004/07/02 08:09:49
Line 260 sub start_labelgroup {	Line 260 sub start_labelgroup {

sub add_vars {	sub add_vars {
my ($name,$order,$label,$labelorder,$value,$image,$safeeval) = @_;	my ($name,$order,$label,$labelorder,$value,$image,$safeeval) = @_;
	if (!defined($name) \|\| $name eq '') { return; }
my $code = '${'.$name."}{'".($order+1)."'}='".$label."';";	my $code = '${'.$name."}{'".($order+1)."'}='".$label."';";
my $out=Apache::run::run($code,$safeeval);	my $out=Apache::run::run($code,$safeeval);
if ($value) {	if ($value) {
Line 451 sub end_label {	Line 452 sub end_label {
my $description = &Apache::lonxml::get_param('description',	my $description = &Apache::lonxml::get_param('description',
$parstack,$safeeval);	$parstack,$safeeval);
push(@Apache::randomlabel::description,$description);	push(@Apache::randomlabel::description,$description);
	} else {
	$ltext=~s/[\r\n]*//gs
}	}
push(@Apache::randomlabel::label_arr,$ltext);	push(@Apache::randomlabel::label_arr,$ltext);
}	}