loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.375, 2016/10/31 12:59:03	version 1.376, 2016/10/31 19:49:00
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 '') {