|
version 1.48, 2001/12/07 23:59:08
|
version 1.49, 2002/01/11 16:32:29
|
|
Line 82 sub start_numericalresponse {
|
Line 82 sub start_numericalresponse {
|
| my $id = &Apache::response::start_response($parstack,$safeeval); |
my $id = &Apache::response::start_response($parstack,$safeeval); |
| my $result; |
my $result; |
| if ($target eq 'edit') { |
if ($target eq 'edit') { |
| $result.=&Apache::edit::tag_start($target,$token,&Apache::lonxml::description($token)); |
$result.=&Apache::edit::tag_start($target,$token); |
| $result.=&Apache::edit::text_arg('Answer:','answer',$token); |
$result.=&Apache::edit::text_arg('Answer:','answer',$token); |
| if ($token->[1] eq 'numericalresponse') { |
if ($token->[1] eq 'numericalresponse') { |
| $result.=&Apache::edit::text_arg('Unit:','unit',$token,5); |
$result.=&Apache::edit::text_arg('Unit:','unit',$token,5); |
| $result.=&Apache::edit::text_arg('Format:','format',$token,4); |
$result.=&Apache::edit::text_arg('Format:','format',$token,4); |
| } elsif ($token->[1] eq 'stringresponse') { |
} elsif ($token->[1] eq 'stringresponse') { |
| $result.=&Apache::edit::select_arg('Type:','type', |
$result.=&Apache::edit::select_arg('Type:','type', |
| ['cs','ci','mc'],$token) |
['cs','ci','mc'],$token); |
| } elsif ($token->[1] eq 'formularesponse') { |
} elsif ($token->[1] eq 'formularesponse') { |
| $result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40); |
$result.=&Apache::edit::text_arg('Sample Points:','samples',$token,40); |
| } |
} |
| $result.='</td></tr><tr><td colspan="3">'; |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
| } elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
| my $constructtag; |
my $constructtag; |
| if ($token->[1] eq 'numericalresponse') { |
if ($token->[1] eq 'numericalresponse') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to caparesponse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / caparesponse