loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.160, 2011/08/03 03:14:29	version 1.161, 2011/10/06 17:15:40
Line 318 sub caparesponse_check_list {	Line 318 sub caparesponse_check_list {
$responses->[0][-1]=$part1;	$responses->[0][-1]=$part1;
$unit=&capa_formula_fix($part2);	$unit=&capa_formula_fix($part2);
my $customunits=$LONCAPA::CAPAresponse_args{'customunits'};	my $customunits=$LONCAPA::CAPAresponse_args{'customunits'};
foreach my $replacement (split(/\s\,\s/,$customunits)) {	if ($customunits =~ /\S/) {
my ($which,$what)=split(/\s\=\s/,$replacement);	foreach my $replacement (split(/\s\,\s/,$customunits)) {
if ((defined($which)) && (defined($what))) {	my ($which,$what)=split(/\s\=\s/,$replacement);
$what=&capa_formula_fix($what);	if ((defined($which)) && (defined($what))) {
$unit=~s/$which/$$what$/g;	$what=&capa_formula_fix($what);
	$unit=~s/$which/$$what$/g;
	}
}	}
}	}
}	}
Line 1181 sub middlename {	Line 1183 sub middlename {
return $middlename;	return $middlename;
}	}


sub lastname {	sub lastname {
my $lastname = &EXT('environment.lastname');	my $lastname = &EXT('environment.lastname');
$lastname = '' if $lastname eq "";	$lastname = '' if $lastname eq "";