rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.137, 2020/03/05 19:24:35	version 1.138, 2020/03/06 20:04:01
Line 368 sub handler {	Line 368 sub handler {
if (($hash{'encrypted_'.$_}) && ($symb) && (!$env{'request.role.adv'})) {	if (($hash{'encrypted_'.$_}) && ($symb) && (!$env{'request.role.adv'})) {
$showsrc .= '?symb='.&Apache::lonenc::encrypted($symb);	$showsrc .= '?symb='.&Apache::lonenc::encrypted($symb);
} elsif ($anchor) {	} elsif ($anchor) {
$showsrc .= $anchor	$showsrc .= $anchor;
}	}
$ssibody{$_} = <<ENDEXT;	$ssibody{$_} = <<ENDEXT;
<iframe src="$showsrc" width="100%" height="300px">No iframe support!</iframe>	<iframe src="$showsrc" width="100%" height="300px">No iframe support!</iframe>
Line 947 sub get_buttons {	Line 947 sub get_buttons {
if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) {	if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) {
$aname = 'LC_'.$rid;	$aname = 'LC_'.$rid;
} else {	} else {
$aname = &escape($symb);	my $shownsymb = $symb;
	if ($symb =~ /\#([^\#]+)$/) {
	my $escan = &escape('#');
	$shownsymb =~ s/#([^\#]+)$/$escan$1/;
	}
	$aname = &escape($shownsymb);
}	}
my $metainfo = '<a name="'.$aname.'"></a>';	my $metainfo = '<a name="'.$aname.'"></a>';
unless ($env{'request.role.adv'}) {	unless ($env{'request.role.adv'}) {