|
version 1.65, 2002/10/08 18:04:04
|
version 1.66, 2002/10/14 20:37:27
|
|
Line 245 sub end_dataresponse {
|
Line 245 sub end_dataresponse {
|
| my ($symb,$courseid,$domain,$name)=&Apache::lonxml::whichuser(); |
my ($symb,$courseid,$domain,$name)=&Apache::lonxml::whichuser(); |
| my $allowed=&Apache::lonnet::allowed('mgr',$courseid); |
my $allowed=&Apache::lonnet::allowed('mgr',$courseid); |
| if ($allowed) { |
if ($allowed) { |
| &Apache::response::setup_params('datasubmission'); |
&Apache::response::setup_params('dataresponse'); |
| my $partid = $Apache::inputtags::part; |
my $partid = $Apache::inputtags::part; |
| my $id = $Apache::inputtags::response['-1']; |
my $id = $Apache::inputtags::response['-1']; |
| my $response = $ENV{'form.HWVAL'.$id}; |
my $response = $ENV{'form.HWVAL'.$id}; |
|
Line 293 sub start_responseparam {
|
Line 293 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 'web' || $target eq 'tex') { |
$target eq 'tex' || $target eq 'analyze' ) { |
| 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); |
![[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