[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[raeburn]

raeburn		Fri Nov 10 15:47:50 2017 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - escape symb so URLs containing + can be viewed in modal pop-up in Course
    Editor.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.640 loncom/interface/londocs.pm:1.641
--- loncom/interface/londocs.pm:1.640	Tue Sep  5 00:56:42 2017
+++ loncom/interface/londocs.pm	Fri Nov 10 15:47:49 2017
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.640 2017/09/05 00:56:42 raeburn Exp $
+# $Id: londocs.pm,v 1.641 2017/11/10 15:47:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4104,7 +4104,7 @@
                     }
                 }
                 if ($url ne '') {
-                    $url.=(($url=~/\?/)?'&':'?').'symb='.&HTML::Entities::encode($shownsymb,'"<>&');
+                    $url.=(($url=~/\?/)?'&':'?').'symb='.&escape($shownsymb);
                 }
             } elsif (!$env{'request.role.adv'}) {
                 my $checkencrypt;
@@ -4125,7 +4125,7 @@
                     my $shownsymb = &Apache::lonenc::encrypted($symb);
                     my $shownurl = &Apache::lonenc::encrypted($url);
                     if (&Apache::lonnet::symbverify($shownsymb,$shownurl)) {
-                        $url = $shownurl.(($shownurl=~/\?/)?'&':'?').'symb='.&HTML::Entities::encode($shownsymb,'"<>&');
+                        $url = $shownurl.(($shownurl=~/\?/)?'&':'?').'symb='.&escape($shownsymb);
                         if ($env{'request.enc'} ne '') {
                             delete($env{'request.enc'});
                         }