Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.375 and 1.377

version 1.375, 2016/10/31 12:59:03 version 1.377, 2016/11/09 01:58:43
Line 1198  sub Close_PrgWin { Line 1198  sub Close_PrgWin {
 sub crumbs {  sub crumbs {
     my ($uri,$target,$prefix,$form,$skiplast,$onclick)=@_;      my ($uri,$target,$prefix,$form,$skiplast,$onclick)=@_;
 # You cannot crumbnify uploaded or adm resources  # You cannot crumbnify uploaded or adm resources
     if ($uri=~/^\/*(uploaded|adm)\//) { return &mt('(Internal Course/Group Content)'); }      if ($uri=~/^\/*(uploaded|adm)\//) { return &mt('(Internal Course/Community Content)'); }
     if ($target) {      if ($target) {
         $target = ' target="'.          $target = ' target="'.
                   &Apache::loncommon::escape_single($target).'"';                    &Apache::loncommon::escape_single($target).'"';
Line 3495  ENDUTILITY Line 3495  ENDUTILITY
   
 sub jump_to_editres {  sub jump_to_editres {
     my ($cfile,$home,$switchserver,$forceedit,$forcereg,$symb,$folderpath,      my ($cfile,$home,$switchserver,$forceedit,$forcereg,$symb,$folderpath,
         $title,$idx,$suppurl,$todocs) = @_;          $title,$idx,$suppurl,$todocs,$suppanchor) = @_;
     my ($jscall,$anchor);      my ($jscall,$anchor);
     if ($switchserver) {      if ($switchserver) {
         if ($home) {          if ($home) {
Line 3549  sub jump_to_editres { Line 3549  sub jump_to_editres {
                 $cfile .= (($cfile=~/\?/)?'&':'?').'register=1';                  $cfile .= (($cfile=~/\?/)?'&':'?').'register=1';
             }              }
             if ($todocs) {              if ($todocs) {
                $cfile .= (($cfile=~/\?/)?'&':'?').'todocs=1';                  $cfile .= (($cfile=~/\?/)?'&':'?').'todocs=1';
               }
               if ($suppanchor ne '') {
                   $cfile .= (($cfile=~/\?/)?'&':'?').'anchor='.
                             &HTML::Entities::encode($suppanchor,'"<>&');
             }              }
         }          }
         if ($anchor ne '') {          if ($anchor ne '') {

Removed from v.1.375  
changed lines
  Added in v.1.377


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>