version 1.66, 2002/10/17 14:40:58
|
version 1.67, 2002/10/17 17:13:44
|
Line 278 sub end_numericalresponse {
|
Line 278 sub end_numericalresponse {
|
my $power = $2; |
my $power = $2; |
$power=~s/^\+//; |
$power=~s/^\+//; |
$power=~s/^(-?)0+(\d+)//; |
$power=~s/^(-?)0+(\d+)//; |
$ans=$number.'$\times 10^{'.$1.$2.'}$'; |
$ans=$number.'$\times 10^{'.$1.$2.'}$'; #'stupidemacs |
} |
} |
} else { |
} else { |
my $badans = $bubbles_values[$ind]; |
my $badans = $bubbles_values[$ind]; |
Line 297 sub end_numericalresponse {
|
Line 297 sub end_numericalresponse {
|
my $power = $2; |
my $power = $2; |
$power=~s/^\+//; |
$power=~s/^\+//; |
$power=~s/^(-?)0+(\d+)//; |
$power=~s/^(-?)0+(\d+)//; |
$ans=$number.'$\times 10^{'.$1.$2.'}$'; |
$ans=$number.'$\times 10^{'.$1.$2.'}$'; #'stupidemacs |
} |
} |
} |
} |
$result.='\hskip -3 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -2 mm & {\small '.$ans.'} '; |
$result.='\hskip -3 mm {\small \textbf{'.$alphabet[$ind].'}}$\bigcirc$\hskip -2 mm & {\small '.$ans.'} '; |
Line 308 sub end_numericalresponse {
|
Line 308 sub end_numericalresponse {
|
$result.='\\\\\end{tabular}\vskip 0 mm '; |
$result.='\\\\\end{tabular}\vskip 0 mm '; |
} |
} |
$result.='\end{enumerate}'; |
$result.='\end{enumerate}'; |
$Apache::lonxml::counter++; |
&Apache::lonxml::increment_counter(); |
my %moreenv; |
|
$moreenv{'form.counter'}=$Apache::lonxml::counter; |
|
&Apache::lonnet::appenv(%moreenv); |
|
} |
} |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |