|
version 1.111.2.13.2.2, 2022/07/08 16:29:33
|
version 1.111.2.13.2.3, 2022/09/19 20:01:39
|
|
Line 996 sub get_buttons {
|
Line 996 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; |
| } 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 1088 sub get_buttons {
|
Line 1089 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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpage.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat