loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.484.2.82, 2019/08/16 16:12:37	version 1.484.2.84, 2019/08/17 12:45:34
Line 2122 sub copy_templated_files {	Line 2122 sub copy_templated_files {
if (grep(/^\Q$qtype\E$/,@simpleprobqtypes)) {	if (grep(/^\Q$qtype\E$/,@simpleprobqtypes)) {
my %newdata = (	my %newdata = (
$newprefix.'questiontype' => $qtype,	$newprefix.'questiontype' => $qtype,
)	);
foreach my $type (@simpleprobqtypes) {	foreach my $type (@simpleprobqtypes) {
if ($type eq $qtype) {	if ($type eq $qtype) {
$newdata{"$weightprefix.$type.weight"}=1;	$newdata{"$weightprefix.$type.weight"}=1;
Line 6547 sub editing_js {	Line 6547 sub editing_js {
} else {	} else {
$url = $res;	$url = $res;
}	}
$backtourl = &HTML::Entities::encode(&Apache::lonnet::clutter($url),'<>&"').'?symb='.	$backtourl = &HTML::Entities::encode(&Apache::lonnet::clutter($url),'<>&"');
&HTML::Entities::encode($caller,'<>&"');	if ($backtourl =~ m{^\Q/uploaded/$coursedom/$coursenum/\Edefault_\d+\.sequence$}) {
	$backtourl .= '?navmap=1';
	} else {
	$backtourl .= '?symb='.
	&HTML::Entities::encode($caller,'<>&"');
	}
if ($backtourl =~ m{^\Q/public/$coursedom/$coursenum/syllabus\E}) {	if ($backtourl =~ m{^\Q/public/$coursedom/$coursenum/syllabus\E}) {
if (($ENV{'SERVER_PORT'} == 443) &&	if (($ENV{'SERVER_PORT'} == 443) &&
($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) {	($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) {