|
version 1.76.2.5.2.1, 2023/09/08 00:52:36
|
version 1.79, 2020/09/12 20:21:30
|
|
Line 85 sub render_resource {
|
Line 85 sub render_resource {
|
| ## |
## |
| ## Render the problem |
## Render the problem |
| my ($base) = ($resource->src =~ m|^(.*/)[^/]*$|); |
my ($base) = ($resource->src =~ m|^(.*/)[^/]*$|); |
| $base=&Apache::lonnet::absolute_url().$base; |
$base="http://".$ENV{'SERVER_NAME'}.$base; |
| my ($src,$symb)=($resource->link,&escape($resource->shown_symb)); |
my ($src,$symb)=($resource->link,&escape($resource->shown_symb)); |
| my $rendered_problem = &Apache::lonnet::ssi_body($src.'?symb='.$symb); |
my $rendered_problem = &Apache::lonnet::ssi_body($src.'?symb='.$symb); |
| $rendered_problem =~ s/<\s*form\s*/<nop /g; |
$rendered_problem =~ s/<\s*form\s*/<nop /g; |
|
Line 198 sub problem_selector {
|
Line 198 sub problem_selector {
|
| my %partsseen; |
my %partsseen; |
| foreach my $part (@{$res->parts}) { |
foreach my $part (@{$res->parts}) { |
| my (@response_ids,@response_types); |
my (@response_ids,@response_types); |
| if (($include_tools) && ($res->is_tool)) { |
if ($res->is_tool) { |
| @response_ids = (); |
@response_ids = (); |
| @response_types = ('tool'); |
@response_types = ('tool'); |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonstathelpers.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics