version 1.78, 2003/10/27 19:27:09
|
version 1.80, 2004/01/14 22:08:22
|
Line 46 sub start_radiobuttonresponse {
|
Line 46 sub start_radiobuttonresponse {
|
$result=&Apache::response::meta_package_write('radiobuttonresponse'); |
$result=&Apache::response::meta_package_write('radiobuttonresponse'); |
} elsif ($target eq 'edit' ) { |
} elsif ($target eq 'edit' ) { |
$result.=&Apache::edit::start_table($token). |
$result.=&Apache::edit::start_table($token). |
'<tr><td>'.&Apache::lonxml::description($token)."</td><td>Delete:". |
'<tr><td>'.&Apache::lonxml::description($token). |
|
&Apache::loncommon::help_open_topic('Radio_Response_Problems'). |
|
"</td><td>Delete:". |
&Apache::edit::deletelist($target,$token) |
&Apache::edit::deletelist($target,$token) |
."</td><td> ".&Apache::edit::end_row() |
."</td><td> ".&Apache::edit::end_row() |
.&Apache::edit::start_spanning_row(); |
.&Apache::edit::start_spanning_row(); |
Line 154 sub end_foilgroup {
|
Line 156 sub end_foilgroup {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
|
|
my $result; |
my $result; |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || $target eq 'tex' || $target eq 'analyze') { |
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
|
$target eq 'tex' || $target eq 'analyze') { |
my $style = $Apache::lonhomework::type; |
my $style = $Apache::lonhomework::type; |
if ( $style eq 'survey' && $target ne 'analyze') { |
if ( $style eq 'survey' && $target ne 'analyze') { |
if ($target eq 'web' || $target eq 'answer' || $target eq 'tex') { |
if ($target eq 'web' || $target eq 'answer' || $target eq 'tex') { |
Line 175 sub end_foilgroup {
|
Line 178 sub end_foilgroup {
|
&grade_response($max,$randomize); |
&grade_response($max,$randomize); |
} elsif ( $target eq 'analyze') { |
} elsif ( $target eq 'analyze') { |
my @shown = &whichfoils($max,$randomize); |
my @shown = &whichfoils($max,$randomize); |
&Apache::response::analyze_store_foilgroup(\@shown,['text','value']); |
&Apache::response::analyze_store_foilgroup(\@shown, |
|
['text','value','location']); |
|
my $part_id="$Apache::inputtags::part.$Apache::inputtags::response[-1]"; |
|
push (@{ $Apache::lonhomework::analyze{"$part_id.options"} }, |
|
('true','false')); |
} |
} |
} |
} |
} |
} |