loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.394, 2018/12/27 20:10:31	version 1.395, 2018/12/29 23:24:39
Line 3557 sub jump_to_editres {	Line 3557 sub jump_to_editres {
}	}
} else {	} else {
unless ($cfile =~ m{^/priv/}) {	unless ($cfile =~ m{^/priv/}) {
if ($cfile =~ m{^(/adm/wrapper/ext/([^#]+))#([^#]+)$}) {	if ($cfile =~ m{^(/adm/wrapper/ext/([^#]+))(?:\|#([^#]+))$}) {
$cfile = $1;	$cfile = $1;
my $extlink = $2;	my $extlink = $2;
$anchor = $3;	$anchor = $3;
Line 3620 sub jump_to_editres {	Line 3620 sub jump_to_editres {
if ($hostname ne '') {	if ($hostname ne '') {
$cfile = 'http://'.$hostname.(($cfile =~ /^\//)? '':'/').$cfile;	$cfile = 'http://'.$hostname.(($cfile =~ /^\//)? '':'/').$cfile;
}	}
unless ($is_ext) {	$cfile .= (($cfile=~/\?/)?'&':'?').'usehttp=1';
$cfile .= (($cfile=~/\?/)?'&':'?').'usehttp=1';
}
} elsif ($usehttps) {	} elsif ($usehttps) {
$cfile = $env{'request.use_absolute'}.(($cfile =~ /^\//)? '':'/').$cfile;	$cfile = $env{'request.use_absolute'}.(($cfile =~ /^\//)? '':'/').$cfile;
}	}