version 1.72, 2007/04/18 00:19:37
|
version 1.76, 2008/02/01 22:05:45
|
Line 327 sub end_organicresponse {
|
Line 327 sub end_organicresponse {
|
} |
} |
$result.=&Apache::response::answer_footer('organicresponse'); |
$result.=&Apache::response::answer_footer('organicresponse'); |
} |
} |
|
if ($target eq 'web') { |
|
&Apache::response::setup_prior_tries_hash(\&format_prior_answer_organic, |
|
['molecule']) |
|
} |
|
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::increment_counter(&Apache::response::repetition()); |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), |
|
"$partid.$id"); # part.response |
|
if ($target eq 'analyze') { |
|
$Apache::lonhomework::analyze{"$partid.$id.type"} = 'organicresponse'; |
|
&Apache::lonhomework::set_bubble_lines(); |
|
} |
} |
} |
&Apache::response::end_response(); |
&Apache::response::end_response(); |
return $result; |
return $result; |
} |
} |
|
|
|
sub format_prior_answer_organic { |
|
my ($mode,$answer,$other_data) = @_; |
|
my $result=&mt('Smile representation: "[_1]"','<tt>'.$answer.'</tt>'); |
|
my $jme=$other_data->[0]; |
|
$result.=&jme_img($jme,$answer,400); |
|
return $result; |
|
} |
|
|
sub start_organicstructure { |
sub start_organicstructure { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
Line 548 sub end_reactionresponse {
|
Line 565 sub end_reactionresponse {
|
|
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
$target eq 'tex' || $target eq 'analyze') { |
$target eq 'tex' || $target eq 'analyze') { |
&Apache::lonxml::increment_counter(&Apache::response::repetition()); |
&Apache::lonxml::increment_counter(&Apache::response::repetition(), "$partid.$id"); |
} |
} |
&Apache::response::end_response(); |
&Apache::response::end_response(); |
return $result; |
return $result; |