--- loncom/interface/lonhtmlcommon.pm 2016/10/31 12:59:03 1.375 +++ loncom/interface/lonhtmlcommon.pm 2016/10/31 19:49:00 1.376 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.375 2016/10/31 12:59:03 raeburn Exp $ +# $Id: lonhtmlcommon.pm,v 1.376 2016/10/31 19:49:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3495,7 +3495,7 @@ ENDUTILITY sub jump_to_editres { my ($cfile,$home,$switchserver,$forceedit,$forcereg,$symb,$folderpath, - $title,$idx,$suppurl,$todocs) = @_; + $title,$idx,$suppurl,$todocs,$suppanchor) = @_; my ($jscall,$anchor); if ($switchserver) { if ($home) { @@ -3549,7 +3549,11 @@ sub jump_to_editres { $cfile .= (($cfile=~/\?/)?'&':'?').'register=1'; } if ($todocs) { - $cfile .= (($cfile=~/\?/)?'&':'?').'todocs=1'; + $cfile .= (($cfile=~/\?/)?'&':'?').'todocs=1'; + } + if ($suppanchor ne '') { + $cfile .= (($cfile=~/\?/)?'&':'?').'anchor='. + &HTML::Entities::encode($suppanchor,'"<>&'); } } if ($anchor ne '') {