version 1.160, 2011/08/03 03:14:29
|
version 1.162, 2012/11/21 23:22:43
|
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 814 sub cos { CORE::cos(shift) }
|
Line 816 sub cos { CORE::cos(shift) }
|
sub exp { CORE::exp(shift) } |
sub exp { CORE::exp(shift) } |
sub int { CORE::int(shift) } |
sub int { CORE::int(shift) } |
sub log { CORE::log(shift) } |
sub log { CORE::log(shift) } |
|
sub ln { CORE::log(shift) } |
sub atan2 { CORE::atan2($_[0],$_[1]) } |
sub atan2 { CORE::atan2($_[0],$_[1]) } |
sub sqrt { CORE::sqrt(shift) } |
sub sqrt { CORE::sqrt(shift) } |
|
|
Line 1181 sub middlename {
|
Line 1184 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 ""; |