[LON-CAPA-cvs] cvs: rat(version_2_11_X) / lonpage.pm
raeburn
raeburn at source.lon-capa.org
Tue Jul 2 14:53:26 EDT 2024
raeburn Tue Jul 2 18:53:26 2024 EDT
Modified files: (Branch: version_2_11_X)
/rat lonpage.pm
Log:
- For 2.11
Backport 1.141
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.111.2.14 rat/lonpage.pm:1.111.2.15
--- rat/lonpage.pm:1.111.2.14 Mon Sep 11 13:28:55 2023
+++ rat/lonpage.pm Tue Jul 2 18:53:26 2024
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Page Handler
#
-# $Id: lonpage.pm,v 1.111.2.14 2023/09/11 13:28:55 raeburn Exp $
+# $Id: lonpage.pm,v 1.111.2.15 2024/07/02 18:53:26 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -903,16 +903,18 @@
my $symb=&Apache::lonnet::encode_symb($hash->{'map_id_'.$mapid},
$resid,
$hash->{'src_'.$rid});
- my $aname;
+ my ($aname,$shownsymb);
if (($hash->{'encrypted_'.$rid}) && (!$env{'request.role.adv'})) {
$aname = 'LC_'.$rid;
+ $shownsymb = &Apache::lonenc::encrypted($symb);
} else {
- my $shownsymb = $symb;
+ $shownsymb = $symb;
+ my $dispsymb = $symb;
if ($symb =~ /\#([^\#]+)$/) {
my $escan = &escape('#');
- $shownsymb =~ s/#([^\#]+)$/$escan$1/;
+ $dispsymb =~ s/#([^\#]+)$/$escan$1/;
}
- $aname = &escape($shownsymb);
+ $aname = &escape($dispsymb);
}
my $metainfo = '<a name="'.$aname.'"></a>';
unless ($env{'request.role.adv'}) {
@@ -995,8 +997,8 @@
&Apache::lonnet::can_edit_resource($file,$cnum,$cdom,$hash->{'src_'.$rid},$symb);
if ($cfile ne '') {
my $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
- $forceedit,1,$symb,undef,
- &escape($env{'form.title'}),
+ $forceedit,1,$symb,$shownsymb,
+ undef,&escape($env{'form.title'}),
$hostname);
if ($jscall) {
$editbutton = 1;
More information about the LON-CAPA-cvs
mailing list