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 ""; |