|
version 1.59, 2002/02/14 21:48:31
|
version 1.60, 2002/02/15 22:16:04
|
|
Line 62 sub start_hintresponse {
|
Line 62 sub start_hintresponse {
|
| my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
| if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
| push (@Apache::inputtags::response,$id); |
push (@Apache::inputtags::response,$id); |
| |
push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]); |
| return $id; |
return $id; |
| } |
} |
| |
|
| sub end_hintresponse { |
sub end_hintresponse { |
| pop @Apache::inputtags::response; |
pop @Apache::inputtags::response; |
| |
%Apache::inputtags::params=@{pop(@Apache::inputtags::paramstack)}; |
| return ''; |
return ''; |
| } |
} |
| |
|
|
Line 356 sub start_responseparam {
|
Line 358 sub start_responseparam {
|
| $result = &Apache::edit::rebuild_tag($token); |
$result = &Apache::edit::rebuild_tag($token); |
| $result.=&Apache::edit::handle_insert(); |
$result.=&Apache::edit::handle_insert(); |
| } |
} |
| } elsif ($target eq 'grade' || $target eq 'answer' ) { |
} elsif ($target eq 'grade' || $target eq 'answer' || |
| |
$target eq 'web' || $target eq 'tex') { |
| if ($ENV{'request.state'} eq 'construct') { |
if ($ENV{'request.state'} eq 'construct') { |
| my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
| my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval); |
my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval); |
|
Line 386 sub setup_params {
|
Line 389 sub setup_params {
|
| my ($tag) = @_; |
my ($tag) = @_; |
| |
|
| if ($ENV{'request.state'} eq 'construct') { return; } |
if ($ENV{'request.state'} eq 'construct') { return; } |
| @Apache::inputtags::params=(); |
%Apache::inputtags::params=(); |
| my %paramlist=(); |
my %paramlist=(); |
| foreach my $key (keys(%Apache::lonnet::packagetab)) { |
foreach my $key (keys(%Apache::lonnet::packagetab)) { |
| if ($key =~ /^$tag/) { |
if ($key =~ /^$tag/) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to response.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework