version 1.140, 2022/06/29 17:51:10
|
version 1.141, 2022/09/13 12:22:15
|
Line 993 sub get_buttons {
|
Line 993 sub get_buttons {
|
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; |
my ($aname,$shownsymb); |
if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) { |
if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) { |
$aname = 'LC_'.$rid; |
$aname = 'LC_'.$rid; |
|
$shownsymb = &Apache::lonenc::encrypted($symb); |
} else { |
} else { |
my $shownsymb = $symb; |
$shownsymb = $symb; |
|
my $dispsymb = $symb; |
if ($symb =~ /\#([^\#]+)$/) { |
if ($symb =~ /\#([^\#]+)$/) { |
my $escan = &escape('#'); |
my $escan = &escape('#'); |
$shownsymb =~ s/#([^\#]+)$/$escan$1/; |
$dispsymb =~ s/#([^\#]+)$/$escan$1/; |
} |
} |
$aname = &escape($shownsymb); |
$aname = &escape($dispsymb); |
} |
} |
my $metainfo = '<a name="'.$aname.'"></a>'; |
my $metainfo = '<a name="'.$aname.'"></a>'; |
unless ($env{'request.role.adv'}) { |
unless ($env{'request.role.adv'}) { |
Line 1085 sub get_buttons {
|
Line 1087 sub get_buttons {
|
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb); |
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb); |
if ($cfile ne '') { |
if ($cfile ne '') { |
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver, |
$forceedit,1,$symb,undef, |
$forceedit,1,$symb,$shownsymb, |
&escape($env{'form.title'}), |
undef,&escape($env{'form.title'}), |
$hostname); |
$hostname); |
if ($jscall) { |
if ($jscall) { |
$editbutton = 1; |
$editbutton = 1; |