version 1.135, 2020/03/04 16:33:31
|
version 1.136, 2020/03/05 16:45:32
|
Line 939 ENDEXT
|
Line 939 ENDEXT
|
sub get_buttons { |
sub get_buttons { |
my ($hash,$rid,$buttonshide,$hostname) = @_; |
my ($hash,$rid,$buttonshide,$hostname) = @_; |
|
|
my $metainfo = ''; |
|
my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid}); |
|
my ($mapid,$resid)=split(/\./,$rid); |
my ($mapid,$resid)=split(/\./,$rid); |
my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid}, |
my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid}, |
$resid, |
$resid, |
$hash->{'src_'.$rid}); |
$hash->{'src_'.$rid}); |
|
my $aname; |
|
if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) { |
|
$aname = 'LC_'.$rid; |
|
} else { |
|
$aname = &escape($symb); |
|
} |
|
my $metainfo = '<a name="'.$aname.'"></a>'; |
unless ($env{'request.role.adv'}) { |
unless ($env{'request.role.adv'}) { |
if ($buttonshide->{$symb} eq 'yes') { |
if ($buttonshide->{$symb} eq 'yes') { |
return; |
return $metainfo; |
} |
} |
} |
} |
my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '') |
my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '') |
? "/$env{'request.course.sec'}" |
? "/$env{'request.course.sec'}" |
: ''); |
: ''); |
|
my $esrc=&Apache::lonnet::declutter($hash->{'src_'.$rid}); |
if ($hash->{'encrypted_'.$rid}) { |
if ($hash->{'encrypted_'.$rid}) { |
$esrc=&Apache::lonenc::encrypted($esrc); |
$esrc=&Apache::lonenc::encrypted($esrc); |
} |
} |