rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

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);
}	}