Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.484.2.93.2.7 and 1.706

version 1.484.2.93.2.7, 2023/01/19 17:06:21	version 1.706, 2023/12/23 02:17:38
Line 43 use Apache::lonnavdisplay();	Line 43 use Apache::lonnavdisplay();
use Apache::lonextresedit();	use Apache::lonextresedit();
use Apache::lontemplate();	use Apache::lontemplate();
use Apache::lonsimplepage();	use Apache::lonsimplepage();
	use Apache::lonhomework();
	use Apache::lonpublisher();
use Apache::loncourserespicker();	use Apache::loncourserespicker();
use HTML::Entities;	use HTML::Entities;
use HTML::TokeParser;	use HTML::TokeParser;
use GDBM_File;	use GDBM_File;
use File::MMagic;	use File::MMagic;
	use File::Copy;
use Apache::lonlocal;	use Apache::lonlocal;
use Cwd;	use Cwd;
	use UUID::Tiny ':std';
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);

my $iconpath;	my $iconpath;
Line 86 sub storemap {	Line 90 sub storemap {

if ($map =~ /^default/) {	if ($map =~ /^default/) {
$hadchanges=1;	$hadchanges=1;
} else {	} elsif ($contentchg) {
$suppchanges=1;	$suppchanges=1;
}	}
return ($errtext,0);	return ($errtext,0);
Line 178 sub default_folderpath {	Line 182 sub default_folderpath {
}	}
}	}

sub validate_folderpath {	sub validate_supppath {
my ($supplementalflag) = @_;	my ($coursenum,$coursedom) = @_;
if ($env{'form.folderpath'} ne '') {	my $backto;
my @items = split(/\&/,$env{'form.folderpath'});
my $badpath;
for (my $i=0; $i<@items; $i++) {
my $odd = $i%2;
if (($odd) && (!$supplementalflag) && ($items[$i] !~ /^[^:]*:(\|\d+):(\|1):(\|1):(\|1):(\|1)$/)) {
$badpath = 1;
} elsif ((!$odd) && ($items[$i] !~ /^(default\|supplemental)(\|_\d+)$/)) {
$badpath = 1;
}
last if ($badpath);
}
if ($badpath) {
delete($env{'form.folderpath'});
}
}
return;
}

sub validate_suppath {
if ($env{'form.supppath'} ne '') {	if ($env{'form.supppath'} ne '') {
my @items = split(/\&/,$env{'form.supppath'});	my @items = split(/\&/,$env{'form.supppath'});
my $badpath;	my ($badpath,$got_supp,$supppath,%supphidden,%suppids);
for (my $i=0; $i<@items; $i++) {	for (my $i=0; $i<@items; $i++) {
my $odd = $i%2;	my $odd = $i%2;
if ((!$odd) && ($items[$i] !~ /^supplemental(\|_\d+)$/)) {	if ((!$odd) && ($items[$i] !~ /^supplemental(\|_\d+)$/)) {
$badpath = 1;	$badpath = 1;
	last;
	} elsif ($odd) {
	my $suffix;
	my $idx = $i-1;
	if ($items[$i] =~ /^([^:]*)::(\|1):::$/) {
	$backto .= '&'.$1;
	} elsif ($items[$idx] eq 'supplemental') {
	$backto .= '&'.$items[$i];
	} else {
	$backto .= '&'.$items[$i];
	my $is_hidden;
	unless ($got_supp) {
	my ($supplemental) = &Apache::loncommon::get_supplemental($coursenum,$coursedom);
	if (ref($supplemental) eq 'HASH') {
	if (ref($supplemental->{'hidden'}) eq 'HASH') {
	%supphidden = %{$supplemental->{'hidden'}};
	}
	if (ref($supplemental->{'ids'}) eq 'HASH') {
	%suppids = %{$supplemental->{'ids'}};
	}
	}
	$got_supp = 1;
	}
	if (ref($suppids{"/uploaded/$coursedom/$coursenum/$items[$idx].sequence"}) eq 'ARRAY') {
	my $mapid = $suppids{"/uploaded/$coursedom/$coursenum/$items[$idx].sequence"}->[0];
	if ($supphidden{$mapid}) {
	$is_hidden = 1;
	}
	}
	$suffix = '::'.$is_hidden.':::';
	}
	$supppath .= '&'.$items[$i].$suffix;
	} else {
	$supppath .= '&'.$items[$i];
	$backto .= '&'.$items[$i];
}	}
last if ($badpath);
}	}
if ($badpath) {	if ($badpath) {
delete($env{'form.supppath'});	delete($env{'form.supppath'});
	} else {
	$supppath =~ s/^\&//;
	$backto =~ s/^\&//;
	$env{'form.supppath'} = $supppath;
}	}
}	}
return;	return $backto;
}	}

sub dumpcourse {	sub dumpcourse {
Line 272 ENDJS	Line 295 ENDJS
} else {	} else {
&Apache::loncourserespicker::enumerate_course_contents($navmap,\%maps,\%resources,\%titles,	&Apache::loncourserespicker::enumerate_course_contents($navmap,\%maps,\%resources,\%titles,
'dumpdocs',$cdom,$cnum);	'dumpdocs',$cdom,$cnum);
}	}
my @todump = &Apache::loncommon::get_env_multiple('form.archive');	my @todump = &Apache::loncommon::get_env_multiple('form.archive');
my (%tocopy,%replacehash,%lookup,%deps,%display,%result,%depresult,%simpleproblems,%simplepages,	my (%tocopy,%replacehash,%lookup,%deps,%display,%result,%depresult,%simpleproblems,%simplepages,
%newcontent,%has_simpleprobs);	%newcontent,%has_simpleprobs);
Line 283 ENDJS	Line 306 ENDJS
if ($res =~ m{^uploaded/$cdom/$cnum/\E((?:docs\|supplemental)/.+)$}) {	if ($res =~ m{^uploaded/$cdom/$cnum/\E((?:docs\|supplemental)/.+)$}) {
$tocopy{$1} = $name;	$tocopy{$1} = $name;
$display{$item} = $1;	$display{$item} = $1;
$lookup{$1} = $item;	$lookup{$1} = $item;
} elsif ($res eq 'lib/templates/simpleproblem.problem') {	} elsif ($res eq 'lib/templates/simpleproblem.problem') {
$simpleproblems{$item} = {	$simpleproblems{$item} = {
symb => $resources{$item},	symb => $resources{$item},
Line 383 $contents{content}.'	Line 406 $contents{content}.'
</div>';	</div>';
}	}
if ($contents{webreferences}) {	if ($contents{webreferences}) {
$content .= '	$content .= '
<div class="LC_Box">	<div class="LC_Box">
<h4 class="LC_hcell">'.&mt('Web References').'</h4>'.	<h4 class="LC_hcell">'.&mt('Web References').'</h4>'.
$contents{webreferences}.'	$contents{webreferences}.'
Line 393 $contents{webreferences}.'	Line 416 $contents{webreferences}.'
</body>	</body>
</html>	</html>
';	';
$newcontent{'/'.$simplepages{$item}{res}} = $content;	$newcontent{'/'.$simplepages{$item}{res}} = $content;
}	}
}	}
foreach my $item (keys(%tocopy)) {	foreach my $item (keys(%tocopy)) {
unless ($item=~/\.(sequence\|page)$/) {	unless ($item=~/\.(sequence\|page)$/) {
my $currurlpath = $prefix.$item;	my $currurlpath = $prefix.$item;
my $currdirpath = &Apache::lonnet::filelocation('',$currurlpath);	my $currdirpath = &Apache::lonnet::filelocation('',$currurlpath);
Line 427 $contents{webreferences}.'	Line 450 $contents{webreferences}.'
if ($simpleproblems{$num}) {	if ($simpleproblems{$num}) {
$newfilename=$title.'/'.$simpleproblems{$num}{'name'};	$newfilename=$title.'/'.$simpleproblems{$num}{'name'};
} else {	} else {
$newfilename=$title.'/'.$replacehash{$item};	$newfilename=$title.'/'.$replacehash{$item};
}	}
$newfilename=~s/\.(\w+)$//;	$newfilename=~s/\.(\w+)$//;
my $ext=$1;	my $ext=$1;
$newfilename=&clean($newfilename);	$newfilename=&clean($newfilename);
$newfilename.='.'.$ext;	$newfilename.='.'.$ext;
my ($newrelpath) = ($newfilename =~ m{^\Q$title/\E(.+)$});	my ($newrelpath) = ($newfilename =~ m{^\Q$title/\E(.+)$});
if ($newrelpath ne $replacehash{$item}) {	if ($newrelpath ne $replacehash{$item}) {
$replacehash{$item} = $newrelpath;	$replacehash{$item} = $newrelpath;
}	}
my @dirs=split(/\//,$newfilename);	my @dirs=split(/\//,$newfilename);
my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca";	my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca";
my $makepath=$path;	my $makepath=$path;
my $fail;	my $fail;
my $origin;	my $origin;
for (my $i=0;$i<$#dirs;$i++) {	for (my $i=0;$i<$#dirs;$i++) {
$makepath.='/'.$dirs[$i];	$makepath.='/'.$dirs[$i];
unless (-e $makepath) {	unless (-e $makepath) {
unless(mkdir($makepath,0755)) {	unless(mkdir($makepath,0755)) {
$fail = &mt('Directory creation failed.');	$fail = &mt('Directory creation failed.');
}	}
}	}
}	}
if ($i == 0) {	if ($i == 0) {
$result = '<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ';	$result = '<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ';
} else {	} else {
$depresult .= '<li><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt> '.	$depresult .= '<li><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt> '.
'<span class="LC_fontsize_small" style="font-weight: bold;">'.	'<span class="LC_fontsize_small" style="font-weight: bold;">'.
&mt('(dependency)').'</span>: ';	&mt('(dependency)').'</span>: ';
}	}
if (-e $path.'/'.$newfilename) {	if (-e $path.'/'.$newfilename) {
$fail = &mt('Destination already exists -- not overwriting.');	$fail = &mt('Destination already exists -- not overwriting.');
} else {	} else {
if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {	if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
if (($item =~ m{^/adm/$match_domain/$match_username/\d+/smppg}) \|\|	if (($item =~ m{^/adm/$match_domain/$match_username/\d+/smppg}) \|\|
($item =~ /^simpleproblem_/)) {	($item =~ /^simpleproblem_/)) {
Line 481 $contents{webreferences}.'	Line 504 $contents{webreferences}.'
while (my $token = $parser->get_token) {	while (my $token = $parser->get_token) {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
if (($token->[1] eq 'resource') &&	if (($token->[1] eq 'resource') &&
($token->[2]->{'src'} eq '/res/lib/templates/simpleproblem.problem') &&	($token->[2]->{'src'} eq '/res/lib/templates/simpleproblem.problem') &&
($changes{$token->[2]->{'id'}})) {	($changes{$token->[2]->{'id'}})) {
my $id = $token->[2]->{'id'};	my $id = $token->[2]->{'id'};
$updatedcontent .= '<'.$token->[1];	$updatedcontent .= '<'.$token->[1];
foreach my $attrib (@{$token->[3]}) {	foreach my $attrib (@{$token->[3]}) {
next unless ($attrib =~ /^(src\|type\|title\|id)$/);	next unless ($attrib =~ /^(src\|type\|title\|id)$/);
if ($attrib eq 'src') {	if ($attrib eq 'src') {
my ($file) = ($display{$changes{$id}} =~ /^\Qsimpleproblem_\E(.+)$/);	my ($file) = ($display{$changes{$id}} =~ /^\Qsimpleproblem_\E(.+)$/);
if ($file) {	if ($file) {
$updatedcontent .= ' '.$attrib.'="'.$file.'"';	$updatedcontent .= ' '.$attrib.'="'.$file.'"';
} else {	} else {
$updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';	$updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';
}	}
} else {	} else {
$updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';	$updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';
Line 507 $contents{webreferences}.'	Line 530 $contents{webreferences}.'
}	}
}	}
print $fh $updatedcontent;	print $fh $updatedcontent;
} else {	} else {
print $fh &Apache::lonclonecourse::rewritefile(	print $fh &Apache::lonclonecourse::rewritefile(
&Apache::lonclonecourse::readfile($env{'request.course.id'},$item),	&Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
(%replacehash,$crs => '')	(%replacehash,$crs => '')
);	);
}	}
} else {	} else {
print $fh	print $fh
&Apache::lonclonecourse::readfile($env{'request.course.id'},$item);	&Apache::lonclonecourse::readfile($env{'request.course.id'},$item);
}	}
} else {	} else {
$fail = &mt('Source does not exist.');	$fail = &mt('Source does not exist.');
}	}
}	}
$fh->close();	$fh->close();
} else {	} else {
$fail = &mt('Could not write to destination.');	$fail = &mt('Could not write to destination.');
}	}
}	}
my $text;	my $text;
if ($fail) {	if ($fail) {
$text = '<span class="LC_error">'.&mt('fail').(' 'x3).$fail.'</span>';	$text = '<span class="LC_error">'.&mt('fail').(' 'x3).$fail.'</span>';
} else {	} else {
$text = '<span class="LC_success">'.&mt('ok').'</span>';	$text = '<span class="LC_success">'.&mt('ok').'</span>';
}	}
if ($i == 0) {	if ($i == 0) {
$result .= $text;	$result .= $text;
} else {	} else {
$depresult .= $text.'</li>';	$depresult .= $text.'</li>';
}	}
}	}
$r->print($result);	$r->print($result);
if ($depresult) {	if ($depresult) {
Line 553 $contents{webreferences}.'	Line 576 $contents{webreferences}.'
$r->rflush();	$r->rflush();
my ($preamble,$formname);	my ($preamble,$formname);
$formname = 'dumpdoc';	$formname = 'dumpdoc';
unless ($home==1) {	unless ($home==1) {
$preamble = '<div class="LC_left_float">'.	$preamble = '<div class="LC_left_float">'.
'<fieldset><legend>'.	'<fieldset><legend>'.
&mt('Select the Authoring Space').	&mt('Select the Authoring Space').
'</legend><select name="authorspace">';	'</legend><select name="authorspace">';
}	}
my @orderspaces = ();	my @orderspaces = ();
foreach my $key (sort(keys(%outhash))) {	foreach my $key (sort(keys(%outhash))) {
if ($key=~/^home_(.+)$/) {	if ($key=~/^home_(.+)$/) {
if ($1 eq $env{'user.name'}.':'.$env{'user.domain'}) {	if ($1 eq $env{'user.name'}.':'.$env{'user.domain'}) {
unshift(@orderspaces,$1);	unshift(@orderspaces,$1);
} else {	} else {
push(@orderspaces,$1);	push(@orderspaces,$1);
}	}
}	}
}	}
if ($home>1) {	if ($home>1) {
$preamble .= '<option value="" selected="selected">'.&mt('Select').'</option>';	$preamble .= '<option value="" selected="selected">'.&mt('Select').'</option>';
}	}
foreach my $user (@orderspaces) {	foreach my $user (@orderspaces) {
if ($home==1) {	if ($home==1) {
$preamble .= '<input type="hidden" name="authorspace" value="'.$user.'" />';	$preamble .= '<input type="hidden" name="authorspace" value="'.$user.'" />';
} else {	} else {
$preamble .= '<option value="'.$user.'">'.$user.' - '.	$preamble .= '<option value="'.$user.'">'.$user.' - '.
&Apache::loncommon::plainname(split(/\:/,$user)).'</option>';	&Apache::loncommon::plainname(split(/\:/,$user)).'</option>';
}	}
}	}
unless ($home==1) {	unless ($home==1) {
$preamble .= '</select></fieldset></div>'."\n";	$preamble .= '</select></fieldset></div>'."\n";
}	}
my $title=$origcrsdata{'description'};	my $title=$origcrsdata{'description'};
$title=~s/[\/\s]+/\_/gs;	$title=~s/[\/\s]+/\_/gs;
$title=&clean($title);	$title=&clean($title);
$preamble .= '<div class="LC_left_float">'.	$preamble .= '<div class="LC_left_float">'.
'<fieldset><legend>'.&mt('Folder in Authoring Space').'</legend>'.	'<fieldset><legend>'.&mt('Folder in Authoring Space').'</legend>'.
'<input type="text" size="50" name="authorfolder" value="'.	'<input type="text" size="50" name="authorfolder" value="'.
$title.'" />'.	$title.'" />'.
'</fieldset></div><div style="padding:0;clear:both;margin:0;border:0"></div>'."\n";	'</fieldset></div><div style="padding:0;clear:both;margin:0;border:0"></div>'."\n";
my %uploadedfiles;	my %uploadedfiles;
&tiehash();	&tiehash();
foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {	foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {
my ($ext)=($file=~/\.(\w+)$/);	my ($ext)=($file=~/\.(\w+)$/);
# FIXME Check supplemental here	# FIXME Check supplemental here
my $title=$hash{'title_'.$hash{	my $title=$hash{'title_'.$hash{
'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};	'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};
if (!$title) {	if (!$title) {
$title=$file;	$title=$file;
} else {	} else {
$title=~s\|/\|_\|g;	$title=~s\|/\|_\|g;
}	}
$title=~s/\.(\w+)$//;	$title=~s/\.(\w+)$//;
$title=&clean($title);	$title=&clean($title);
$title.='.'.$ext;	$title.='.'.$ext;
# $r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"	# $r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"
$uploadedfiles{$file} = $title;	$uploadedfiles{$file} = $title;
}	}
&untiehash();	&untiehash();
$r->print(&Apache::loncourserespicker::create_picker($navmap,'dumpdocs',$formname,$crstype,undef,	$r->print(&Apache::loncourserespicker::create_picker($navmap,'dumpdocs',$formname,$crstype,undef,
undef,undef,$preamble,$home,\%uploadedfiles));	undef,undef,$preamble,$home,\%uploadedfiles));
}	}
Line 640 sub recurse_html {	Line 663 sub recurse_html {
} else {	} else {
$relfile = $dependency;	$relfile = $dependency;
$depurl = $currurlpath;	$depurl = $currurlpath;
$depurl =~ s{[^/]+$}{};	$depurl =~ s{[^/]+$}{};
$depurl .= $dependency;	$depurl .= $dependency;
($newcontainer) = ($depurl =~ m{^\Q$prefix\E(.+)$});	($newcontainer) = ($depurl =~ m{^\Q$prefix\E(.+)$});
}	}
Line 649 sub recurse_html {	Line 672 sub recurse_html {
$newname =~ s{[^/]+$}{};	$newname =~ s{[^/]+$}{};
$replacehash->{$newcontainer} = $newname.$relfile;	$replacehash->{$newcontainer} = $newname.$relfile;
$deps->{$item}{$newcontainer} = 1;	$deps->{$item}{$newcontainer} = 1;
my ($newurlpath) = ($depurl =~ m{^(.*)/[^/]+$});	my ($newurlpath) = ($depurl =~ m{^(.*)/[^/]+$});
my $depfile = &Apache::lonnet::filelocation('',$depurl);	my $depfile = &Apache::lonnet::filelocation('',$depurl);
my $type = $mm->checktype_filename($depfile);	my $type = $mm->checktype_filename($depfile);
if ($type eq 'text/html') {	if ($type eq 'text/html') {
Line 695 sub group_import {	Line 718 sub group_import {
$url = $1;	$url = $1;
my $marker = $2;	my $marker = $2;
my $info = $3;	my $info = $3;
my ($toolid,%toolhash,%toolsettings);	my ($toolid,$toolprefix,$tooltype,%toolhash,%toolsettings);
my @extras = ('linktext','explanation','crslabel','crstitle','crsappend');	my @extras = ('linktext','explanation','crslabel','crstitle','crsappend');
my @toolinfo = split(/:/,$info);	my @toolinfo = split(/:/,$info);
if ($residx) {	if ($residx) {
Line 704 sub group_import {	Line 727 sub group_import {
} else {	} else {
$toolid = shift(@toolinfo);	$toolid = shift(@toolinfo);
}	}
	if ($toolid =~ /^c/) {
	$tooltype = 'crs';
	$toolprefix = 'c';
	} else {
	$tooltype = 'dom';
	}
$toolid =~ s/\D//g;	$toolid =~ s/\D//g;
($toolhash{'target'},$toolhash{'width'},$toolhash{'height'},	($toolhash{'target'},$toolhash{'width'},$toolhash{'height'},
$toolhash{'linktext'},$toolhash{'explanation'},	$toolhash{'linktext'},$toolhash{'explanation'},$toolhash{'crslabel'},
$toolhash{'crslabel'},$toolhash{'crstitle'},$toolhash{'crsappend'}) = @toolinfo;	$toolhash{'crstitle'},$toolhash{'crsappend'},$toolhash{'gradable'}) = @toolinfo;
foreach my $item (@extras) {	foreach my $item (@extras) {
$toolhash{$item} = &unescape($toolhash{$item});	$toolhash{$item} = &unescape($toolhash{$item});
}	}
	if ($folder =~ /^supplemental/) {
	delete($toolhash{'gradable'});
	} else {
	$toolhash{'gradable'} =~ s/\D+//g;
	}
if (ref($ltitoolsref) eq 'HASH') {	if (ref($ltitoolsref) eq 'HASH') {
my @deleted;	if (ref($ltitoolsref->{$tooltype}) eq 'HASH') {
if (ref($ltitoolsref->{$toolid}) eq 'HASH') {	if (ref($ltitoolsref->{$tooltype}->{$toolid}) eq 'HASH') {
$toolhash{'id'} = $toolid;	my %tools = %{$ltitoolsref->{$tooltype}->{$toolid}};
if (($toolhash{'target'} eq 'iframe') \|\| ($toolhash{'target'} eq 'tab') \|\|	my @deleted;
($toolhash{'target'} eq 'window')) {	$toolhash{'id'} = $toolprefix.$toolid;
if ($toolhash{'target'} eq 'window') {	if (($toolhash{'target'} eq 'iframe') \|\| ($toolhash{'target'} eq 'tab') \|\|
foreach my $item ('width','height') {	($toolhash{'target'} eq 'window')) {
$toolhash{$item} =~ s/^\s+//;	if ($toolhash{'target'} eq 'window') {
$toolhash{$item} =~ s/\s+$//;	foreach my $item ('width','height') {
if ($toolhash{$item} =~ /\D/) {	$toolhash{$item} =~ s/^\s+//;
delete($toolhash{$item});	$toolhash{$item} =~ s/\s+$//;
if ($residx) {	if ($toolhash{$item} =~ /\D/) {
if ($toolsettings{$item}) {	delete($toolhash{$item});
push(@deleted,$item);	if ($residx) {
	if ($toolsettings{$item}) {
	push(@deleted,$item);
	}
}	}
}	}
}	}
}	}
}	} elsif ($residx) {
} elsif ($residx) {	$toolhash{'target'} = $toolsettings{'target'};
$toolhash{'target'} = $toolsettings{'target'};	if ($toolhash{'target'} eq 'window') {
if ($toolhash{'target'} eq 'window') {	foreach my $item ('width','height') {
foreach my $item ('width','height') {	$toolhash{$item} = $toolsettings{$item};
$toolhash{$item} = $toolsettings{$item};	}
	}
	} elsif (ref($tools{'display'}) eq 'HASH') {
	$toolhash{'target'} = $tools{'display'}{'target'};
	if ($toolhash{'target'} eq 'window') {
	$toolhash{'width'} = $tools{'display'}{'width'};
	$toolhash{'height'} = $tools{'display'}{'height'};
}	}
}	}
} elsif (ref($ltitoolsref->{$toolid}->{'display'}) eq 'HASH') {	if ($toolhash{'target'} eq 'iframe') {
$toolhash{'target'} = $ltitoolsref->{$toolid}->{'display'}->{'target'};	foreach my $item ('width','height','linktext','explanation') {
if ($toolhash{'target'} eq 'window') {	delete($toolhash{$item});
$toolhash{'width'} = $ltitoolsref->{$toolid}->{'display'}->{'width'};	if ($residx) {
$toolhash{'height'} = $ltitoolsref->{$toolid}->{'display'}->{'height'};	if ($toolsettings{$item}) {
}	push(@deleted,$item);
}	}
if ($toolhash{'target'} eq 'iframe') {
foreach my $item ('width','height','linktext','explanation') {
delete($toolhash{$item});
if ($residx) {
if ($toolsettings{$item}) {
push(@deleted,$item);
}	}
}	}
}	} elsif ($toolhash{'target'} eq 'tab') {
} elsif ($toolhash{'target'} eq 'tab') {	foreach my $item ('width','height') {
foreach my $item ('width','height') {	delete($toolhash{$item});
delete($toolhash{$item});	if ($residx) {
if ($residx) {	if ($toolsettings{$item}) {
if ($toolsettings{$item}) {	push(@deleted,$item);
push(@deleted,$item);	}
}	}
}	}
}	}
}	if (ref($tools{'crsconf'}) eq 'HASH') {
if (ref($ltitoolsref->{$toolid}->{'crsconf'}) eq 'HASH') {	foreach my $item ('label','title','linktext','explanation') {
foreach my $item ('label','title','linktext','explanation') {	my $crsitem;
my $crsitem;	if (($item eq 'label') \|\| ($item eq 'title')) {
if (($item eq 'label') \|\| ($item eq 'title')) {	$crsitem = 'crs'.$item;
$crsitem = 'crs'.$item;	} else {
} else {	$crsitem = $item;
$crsitem = $item;	}
}	if ($tools{'crsconf'}{$item}) {
if ($ltitoolsref->{$toolid}->{'crsconf'}->{$item}) {	$toolhash{$crsitem} =~ s/^\s+//;
$toolhash{$crsitem} =~ s/^\s+//;	$toolhash{$crsitem} =~ s/\s+$//;
$toolhash{$crsitem} =~ s/\s+$//;	if ($toolhash{$crsitem} eq '') {
if ($toolhash{$crsitem} eq '') {	delete($toolhash{$crsitem});
	}
	} else {
delete($toolhash{$crsitem});	delete($toolhash{$crsitem});
}	}
} else {	if (($residx) && (exists($toolsettings{$crsitem}))) {
delete($toolhash{$crsitem});	unless (exists($toolhash{$crsitem})) {
	push(@deleted,$crsitem);
	}
	}
}	}
if (($residx) && (exists($toolsettings{$crsitem}))) {	}
unless (exists($toolhash{$crsitem})) {	if ($toolhash{'passback'}) {
push(@deleted,$crsitem);	my $gradesecret = UUID::Tiny::create_uuid_as_string(UUID_V4);
	$toolhash{'gradesecret'} = $gradesecret;
	$toolhash{'gradesecretdate'} = time;
	}
	if ($toolhash{'roster'}) {
	my $rostersecret = UUID::Tiny::create_uuid_as_string(UUID_V4);
	$toolhash{'rostersecret'} = $rostersecret;
	$toolhash{'rostersecretdate'} = time;
	}
	my $changegradable;
	if (($residx) && ($folder =~ /^default/)) {
	if ($toolsettings{'gradable'}) {
	unless (($toolhash{'gradable'}) \|\| (defined($LONCAPA::map::zombies[$residx]))) {
	push(@deleted,'gradable');
	$changegradable = 1;
	}
	} elsif ($toolhash{'gradable'}) {
	$changegradable = 1;
	}
	if (($caller eq 'londocs') && (defined($LONCAPA::map::zombies[$residx]))) {
	$changegradable = 1;
	if ($toolsettings{'gradable'}) {
	$toolhash{'gradable'} = 1;
}	}
}	}
}	}
}	my $putres = &Apache::lonnet::put('exttool_'.$marker,\%toolhash,$coursedom,$coursenum);
my $putres = &Apache::lonnet::put('exttool_'.$marker,\%toolhash,$coursedom,$coursenum);	if ($putres eq 'ok') {
if ($putres eq 'ok') {	if (@deleted) {
if (@deleted) {	&Apache::lonnet::del('exttool_'.$marker,\@deleted,$coursedom,$coursenum);
&Apache::lonnet::del('exttool_'.$marker,\@deleted,$coursedom,$coursenum);	}
	if (($changegradable) && ($folder =~ /^default/)) {
	my $val;
	if ($toolhash{'gradable'}) {
	$val = 'yes';
	} else {
	$val = 'no';
	}
	&LONCAPA::map::storeparameter($residx,'parameter_0_gradable',$val,
	'string_yesno');
	&remember_parms($residx,'gradable','set',$val);
	}
	} else {
	return (&mt('Failed to save update to external tool.'),1);
}	}
} else {
return (&mt('Failed to save update to external tool.'),1);
}	}
}	}
}	}
Line 811 sub group_import {	Line 886 sub group_import {
}	}
if ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page\|sequence)$}) {	if ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page\|sequence)$}) {
&contained_map_check($url,$folder,$coursenum,$coursedom,\%removefrommap,	&contained_map_check($url,$folder,$coursenum,$coursedom,\%removefrommap,
\%removeparam,\%addedmaps,\%hierarchy,\%titles,$allmaps);	\%removeparam,\%addedmaps,\%hierarchy,\%titles,$allmaps);
$importuploaded = 1;	$importuploaded = 1;
} elsif ($url =~ m{^/res/.+\.(page\|sequence)$}) {	} elsif ($url =~ m{^/res/.+\.(page\|sequence)$}) {
next if ($allmaps->{$url});	next if ($allmaps->{$url});
Line 878 END	Line 953 END
removefrommap => \%removefrommap,	removefrommap => \%removefrommap,
removeparam => \%removeparam,	removeparam => \%removeparam,
);	);
my ($result,$msgsarray,$lockerror) =	my ($result,$msgsarray,$lockerror) =
&apply_fixups($folder,1,$coursedom,$coursenum,\%import_errors,\%updated);	&apply_fixups($folder,1,$coursedom,$coursenum,\%import_errors,\%updated);
if (keys(%import_errors) > 0) {	if (keys(%import_errors) > 0) {
$fixuperrors =	$fixuperrors =
Line 907 END	Line 982 END
&storemap($coursenum, $coursedom, $folder.'.'.$container,1);	&storemap($coursenum, $coursedom, $folder.'.'.$container,1);
unless ($fatal) {	unless ($fatal) {
if ($folder =~ /^supplemental/) {	if ($folder =~ /^supplemental/) {
&Apache::lonnet::get_numsuppfiles($coursenum,$coursedom,1);
my ($errtext,$fatal) = &mapread($coursenum,$coursedom,	my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
$folder.'.'.$container);	$folder.'.'.$container);
}	}
Line 979 sub log_docs {	Line 1053 sub log_docs {
sub docs_change_log {	sub docs_change_log {
my ($r,$coursenum,$coursedom,$folder,$allowed,$crstype,$iconpath,$canedit)=@_;	my ($r,$coursenum,$coursedom,$folder,$allowed,$crstype,$iconpath,$canedit)=@_;
my $supplementalflag=($env{'form.folderpath'}=~/^supplemental/);	my $supplementalflag=($env{'form.folderpath'}=~/^supplemental/);
my $navmap;	my $navmap;
my $js = '<script type="text/javascript">'."\n".	my $js = '<script type="text/javascript">'."\n".
'// <![CDATA['."\n".	'// <![CDATA['."\n".
&Apache::loncommon::display_filter_js('docslog')."\n".	&Apache::loncommon::display_filter_js('docslog')."\n".
&editing_js($env{'user.domain'},$env{'user.name'},$supplementalflag,	&editing_js($env{'user.domain'},$env{'user.name'},$supplementalflag,
$coursedom,$coursenum,'',$canedit,'',\$navmap)."\n".	$coursedom,$coursenum,'','',$canedit,'',\$navmap)."\n".
&history_tab_js()."\n".	&history_tab_js()."\n".
&Apache::lonratedt::editscript('simple')."\n".	&Apache::lonratedt::editscript('simple')."\n".
'// ]]>'."\n".	'// ]]>'."\n".
Line 1012 sub docs_change_log {	Line 1086 sub docs_change_log {
if ($supplementalflag) {	if ($supplementalflag) {
$tid = 2;	$tid = 2;
}	}
my ($breadcrumbtrail) =	my ($breadcrumbtrail) =
&Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);	&Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
$r->print($breadcrumbtrail.	$r->print($breadcrumbtrail.
&generate_edit_table($tid,\%orderhash,undef,$iconpath,$jumpto,	&generate_edit_table($tid,\%orderhash,undef,$iconpath,$jumpto,
Line 1034 sub docs_change_log {	Line 1108 sub docs_change_log {
'encrypturl' => 'URL hidden',	'encrypturl' => 'URL hidden',
'randompick' => 'Randomly pick',	'randompick' => 'Randomly pick',
'randomorder' => 'Randomly ordered',	'randomorder' => 'Randomly ordered',
	'gradable' => 'Grade can be assigned to External Tool',
'set' => 'set to',	'set' => 'set to',
'del' => 'deleted');	'del' => 'deleted');
my $filter = &Apache::loncommon::display_filter('docslog')."\n".	my $filter = &Apache::loncommon::display_filter('docslog')."\n".
Line 1143 sub docs_change_log {	Line 1218 sub docs_change_log {
my ($title,$url) = split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'},3);	my ($title,$url) = split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'},3);
if ($title eq '') {	if ($title eq '') {
($title) = ($url =~ m{/([^/]+)$});	($title) = ($url =~ m{/([^/]+)$});
	} elsif ($is_supp) {
	$title = &Apache::loncommon::parse_supplemental_title($title);
}	}
$r->print(&LONCAPA::map::qtescape($title).':<ul>');	$r->print(&LONCAPA::map::qtescape($title).':<ul>');
foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder') {	foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder','gradable') {
if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {	if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {
# FIXME: internationalization seems wrong here	# FIXME: internationalization seems wrong here
$r->print('<li>'.	$r->print('<li>'.
Line 1342 sub print_paste_buffer {	Line 1419 sub print_paste_buffer {
}	}

my @currpaste = split(/,/,$env{'docs.markedcopies'});	my @currpaste = split(/,/,$env{'docs.markedcopies'});
my ($pasteitems,@pasteable);	my ($pasteitems,@pasteable,$same_institution,$checkedsameinst);
my $clipboardcount = 0;	my $clipboardcount = 0;

# Construct identifiers for current contents of user's paste buffer	# Construct identifiers for current contents of user's paste buffer
Line 1350 sub print_paste_buffer {	Line 1427 sub print_paste_buffer {
next if ($suffix =~ /\D/);	next if ($suffix =~ /\D/);
my $cid = $env{'docs.markedcopy_crs_'.$suffix};	my $cid = $env{'docs.markedcopy_crs_'.$suffix};
my $url = $env{'docs.markedcopy_url_'.$suffix};	my $url = $env{'docs.markedcopy_url_'.$suffix};
my $mapidx = $env{'docs.markedcopy_map_'.$suffix};	my $mapidx = $env{'docs.markedcopy_map_'.$suffix};
if (($cid =~ /^$match_domain\_$match_courseid$/) &&	if (($cid =~ /^$match_domain\_$match_courseid$/) &&
($url ne '')) {	($url ne '')) {
$clipboardcount ++;	$clipboardcount ++;
my ($is_external,$othercourse,$fromsupp,$is_uploaded_map,$parent,	my ($is_external,$othercourse,$fromsupp,$is_uploaded_map,$parent,
$canpaste,$nopaste,$othercrs,$areachange,$is_exttool);	$canpaste,$nopaste,$othercrs,$areachange,$is_exttool,$toolcdom,
	$toolcnum,$marker);
my $extension = (split(/\./,$env{'docs.markedcopy_url_'.$suffix}))[-1];	my $extension = (split(/\./,$env{'docs.markedcopy_url_'.$suffix}))[-1];
if ($url =~ m{^(?:/adm/wrapper/ext\|(?:http\|https)(?:&colon;\|:))//} ) {	if ($url =~ m{^(?:/adm/wrapper/ext\|(?:http\|https)(?:&colon;\|:))//} ) {
$is_external = 1;	$is_external = 1;
} elsif ($url =~ m{^/adm/$match_domain/$match_courseid/\d+/ext\.tool$}) {	} elsif ($url =~ m{^/adm/($match_domain)/($match_courseid)/(\d+)/ext\.tool$}) {
	($toolcdom,$toolcnum,$marker) = ($1,$2,$3);
$is_exttool = 1;	$is_exttool = 1;
}	}
if ($folder =~ /^supplemental/) {	if ($folder =~ /^supplemental/) {
Line 1397 sub print_paste_buffer {	Line 1476 sub print_paste_buffer {
if ($cid ne $env{'request.course.id'}) {	if ($cid ne $env{'request.course.id'}) {
my ($srcdom,$srcnum) = split(/_/,$cid);	my ($srcdom,$srcnum) = split(/_/,$cid);
if ($env{"user.priv.cm./$srcdom/$srcnum"} =~ /\Q:mdc&F\E/) {	if ($env{"user.priv.cm./$srcdom/$srcnum"} =~ /\Q:mdc&F\E/) {
if (($is_exttool) && ($srcdom ne $coursedom)) {	if ($is_exttool) {
$canpaste = 0;	if ($toolcdom ne $coursedom) {
$nopaste = &mt('Paste from another domain unavailable.');	$canpaste = 0;
} else {	$nopaste = &mt('Paste from another domain unavailable.');
$othercrs = '<br />'.&mt('(from another course)');	} elsif ($toolcnum ne $coursenum) {
	my %toolsettings =
	&Apache::lonnet::dump('exttool_'.$marker,$toolcdom,$toolcnum);
	my %tooltypes = &Apache::loncommon::usable_exttools();
	if ((($toolsettings{'id'} =~ /^c\d+$/) && (!$tooltypes{'crs'})) \|\|
	(($toolsettings{'id'} =~ /^\d+$/) && (!$tooltypes{'dom'}))) {
	$canpaste = 0;
	$nopaste = &mt('Paste from another course unavailable.');
	} elsif ($toolsettings{'id'} =~ /^c\d+$/) {
	unless ($checkedsameinst) {
	my $primary_id = &Apache::lonnet::domain($coursedom,'primary');
	my $intdom = &Apache::lonnet::internet_dom($primary_id);
	if ($intdom ne '') {
	my $internet_names =
	&Apache::lonnet::get_internet_names($Apache::lonnet::perlvar{'lonHostID'});
	if (ref($internet_names) eq 'ARRAY') {
	if (grep(/^\Q$intdom\E$/,@{$internet_names})) {
	$same_institution = 1;
	}
	}
	}
	$checkedsameinst = 1;
	}
	if ($same_institution) {
	$othercrs = '<br />'.&mt('(from another course)');
	} else {
	$nopaste = &mt('Paste from another course unavailable.');
	}
	} else {
	$othercrs = '<br />'.&mt('(from another course)');
	}
	}
}	}
} else {	} else {
$canpaste = 0;	$canpaste = 0;
$nopaste = &mt('Paste from another course unavailable.');	$nopaste = &mt('Paste from another course unavailable.');
}	}
}	}
	} elsif ($url =~ m{/res/($match_domain)/($match_username)/}) {
	my ($audom,$auname) = ($1,$2);
	unless (($auname eq $coursenum) && ($audom eq $coursedom)) {
	if (&Apache::lonnet::is_course($audom,$auname)) {
	$canpaste = 0;
	$nopaste = &mt('Paste from another course unavailable.');
	}
	}
}	}
if ($canpaste) {	if ($canpaste) {
push(@pasteable,$suffix);	push(@pasteable,$suffix);
Line 1473 sub print_paste_buffer {	Line 1591 sub print_paste_buffer {
my $value = &mt('Paste to current folder');	my $value = &mt('Paste to current folder');
if ($container eq 'page') {	if ($container eq 'page') {
$value = &mt('Paste to current page');	$value = &mt('Paste to current page');
}	}
$buttons = '<input type="submit" name="pastemarked" value="'.$value.'" />'.(' 'x2);	$buttons = '<input type="submit" name="pastemarked" value="'.$value.'" />'.(' 'x2);
}	}
$buttons .= '<input type="submit" name="clearmarked" value="'.&mt('Remove from clipboard').'" />'.(' 'x2);	$buttons .= '<input type="submit" name="clearmarked" value="'.&mt('Remove from clipboard').'" />'.(' 'x2);
Line 1650 function checkClipboard() {	Line 1768 function checkClipboard() {
if (document.pasteform.pasting.length > 1) {	if (document.pasteform.pasting.length > 1) {
for (var i=0; i<document.pasteform.pasting.length; i++) {	for (var i=0; i<document.pasteform.pasting.length; i++) {
document.pasteform.pasting[i].checked = true;	document.pasteform.pasting[i].checked = true;
}	}
}	}
return;	return;
}	}
Line 1700 sub do_paste_from_buffer {	Line 1818 sub do_paste_from_buffer {
return();	return();
}	}

my (%msgs,%before,%after,@dopaste,%is_map,%notinsupp,%notincrs,%notindom,%duplicate,	my (%msgs,%before,%after,@dopaste,%is_map,%notinsupp,%notincrs,%notindom,
%prefixchg,%srcdom,%srcnum,%srcmapidx,%marktomove,$save_err,$lockerrors,$allresult);	%othcrstool,%othcrsres,%duplicate,%prefixchg,%srcdom,%srcnum,%srcmapidx,
	%marktomove,$save_err,$lockerrors,$allresult,%currcrsltitools,
	%currltititles,$currltimax,$gotcrsltitools);
	$currltimax = 0;
	$gotcrsltitools = 0;
foreach my $suffix (@topaste) {	foreach my $suffix (@topaste) {
my $url=&LONCAPA::map::qtescape($env{'docs.markedcopy_url_'.$suffix});	my $url=&LONCAPA::map::qtescape($env{'docs.markedcopy_url_'.$suffix});
my $cid=&LONCAPA::map::qtescape($env{'docs.markedcopy_crs_'.$suffix});	my $cid=&LONCAPA::map::qtescape($env{'docs.markedcopy_crs_'.$suffix});
my $mapidx=&LONCAPA::map::qtescape($env{'docs.markedcopy_map_'.$suffix});	my $mapidx=&LONCAPA::map::qtescape($env{'docs.markedcopy_map_'.$suffix});
# Supplemental content may only include certain types of content	# Supplemental content may only include certain types of content
# Early out if pasted content is not supported in Supplemental area	# Early out if pasted content is not supported in Supplemental area
if ($folder =~ /^supplemental/) {	if ($folder =~ /^supplemental/) {
Line 1728 sub do_paste_from_buffer {	Line 1849 sub do_paste_from_buffer {
}	}
$srcdom{$suffix} = $srcd;	$srcdom{$suffix} = $srcd;
$srcnum{$suffix} = $srcn;	$srcnum{$suffix} = $srcn;
} elsif ($url =~ m{^/adm/$match_domain/$match_courseid/\d+/ext\.tool$}) {	} elsif (($url =~ m{^/res/lib/templates/\w+\.problem$}) \|\|
	($url =~ m{^/adm/$match_domain/$match_username/\d+/(bulletinboard\|smppg)$}) \|\|
	($url =~ m{^/adm/$match_domain/$match_courseid/\d+/ext\.tool$})) {
my ($srcd,$srcn) = split(/_/,$cid);	my ($srcd,$srcn) = split(/_/,$cid);
# When paste buffer was populated using an active role in a different course	# When paste buffer was populated using an active role in a different course
# check for mdc privilege in the course from which the resource was pasted	# check for mdc privilege in the course from which the resource was pasted
Line 1739 sub do_paste_from_buffer {	Line 1862 sub do_paste_from_buffer {
}	}
}	}
# When buffer was populated using an active role in a different course	# When buffer was populated using an active role in a different course
# disallow pasting of External Tool if course is in a different domain.	# disallow pasting of External Tool if course is in a different domain,
if ($srcd ne $coursedom) {	# or if External Tool use is not permitted in this course.
$notindom{$suffix} = 1;	if ($url =~ m{^/adm/($match_domain)/($match_courseid)/(\d+)/ext\.tool$}) {
next;	my ($toolcdom,$toolcnum,$marker) = ($1,$2,$3);
	if ($toolcdom ne $coursedom) {
	$notindom{$suffix} = 1;
	next;
	} elsif ($toolcnum ne $coursenum) {
	my %toolsettings =
	&Apache::lonnet::dump('exttool_'.$marker,$toolcdom,$toolcnum);
	my %tooltypes = &Apache::loncommon::usable_exttools();
	if ((($toolsettings{'id'} =~ /^c\d+$/) && (!$tooltypes{'crs'})) \|\|
	(($toolsettings{'id'} =~ /^\d+$/) && (!$tooltypes{'dom'}))) {
	$othcrstool{$suffix} = 1;
	next;
	}
	if ($toolsettings{'id'} =~ /^c\d+$/) {
	unless ($gotcrsltitools) {
	%currcrsltitools =
	&Apache::lonnet::get_course_lti($coursenum,$coursedom,'consumer');
	foreach my $item (sort(keys(%currcrsltitools))) {
	if (ref($currcrsltitools{$item}) eq 'HASH') {
	$currltimax ++;
	if (ref($currltititles{$currcrsltitools{$item}{'title'}}) eq 'ARRAY') {
	push(@{$currltititles{$currcrsltitools{$item}{'title'}}},$item);
	} else {
	$currltititles{$currcrsltitools{$item}{'title'}} = [$item];
	}
	}
	}
	$gotcrsltitools = 1;
	}
	}
	}
}	}
$srcdom{$suffix} = $srcd;	$srcdom{$suffix} = $srcd;
$srcnum{$suffix} = $srcn;	$srcnum{$suffix} = $srcn;
} elsif (($url =~ m{^/res/lib/templates/\w+\.problem$}) \|\|	} elsif ($url =~ m{^/res/($match_domain)/($match_courseid)/}) {
($url =~ m{^/adm/$match_domain/$match_username/\d+/(bulletinboard\|smppg)$})) {	my ($audom,$auname) = ($1,$2);
my ($srcd,$srcn) = split(/_/,$cid);	# When buffer was populated using an active role in a different course
# When paste buffer was populated using an active role in a different course	# disallow pasting of published resources from Course Authoring Space
# check for mdc privilege in the course from which the resource was pasted	unless (($auname eq $coursenum) && ($audom eq $coursedom)) {
if (($srcd ne $coursedom) \|\| ($srcn ne $coursenum)) {	if (&Apache::lonnet::is_course($audom,$auname)) {
unless ($env{"user.priv.cm./$srcd/$srcn"} =~ /\Q:mdc&F\E/) {	$othcrsres{$suffix} = 1;
$notincrs{$suffix} = 1;
next;	next;
}	}
}	}
$srcdom{$suffix} = $srcd;
$srcnum{$suffix} = $srcn;
}	}
$srcmapidx{$suffix} = $mapidx;	$srcmapidx{$suffix} = $mapidx;
push(@dopaste,$suffix);	push(@dopaste,$suffix);
if ($url=~/\.(page\|sequence)$/) {	if ($url=~/\.(page\|sequence)$/) {
$is_map{$suffix} = 1;	$is_map{$suffix} = 1;
}	}

if ($url =~ m{^/uploaded/$match_domain/$match_courseid/([^/]+)}) {	if ($url =~ m{^/uploaded/$match_domain/$match_courseid/([^/]+)}) {
my $oldprefix = $1;	my $oldprefix = $1;
# When pasting content from Main Content to Supplemental Content and vice versa	# When pasting content from Main Content to Supplemental Content and vice versa
# URLs will contain different paths (which depend on whether pasted item is	# URLs will contain different paths (which depend on whether pasted item is
# a folder/page or a document).	# a folder/page or a document).
if (($folder =~ /^supplemental/) && (($oldprefix =~ /^default/) \|\| ($oldprefix eq 'docs'))) {	if (($folder =~ /^supplemental/) && (($oldprefix =~ /^default/) \|\| ($oldprefix eq 'docs'))) {
$prefixchg{$suffix} = 'docstosupp';	$prefixchg{$suffix} = 'docstosupp';
} elsif (($folder =~ /^default/) && ($oldprefix =~ /^supplemental/)) {	} elsif (($folder =~ /^default/) && ($oldprefix =~ /^supplemental/)) {
Line 1810 sub do_paste_from_buffer {	Line 1959 sub do_paste_from_buffer {
%msgs = &Apache::lonlocal::texthash (	%msgs = &Apache::lonlocal::texthash (
notinsupp => 'Paste failed: content type is not supported within Supplemental Content',	notinsupp => 'Paste failed: content type is not supported within Supplemental Content',
notincrs => 'Paste failed: Item is from a different course which you do not have rights to edit.',	notincrs => 'Paste failed: Item is from a different course which you do not have rights to edit.',
notindom => 'Paste failed: Item is an external tool from a course in a different donain.',	notindom => 'Paste failed: Item is an external tool from a course in a different domain.',
	othcrstool => 'Paste failed: Item is an external tool from a different course, for which use is not allowed in this course.',
	othcrsres => 'Paste failed: Item is a course-authored resource from a different course',
duplicate => 'Paste failed: only one instance of a particular published sequence or page is allowed within each course.',	duplicate => 'Paste failed: only one instance of a particular published sequence or page is allowed within each course.',
);	);

Line 1839 sub do_paste_from_buffer {	Line 1990 sub do_paste_from_buffer {
# Retrieve information about all course maps in main content area	# Retrieve information about all course maps in main content area

my $allmaps = {};	my $allmaps = {};
my (@toclear,%mapurls,%lockerrs,%msgerrs,%results,$donechk);	my (@toclear,%mapurls,%lockerrs,%msgerrs,%results,$donechk,
	@updatetoolsenc,$updatetoolscache,$checkedsameinst,
	$same_institution);

# Loop over the items to paste	# Loop over the items to paste
foreach my $suffix (@dopaste) {	foreach my $suffix (@dopaste) {
Line 1852 sub do_paste_from_buffer {	Line 2005 sub do_paste_from_buffer {
}	}
my $url=&LONCAPA::map::qtescape($env{'docs.markedcopy_url_'.$suffix});	my $url=&LONCAPA::map::qtescape($env{'docs.markedcopy_url_'.$suffix});
my $title=&LONCAPA::map::qtescape($env{'docs.markedcopy_title_'.$suffix});	my $title=&LONCAPA::map::qtescape($env{'docs.markedcopy_title_'.$suffix});
my $cid=&LONCAPA::map::qtescape($env{'docs.markedcopy_crs_'.$suffix});	my $cid=&LONCAPA::map::qtescape($env{'docs.markedcopy_crs_'.$suffix});
my $oldurl = $url;	my $oldurl = $url;
if ($is_map{$suffix}) {	if ($is_map{$suffix}) {
# If pasting a map, check if map contains other maps	# If pasting a map, check if map contains other maps
Line 1862 sub do_paste_from_buffer {	Line 2015 sub do_paste_from_buffer {
&Apache::loncommon::allmaps_incourse($coursedom,$coursenum,	&Apache::loncommon::allmaps_incourse($coursedom,$coursenum,
$env{"course.$env{'request.course.id'}.home"},	$env{"course.$env{'request.course.id'}.home"},
$env{'request.course.id'});	$env{'request.course.id'});
$donechk = 1;	$donechk = 1;
}	}
&contained_map_check($url,$folder,$coursenum,$coursedom,	&contained_map_check($url,$folder,$coursenum,$coursedom,
\%removefrommap,\%removeparam,\%addedmaps,	\%removefrommap,\%removeparam,\%addedmaps,
Line 1905 sub do_paste_from_buffer {	Line 2058 sub do_paste_from_buffer {
$coursenum,$srcdom{$suffix},$srcnum{$suffix},	$coursenum,$srcdom{$suffix},$srcnum{$suffix},
$allmaps,\%rewrites,\%retitles,\%copies,\%dbcopies,	$allmaps,\%rewrites,\%retitles,\%copies,\%dbcopies,
\%zombies,\%params,\%mapmoves,\%mapchanges,	\%zombies,\%params,\%mapmoves,\%mapchanges,
\%tomove,\%newsubdir,\%newurls,\%resdatacopy);	\%tomove,\%newsubdir,\%newurls,\%resdatacopy);
}	}
} elsif ($url=~m {^/res/}) {	} elsif ($url=~m {^/res/}) {
# published map can only exist once, so remove from paste buffer when done	# published map can only exist once, so remove from paste buffer when done
Line 1928 sub do_paste_from_buffer {	Line 2081 sub do_paste_from_buffer {
cdom => $coursedom,	cdom => $coursedom,
cnum => $coursenum,	cnum => $coursenum,
);	);
	if ($prefix eq 'ext.tool') {
	if ($prefixchg{$suffix} eq 'docstosupp') {
	$info{'delgradable'} = 1;
	}
	}
if (($srcdom{$suffix} =~ /^$match_domain$/) && ($srcnum{$suffix} =~ /^$match_courseid$/)) {	if (($srcdom{$suffix} =~ /^$match_domain$/) && ($srcnum{$suffix} =~ /^$match_courseid$/)) {
unless (($srcdom{$suffix} eq $coursedom) && ($srcnum{$suffix} eq $coursenum)) {	unless (($srcdom{$suffix} eq $coursedom) && ($srcnum{$suffix} eq $coursenum)) {
$fromothercrs = 1;	$fromothercrs = 1;
$info{'cdom'} = $srcdom{$suffix};	$info{'cdom'} = $srcdom{$suffix};
$info{'cnum'} = $srcnum{$suffix};	$info{'cnum'} = $srcnum{$suffix};
	unless ($checkedsameinst) {
	my $primary_id = &Apache::lonnet::domain($coursedom,'primary');
	my $intdom = &Apache::lonnet::internet_dom($primary_id);
	if ($intdom ne '') {
	my $internet_names =
	&Apache::lonnet::get_internet_names($Apache::lonnet::perlvar{'lonHostID'});
	if (ref($internet_names) eq 'ARRAY') {
	if (grep(/^\Q$intdom\E$/,@{$internet_names})) {
	$same_institution = 1;
	}
	}
	}
	$checkedsameinst = 1;
	}
}	}
}	}
unless (($env{'form.docs.markedcopy_options_'.$suffix} eq 'move') && (!$fromothercrs)) {	unless (($env{'form.docs.markedcopy_options_'.$suffix} eq 'move') && (!$fromothercrs)) {
my (%lockerr,$msg);	my (%lockerr,$msg);
my ($newurl,$result,$errtext) =	my ($newurl,$result,$errtext) =
&dbcopy(\%info,$coursedom,$coursenum,\%lockerr);	&dbcopy(\%info,$coursedom,$coursenum,\%lockerr,\%currltititles,
	\$currltimax,\@updatetoolsenc,\$updatetoolscache,$same_institution);
if ($result eq 'ok') {	if ($result eq 'ok') {
$url = $newurl;	$url = $newurl;
$title=&mt('Copy of').' '.$title;	$title=&mt('Copy of').' '.$title;
Line 1956 sub do_paste_from_buffer {	Line 2129 sub do_paste_from_buffer {
next;	next;
}	}
if ($lockerr{$prefix}) {	if ($lockerr{$prefix}) {
$lockerrs{$suffix} = $lockerr{$prefix};	$lockerrs{$suffix} = $lockerr{$prefix};
}	}
}	}
}	}
Line 1996 sub do_paste_from_buffer {	Line 2169 sub do_paste_from_buffer {
$newdocsdir = 'default';	$newdocsdir = 'default';
}	}
if (($prefixchg{$suffix}) \|\|	if (($prefixchg{$suffix}) \|\|
($srcdom{$suffix} ne $coursedom) \|\|	($srcdom{$suffix} ne $coursedom) \|\|
($srcnum{$suffix} ne $coursenum) \|\|	($srcnum{$suffix} ne $coursenum) \|\|
($env{'form.docs.markedcopy_options_'.$suffix} ne 'move')) {	($env{'form.docs.markedcopy_options_'.$suffix} ne 'move')) {
my $newpath = "$newprefix/$newdocsdir/$newidx/$rem";	my $newpath = "$newprefix/$newdocsdir/$newidx/$rem";
Line 2019 sub do_paste_from_buffer {	Line 2192 sub do_paste_from_buffer {
&copy_templated_files($url,$srcdom{$suffix},$srcnum{$suffix},$srcmapidx{$suffix},	&copy_templated_files($url,$srcdom{$suffix},$srcnum{$suffix},$srcmapidx{$suffix},
$coursedom,$coursenum,$template,$newidx,"$folder.$container");	$coursedom,$coursenum,$template,$newidx,"$folder.$container");
}	}
	} elsif ($url =~ /ext\.tool$/) {
	if (($newidx) && ($folder=~/^default/)) {
	my $marker = (split(m{/},$url))[4];
	my %toolsettings = &Apache::lonnet::dump('exttool_'.$marker,$coursedom,$coursenum);
	my $val = 'no';
	if ($toolsettings{'gradable'}) {
	$val = 'yes';
	}
	&LONCAPA::map::storeparameter($newidx,'parameter_0_gradable',$val,
	'string_yesno');
	&remember_parms($newidx,'gradable','set',$val);
	}
}	}
$LONCAPA::map::resources[$newidx]=$title.':'.&LONCAPA::map::qtunescape($url).	$LONCAPA::map::resources[$newidx]=$title.':'.&LONCAPA::map::qtunescape($url).
':'.$ext.':normal:res';	':'.$ext.':normal:res';
Line 2032 sub do_paste_from_buffer {	Line 2217 sub do_paste_from_buffer {
}	}
}	}

# Apply any changes to maps, or copy dependencies for uploaded HTML pages, or update	# Apply any changes to maps, or copy dependencies for uploaded HTML pages, or update
# resourcedata for simpleproblems copied from another course	# resourcedata for simpleproblems copied from another course
unless ($allresult eq 'fail') {	unless ($allresult eq 'fail') {
my %updated = (	my %updated = (
rewrites => \%rewrites,	rewrites => \%rewrites,
Line 2095 sub do_paste_from_buffer {	Line 2280 sub do_paste_from_buffer {
}	}
}	}
}	}
	if (($updatetoolscache) \|\| (@updatetoolsenc)) {
	&update_ltitools_caches($coursedom,$coursenum,$updatetoolscache,
	\@updatetoolsenc);
	}
&clear_from_buffer(\@toclear,\@currpaste);	&clear_from_buffer(\@toclear,\@currpaste);
my $msgsarray;	my $msgsarray;
foreach my $suffix (keys(%msgs)) {	foreach my $suffix (keys(%msgs)) {
Line 2143 sub clear_from_buffer {	Line 2332 sub clear_from_buffer {
return $numdel;	return $numdel;
}	}

	sub update_ltitools_caches {
	my ($coursedom,$coursenum,$updatetoolscache,$updatetoolsenc) = @_;
	my $hashid=$coursedom.'_'.$coursenum;
	if ($updatetoolscache) {
	&Apache::lonnet::devalidate_cache_new('courseltitools',$hashid);
	}
	if ((ref($updatetoolsenc) eq 'ARRAY') &&
	(@{$updatetoolsenc})) {
	my @ids=&Apache::lonnet::current_machine_ids();
	my $updatedone;
	foreach my $lonhost (@{$updatetoolsenc}) {
	if (grep(/^\Q$lonhost\E$/,@ids)) {
	unless ($updatedone) {
	&Apache::lonnet::devalidate_cache_new('crsltitoolsenc',$hashid);
	}
	$updatedone = 1;
	} else {
	&Apache::lonnet::remote_devalidate_cache($lonhost,["crsltitoolsenc:$hashid"]);
	}
	}
	}
	return;
	}

sub get_newmap_url {	sub get_newmap_url {
my ($url,$folder,$prefixchg,$coursedom,$coursenum,$srcdom,$srcnum,	my ($url,$folder,$prefixchg,$coursedom,$coursenum,$srcdom,$srcnum,
$titleref,$allmaps,$newurls) = @_;	$titleref,$allmaps,$newurls) = @_;
Line 2204 sub get_newmap_url {	Line 2417 sub get_newmap_url {
}	}

sub dbcopy {	sub dbcopy {
my ($dbref,$coursedom,$coursenum,$lockerrorsref) = @_;	my ($dbref,$coursedom,$coursenum,$lockerrorsref,$currltititles,
	$currltimax,$updatetoolsenc,$updatetoolscache,$same_institution) = @_;
my ($url,$result,$errtext);	my ($url,$result,$errtext);
if (ref($dbref) eq 'HASH') {	if (ref($dbref) eq 'HASH') {
$url = $dbref->{'src'};	$url = $dbref->{'src'};
Line 2213 sub dbcopy {	Line 2427 sub dbcopy {
if ($prefix eq 'ext.tool') {	if ($prefix eq 'ext.tool') {
$prefix = 'exttool';	$prefix = 'exttool';
}	}
if (($dbref->{'cdom'} =~ /^$match_domain$/) &&	if (($dbref->{'cdom'} =~ /^$match_domain$/) &&
($dbref->{'cnum'} =~ /^$match_courseid$/)) {	($dbref->{'cnum'} =~ /^$match_courseid$/)) {
my $db_name;	my $db_name;
my $marker = (split(m{/},$url))[4];	my $marker = (split(m{/},$url))[4];
Line 2248 sub dbcopy {	Line 2462 sub dbcopy {
my %contents=&Apache::lonnet::dump($db_name,	my %contents=&Apache::lonnet::dump($db_name,
$dbref->{'cdom'},	$dbref->{'cdom'},
$dbref->{'cnum'});	$dbref->{'cnum'});
	my ($toolcopyerror,$toolpassback,$toolroster,%toolinfo,$oldtoolid,$defincrs);
	if ($url eq '/adm/'.$dbref->{'cdom'}.'/'.$dbref->{'cnum'}."/$marker/ext.tool") {
	if ($contents{'id'} =~ /^(\|c)(\d+)$/) {
	$oldtoolid = $2;
	if ($1 eq 'c') {
	$defincrs = 1;
	%toolinfo =
	&Apache::lonnet::get('ltitools',[$oldtoolid],$dbref->{'cdom'},$dbref->{'cnum'});
	} else {
	%toolinfo= &Apache::lonnet::get_domain_lti($dbref->{'cdom'},'consumer');
	}
	if (ref($toolinfo{$oldtoolid}) eq 'HASH') {
	if ($toolinfo{$oldtoolid}{'passback'}) {
	$toolpassback = 1;
	}
	if ($toolinfo{$oldtoolid}{'roster'}) {
	$toolroster = 1;
	}
	} else {
	$toolcopyerror = 1;
	$errtext = &mt('Could not retrieve original settings for pasted external tool.');
	}
	}
	unless (($dbref->{'cnum'} eq $coursenum) && ($dbref->{'cdom'} eq $coursedom)) {
	$url = "/adm/$coursedom/$coursenum/$marker/ext.tool";
	if ($contents{'crstitle'} ne '') {
	$contents{'crstitle'} = $env{'course.'.$coursedom.'_'.$coursenum.'.description'};
	}
	if (($defincrs) && (!$toolcopyerror)) {
	my %newtool;
	my $oldcdom = $dbref->{'cdom'};
	my $oldcnum = $dbref->{'cnum'};
	my $title = $toolinfo{$oldtoolid}{'title'};
	if (ref($currltititles) eq 'HASH') {
	if (exists($currltititles->{$title})) {
	$title .= ' (copied from another course)';
	}
	}
	my ($newid,$iderror) =
	&Apache::lonnet::get_ltitools_id('course',$coursedom,$coursenum,$title);
	if ($newid =~ /^\d+$/) {
	%{$newtool{$newid}} = %{$toolinfo{$oldtoolid}};
	$newtool{$newid}{'title'} = $title;
	if (ref($currltimax)) {
	$newtool{$newid}{'order'} = $$currltimax;
	}
	if ($newtool{$newid}{'image'} =~ m{^\Q/uploaded/$oldcdom/$oldcnum/toollogo/$oldtoolid/\E([^/]+)$}) {
	my $fname = $1;
	my $content = &Apache::lonnet::getfile($newtool{$newid}{'image'});
	if ($content eq '-1') {
	delete($newtool{$newid}{'image'});
	} else {
	$env{'form.'.$suffix.'.image'} = $content;
	my $newlogo =
	&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,$suffix.'.image',"toollogo/$newid/$fname");
	delete($env{'form.'.$suffix.'.image'});
	if ($newlogo =~ m{^/uploaded/}) {
	$newtool{$newid}{'image'} = $newlogo;
	} else {
	delete($newtool{$newid}{'image'});
	}
	}
	}
	my $newusable;
	if ($same_institution) {
	my %oldtoolsenc = &Apache::lonnet::eget('nohist_toolsenc',[$oldtoolid],$oldcdom,$oldcnum);
	if (ref($oldtoolsenc{$oldtoolid}) eq 'HASH') {
	my %newtoolsenc;
	%{$newtoolsenc{$newid}} = %{$oldtoolsenc{$oldtoolid}};
	my $putres = &Apache::lonnet::put('nohist_toolsenc',\%newtoolsenc,$coursedom,$coursenum,1);
	if ($putres eq 'ok') {
	if (ref($updatetoolsenc) eq 'ARRAY') {
	my $newhome = &Apache::lonnet::homeserver($coursenum,$coursedom);
	unless (grep(/^\Q$newhome\E$/,@{$updatetoolsenc})) {
	push(@{$updatetoolsenc},$newhome);
	}
	}
	$newusable = 1;
	}
	}
	}
	if ($newtool{$newid}{'usable'}) {
	unless ($newusable) {
	delete($newtool{$newid}{'usable'});
	}
	}
	my $putres = &Apache::lonnet::put('ltitools',\%newtool,$coursedom,$coursenum);
	if ($putres eq 'ok') {
	$contents{'id'} = "c$newid";
	if (ref($updatetoolscache)) {
	$$updatetoolscache ++;
	}
	if (ref($currltititles->{$title}) eq 'ARRAY') {
	push(@{$currltititles->{$title}},$newid);
	} else {
	$currltititles->{$title} = [$newid];
	}
	if (ref($currltimax)) {
	$$currltimax ++;
	}
	} else {
	$toolcopyerror = 1;
	$errtext = &mt('Unable to save external tool definition in Course Settings.');
	}
	} else {
	$toolcopyerror = 1;
	$errtext = &mt('Unable to retrieve new tool ID when adding external tool definition to Course Settings.');
	}
	}
	}
	}
if (exists($contents{'uploaded.photourl'})) {	if (exists($contents{'uploaded.photourl'})) {
my $photo = $contents{'uploaded.photourl'};	my $photo = $contents{'uploaded.photourl'};
my ($subdir,$fname) =	my ($subdir,$fname) =
Line 2257 sub dbcopy {	Line 2582 sub dbcopy {
my $content = &Apache::lonnet::getfile($photo);	my $content = &Apache::lonnet::getfile($photo);
unless ($content eq '-1') {	unless ($content eq '-1') {
$env{'form.'.$suffix.'.photourl'} = $content;	$env{'form.'.$suffix.'.photourl'} = $content;
$newphoto =	$newphoto =
&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,$suffix.'.photourl',"$subdir/$suffix/$fname");	&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,$suffix.'.photourl',"$subdir/$suffix/$fname");
delete($env{'form.'.$suffix.'.photourl'});	delete($env{'form.'.$suffix.'.photourl'});
}	}
Line 2267 sub dbcopy {	Line 2592 sub dbcopy {
}	}
}	}
$db_name =~ s{_\d*$ }{_$suffix}x;	$db_name =~ s{_\d*$ }{_$suffix}x;
$result=&Apache::lonnet::put($db_name,\%contents,	if ($prefix eq 'exttool') {
$coursedom,$coursenum);	unless ($toolcopyerror) {
if ($result eq 'ok') {	foreach my $key ('oldgradesecret','gradesecret','gradesecretdate','oldrostersecret','rostersecret','rostersecretdate') {
$url =~ s{/(\d*)/(smppg\|bulletinboard\|ext\.tool)$}{/$suffix/$2}x;	if (exists($contents{$key})) {
	delete($contents{$key});
	}
	}
	if ($dbref->{'delgradable'}) {
	if (exists($contents{'gradable'})) {
	delete($contents{'gradable'});
	}
	}
	if ($toolpassback) {
	if ($contents{'gradable'}) {
	my $gradesecret = UUID::Tiny::create_uuid_as_string(UUID_V4);
	$contents{'gradesecret'} = $gradesecret;
	$contents{'gradesecretdate'} = time;
	}
	}
	if ($toolroster) {
	my $rostersecret = UUID::Tiny::create_uuid_as_string(UUID_V4);
	$contents{'rostersecret'} = $rostersecret;
	$contents{'rostersecretdate'} = time;
	}
	}
	}
	if (($prefix eq 'exttool') && ($toolcopyerror)) {
	$result = 'error';
	} else {
	$result=&Apache::lonnet::put($db_name,\%contents,
	$coursedom,$coursenum);
	if ($result eq 'ok') {
	$url =~ s{/(\d*)/(smppg\|bulletinboard\|ext\.tool)$}{/$suffix/$2}x;
	}
}	}
}	}
if (($freedlock ne 'ok') && (ref($lockerrorsref) eq 'HASH')) {	if (($freedlock ne 'ok') && (ref($lockerrorsref) eq 'HASH')) {
Line 2425 sub contained_map_check {	Line 2780 sub contained_map_check {
if ($token->[1] eq 'resource') {	if ($token->[1] eq 'resource') {
next if ($token->[2]->{'type'} eq 'zombie');	next if ($token->[2]->{'type'} eq 'zombie');
my $ressrc = $token->[2]->{'src'};	my $ressrc = $token->[2]->{'src'};
if ($folder =~ /^supplemental/) {	if ($ressrc =~ m{^/adm/($match_domain)/($match_courseid)/(\d+)/ext\.tool$}) {
	my ($srcdom,$srcnum,$marker) = ($1,$2,$3);
	unless ($srcdom eq $coursedom) {
	$removefrommap->{$url}{$token->[2]->{'id'}} = $ressrc;
	next;
	}
	unless ($srcnum eq $coursenum) {
	my %toolsettings =
	&Apache::lonnet::dump('exttool_'.$marker,$srcdom,$srcnum);
	my %tooltypes = &Apache::loncommon::usable_exttools();
	if ((($toolsettings{'id'} =~ /^c\d+$/) && (!$tooltypes{'crs'})) \|\|
	(($toolsettings{'id'} =~ /^\d+$/) && (!$tooltypes{'dom'}))) {
	$removefrommap->{$url}{$token->[2]->{'id'}} = $ressrc;
	next;
	}
	}
	} elsif ($folder =~ /^supplemental/) {
unless (&supp_pasteable($ressrc)) {	unless (&supp_pasteable($ressrc)) {
$removefrommap->{$url}{$token->[2]->{'id'}} = $ressrc;	$removefrommap->{$url}{$token->[2]->{'id'}} = $ressrc;
next;	next;
}	}
}	}
	if ($ressrc =~ m{^/res/($match_domain)/($match_courseid)/}) {
	my ($srcdom,$srcnum) = ($1,$2);
	unless (($srcnum eq $coursenum) && ($srcdom eq $coursedom)) {
	if (&Apache::lonnet::is_course($srcdom,$srcnum)) {
	$removefrommap->{$url}{$token->[2]->{'id'}} = $ressrc;
	next;
	}
	}
	}
if ($ressrc =~ m{^/(res\|uploaded)/.+\.(sequence\|page)$}) {	if ($ressrc =~ m{^/(res\|uploaded)/.+\.(sequence\|page)$}) {
if ($1 eq 'uploaded') {	if ($1 eq 'uploaded') {
$hierarchy->{$url}{$token->[2]->{'id'}} = $ressrc;	$hierarchy->{$url}{$token->[2]->{'id'}} = $ressrc;
Line 2444 sub contained_map_check {	Line 2824 sub contained_map_check {
$addedmaps->{$ressrc} = [$url];	$addedmaps->{$ressrc} = [$url];
}	}
}	}
&contained_map_check($ressrc,$folder,$coursenum,$coursedom,	&contained_map_check($ressrc,$folder,$coursenum,$coursedom,$removefrommap,
$removefrommap,$removeparam,	$removeparam,$addedmaps,$hierarchy,$titles,$allmaps);
$addedmaps,$hierarchy,$titles,$allmaps);
}	}
} elsif ($token->[1] eq 'param') {	} elsif ($token->[1] eq 'param') {
if ($folder =~ /^supplemental/) {	if ($folder =~ /^supplemental/) {
Line 2497 sub url_paste_fixups {	Line 2876 sub url_paste_fixups {
}	}
next if ($token->[2]->{'type'} eq 'external');	next if ($token->[2]->{'type'} eq 'external');
if ($token->[2]->{'type'} eq 'zombie') {	if ($token->[2]->{'type'} eq 'zombie') {
next if ($skip);	next if ($skip);
$zombies->{$oldurl}{$id} = $ressrc;	$zombies->{$oldurl}{$id} = $ressrc;
$changed = 1;	$changed = 1;
} elsif ($ressrc =~ m{^/uploaded/($match_domain)/($match_courseid)/(.+)$}) {	} elsif ($ressrc =~ m{^/uploaded/($match_domain)/($match_courseid)/(.+)$}) {
Line 2548 sub url_paste_fixups {	Line 2927 sub url_paste_fixups {
$changed = 1;	$changed = 1;
}	}
}	}
} elsif ($ressrc =~ m{^/adm/($match_domain)/($match_courseid)/.+$}) {	} elsif ($ressrc =~ m{^/adm/($match_domain)/($match_courseid)/(.+)$}) {
next if ($skip);	next if ($skip);
my $srcdom = $1;	my $srcdom = $1;
my $srcnum = $2;	my $srcnum = $2;
	my $rem = $3;
	my ($is_exttool,$exttoolchg);
	if ($rem =~ m{\d+/ext\.tool$}) {
	$is_exttool = 1;
	}
if (($srcdom ne $cdom) \|\| ($srcnum ne $cnum)) {	if (($srcdom ne $cdom) \|\| ($srcnum ne $cnum)) {
$rewrites->{$oldurl}{$id} = $ressrc;	$rewrites->{$oldurl}{$id} = $ressrc;
$dbcopies->{$oldurl}{$id}{'src'} = $ressrc;	$dbcopies->{$oldurl}{$id}{'src'} = $ressrc;
$dbcopies->{$oldurl}{$id}{'cdom'} = $srcdom;	$dbcopies->{$oldurl}{$id}{'cdom'} = $srcdom;
$dbcopies->{$oldurl}{$id}{'cnum'} = $srcnum;	$dbcopies->{$oldurl}{$id}{'cnum'} = $srcnum;
$changed = 1;	$changed = 1;
	if ($is_exttool) {
	$exttoolchg = 1;
	}
	} elsif (($is_exttool) &&
	($env{'form.docs.markedcopy_options'} ne 'move')) {
	$dbcopies->{$oldurl}{$id}{'src'} = $ressrc;
	$dbcopies->{$oldurl}{$id}{'cdom'} = $srcdom;
	$dbcopies->{$oldurl}{$id}{'cnum'} = $srcnum;
	$changed = 1;
	$exttoolchg = 1;
	}
	if (($is_exttool) && ($prefixchg)) {
	if ($oldurl =~ m{^/uploaded/$match_domain/$match_courseid/default}) {
	if ($exttoolchg) {
	$dbcopies->{$oldurl}{$id}{'delgradable'} = 1;
	}
	}
}	}
} elsif ($ressrc =~ m{^/adm/$match_domain/$match_username/\d+/(smppg\|bulletinboard)$}) {	} elsif ($ressrc =~ m{^/adm/$match_domain/$match_username/\d+/(smppg\|bulletinboard)$}) {
if (($fromcdom ne $cdom) \|\| ($fromcnum ne $cnum) \|\|	if (($fromcdom ne $cdom) \|\| ($fromcnum ne $cnum) \|\|
Line 2604 sub apply_fixups {	Line 3005 sub apply_fixups {
$oldurl,$url,$caller) = @_;	$oldurl,$url,$caller) = @_;
my (%rewrites,%zombies,%removefrommap,%removeparam,%dbcopies,%retitles,	my (%rewrites,%zombies,%removefrommap,%removeparam,%dbcopies,%retitles,
%params,%newsubdir,%before,%after,%copies,%docmoves,%mapmoves,@msgs,	%params,%newsubdir,%before,%after,%copies,%docmoves,%mapmoves,@msgs,
%resdatacopy,%lockerrors,$lockmsg);	%resdatacopy,%lockerrors,$lockmsg,%currcrsltitools,$gotcrsltitools,
	%currltititles,$currltimax);
	$currltimax = 0;
if (ref($updated) eq 'HASH') {	if (ref($updated) eq 'HASH') {
if (ref($updated->{'rewrites'}) eq 'HASH') {	if (ref($updated->{'rewrites'}) eq 'HASH') {
%rewrites = %{$updated->{'rewrites'}};	%rewrites = %{$updated->{'rewrites'}};
Line 2755 sub apply_fixups {	Line 3158 sub apply_fixups {
}	}
}	}
}	}
	my ($updatetoolscache,@updatetoolsenc,$same_institution,$checkedsameinst);
foreach my $key (keys(%updates)) {	foreach my $key (keys(%updates)) {
my (%torewrite,%toretitle,%toremove,%remparam,%currparam,%zombie,%newdb);	my (%torewrite,%toretitle,%toremove,%remparam,%currparam,%zombie,%newdb);
if (ref($rewrites{$key}) eq 'HASH') {	if (ref($rewrites{$key}) eq 'HASH') {
Line 2775 sub apply_fixups {	Line 3179 sub apply_fixups {
if (ref($dbcopies{$key}) eq 'HASH') {	if (ref($dbcopies{$key}) eq 'HASH') {
foreach my $idx (keys(%{$dbcopies{$key}})) {	foreach my $idx (keys(%{$dbcopies{$key}})) {
if (ref($dbcopies{$key}{$idx}) eq 'HASH') {	if (ref($dbcopies{$key}{$idx}) eq 'HASH') {
	my $oldurl = $dbcopies{$key}{$idx}{'src'};
	my $oldcdom = $dbcopies{$key}{$idx}{'cdom'};
	my $oldcnum = $dbcopies{$key}{$idx}{'cnum'};
	my $oldmarker;
	if ($oldurl =~ m{^\Q/adm/$oldcdom/$oldcnum/\E(\d+)/ext\.tool$}) {
	$oldmarker = $1;
	unless (($gotcrsltitools) \|\|
	(($oldcnum eq $cnum) && ($oldcdom eq $cdom))) {
	my %oldtoolsettings=&Apache::lonnet::dump('exttool_'.$oldmarker,$oldcdom,$oldcnum);
	if ($oldtoolsettings{'id'} =~ /^c\d+$/) {
	unless ($gotcrsltitools) {
	%currcrsltitools =
	&Apache::lonnet::get_course_lti($cnum,$cdom,'consumer');
	foreach my $item (sort(keys(%currcrsltitools))) {
	if (ref($currcrsltitools{$item}) eq 'HASH') {
	$currltimax ++;
	if (ref($currltititles{$currcrsltitools{$item}{'title'}}) eq 'ARRAY') {
	push(@{$currltititles{$currcrsltitools{$item}{'title'}}},$item);
	} else {
	$currltititles{$currcrsltitools{$item}{'title'}} = [$item];
	}
	}
	}
	$gotcrsltitools = 1;
	}
	unless ($checkedsameinst) {
	my $primary_id = &Apache::lonnet::domain($cdom,'primary');
	my $intdom = &Apache::lonnet::internet_dom($primary_id);
	if ($intdom ne '') {
	my $internet_names =
	&Apache::lonnet::get_internet_names($Apache::lonnet::perlvar{'lonHostID'});
	if (ref($internet_names) eq 'ARRAY') {
	if (grep(/^\Q$intdom\E$/,@{$internet_names})) {
	$same_institution = 1;
	}
	}
	}
	$checkedsameinst = 1;
	}
	}
	}
	}
my ($newurl,$result,$errtext) =	my ($newurl,$result,$errtext) =
&dbcopy($dbcopies{$key}{$idx},$cdom,$cnum,\%lockerrors);	&dbcopy($dbcopies{$key}{$idx},$cdom,$cnum,\%lockerrors,\%currltititles,
	\$currltimax,\@updatetoolsenc,\$updatetoolscache,$same_institution);
if ($result eq 'ok') {	if ($result eq 'ok') {
$newdb{$idx} = $newurl;	$newdb{$idx} = $newurl;
	if ($newurl =~ /ext\.tool$/) {
	if ($torewrite{$idx} eq "/adm/$oldcdom/$oldcnum/$oldmarker/ext.tool") {
	if ($newurl =~ m{^\Q/adm/$cdom/$cnum/\E(\d+)/ext.tool$}) {
	my $newmarker = $1;
	unless ($oldmarker eq $newmarker) {
	$torewrite{$idx} = "/adm/$oldcdom/$oldcnum/$newmarker/ext.tool";
	}
	}
	}
	}
} elsif (ref($errors) eq 'HASH') {	} elsif (ref($errors) eq 'HASH') {
$errors->{$key} = 1;	$errors->{$key} = 1;
}	}
Line 2917 sub apply_fixups {	Line 3374 sub apply_fixups {
}	}
}	}
}	}
	if (($updatetoolscache) \|\| (@updatetoolsenc)) {
	&update_ltitools_caches($cdom,$cnum,$updatetoolscache,
	\@updatetoolsenc);
	}
}	}
return ('ok',\@msgs,$lockmsg);	return ('ok',\@msgs,$lockmsg);
}	}
Line 3019 sub update_parameter {	Line 3480 sub update_parameter {
foreach my $which (keys(%allchecked)) {	foreach my $which (keys(%allchecked)) {
if (($which eq 'randompick' \|\| $which eq 'randomorder')) {	if (($which eq 'randompick' \|\| $which eq 'randomorder')) {
next if (!$is_map);	next if (!$is_map);
}	}
my $oldvalue = 0;	my $oldvalue = 0;
my $newvalue = 0;	my $newvalue = 0;
if ($allchecked{$which}{$res}) {	if ($allchecked{$which}{$res}) {
Line 3071 sub update_parameter {	Line 3532 sub update_parameter {
$oldvalue = 1;	$oldvalue = 1;
}	}
if ($env{'form.'.$which.'_'.$idx}) {	if ($env{'form.'.$which.'_'.$idx}) {
$newvalue = ($which eq 'randompick') ? $env{'form.rpicknum_'.$idx}	$newvalue = ($which eq 'randompick') ? $env{'form.rpicknum_'.$idx}
: 1;	: 1;
}	}
if ($oldvalue ne $newvalue) {	if ($oldvalue ne $newvalue) {
$haschanges = 1;	$haschanges = 1;
Line 3081 sub update_parameter {	Line 3542 sub update_parameter {
if ($which eq 'randompick') {	if ($which eq 'randompick') {
$storeval = $newvalue;	$storeval = $newvalue;
}	}
&LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $storeval,	&LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $storeval,
$parameter_type{$which});	$parameter_type{$which});
&remember_parms($idx,$which,'set',$storeval);	&remember_parms($idx,$which,'set',$storeval);
} else {	} else {
&LONCAPA::map::delparameter($idx,'parameter_'.$which);	&LONCAPA::map::delparameter($idx,'parameter_'.$which);
&remember_parms($idx,$which,'del');	&remember_parms($idx,$which,'del');
}	}
}	}
return $haschanges;	return $haschanges;
}	}
return;
}	}

sub handle_edit_cmd {	sub handle_edit_cmd {
my ($coursenum,$coursedom) =@_;	my ($coursenum,$coursedom) =@_;
	my $haschanges = 0;
if ($env{'form.cmd'} eq '') {	if ($env{'form.cmd'} eq '') {
return 0;	return $haschanges;
}	}
my ($cmd,$idx)=split('_',$env{'form.cmd'});	my ($cmd,$idx)=split('_',$env{'form.cmd'});

Line 3112 sub handle_edit_cmd {	Line 3573 sub handle_edit_cmd {
&LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);	&LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
}	}
splice(@LONCAPA::map::order, $idx, 1);	splice(@LONCAPA::map::order, $idx, 1);
	$haschanges = 1;
} elsif ($cmd eq 'cut') {	} elsif ($cmd eq 'cut') {
&LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);	&LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
splice(@LONCAPA::map::order, $idx, 1);	splice(@LONCAPA::map::order, $idx, 1);
	$haschanges = 1;
} elsif ($cmd eq 'up'	} elsif ($cmd eq 'up'
&& ($idx) && (defined($LONCAPA::map::order[$idx-1]))) {	&& ($idx) && (defined($LONCAPA::map::order[$idx-1]))) {
@LONCAPA::map::order[$idx-1,$idx] = @LONCAPA::map::order[$idx,$idx-1];	@LONCAPA::map::order[$idx-1,$idx] = @LONCAPA::map::order[$idx,$idx-1];
	$haschanges = 1;
} elsif ($cmd eq 'down'	} elsif ($cmd eq 'down'
&& defined($LONCAPA::map::order[$idx+1])) {	&& defined($LONCAPA::map::order[$idx+1])) {
@LONCAPA::map::order[$idx+1,$idx] = @LONCAPA::map::order[$idx,$idx+1];	@LONCAPA::map::order[$idx+1,$idx] = @LONCAPA::map::order[$idx,$idx+1];
	$haschanges = 1;
} elsif ($cmd eq 'rename') {	} elsif ($cmd eq 'rename') {
my $comment = &LONCAPA::map::qtunescape($env{'form.title'});	my $comment = &LONCAPA::map::qtunescape($env{'form.title'});
if ($comment=~/\S/) {	if ($comment=~/\S/) {
Line 3134 sub handle_edit_cmd {	Line 3595 sub handle_edit_cmd {
# Devalidate title cache	# Devalidate title cache
my $renamed_url=&LONCAPA::map::qtescape($url);	my $renamed_url=&LONCAPA::map::qtescape($url);
&Apache::lonnet::devalidate_title_cache($renamed_url);	&Apache::lonnet::devalidate_title_cache($renamed_url);
	$haschanges = 1;
} else {	} elsif ($cmd eq 'setalias') {
return 0;	my $newvalue = $env{'form.alias'};
	if ($newvalue ne '') {
	unless (Apache::lonnet::get_symb_from_alias($newvalue)) {
	&LONCAPA::map::storeparameter($idx,'parameter_0_mapalias',$newvalue,
	'string');
	&remember_parms($idx,'mapalias','set',$newvalue);
	$haschanges = 1;
	}
	}
	} elsif ($cmd eq 'delalias') {
	my $current = (&LONCAPA::map::getparameter($idx,'parameter_0_mapalias'))[0];
	if ($current ne '') {
	&LONCAPA::map::delparameter($idx,'parameter_0_mapalias');
	&remember_parms($idx,'mapalias','del');
	$haschanges = 1;
	}
}	}
return 1;	return $haschanges;
}	}

sub editor {	sub editor {
Line 3176 sub editor {	Line 3652 sub editor {
undef(@LONCAPA::map::zombies);	undef(@LONCAPA::map::zombies);
}	}
$folder = 'default';	$folder = 'default';
$container = 'sequence';	$container = 'sequence';
} else {	} else {
($errtext,$fatal) = &mapread($coursenum,$coursedom,	($errtext,$fatal) = &mapread($coursenum,$coursedom,
$folder.'.'.$container);	$folder.'.'.$container);
return $errtext if ($fatal);	return $errtext if ($fatal);
}	}

Line 3262 sub editor {	Line 3738 sub editor {
# Rename, cut, copy or remove a single resource	# Rename, cut, copy or remove a single resource
if (&handle_edit_cmd($coursenum,$coursedom)) {	if (&handle_edit_cmd($coursenum,$coursedom)) {
my $contentchg;	my $contentchg;
if ($env{'form.cmd'} =~ m{^(remove\|cut)_}) {	if ($env{'form.cmd'} =~ m{^(remove\|cut\|setalias\|delalias)_}) {
$contentchg = 1;	$contentchg = 1;
}	}
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,$contentchg);	($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,$contentchg);
Line 3448 sub editor {	Line 3924 sub editor {
$r->print('</div>');	$r->print('</div>');
}	}

	if ((!$allowed) && ($folder =~ /^supplemental_\d+$/)) {
	my ($supplemental) = &Apache::loncommon::get_supplemental($coursenum,$coursedom);
	if (ref($supplemental) eq 'HASH') {
	if ((ref($supplemental->{'hidden'}) eq 'HASH') &&
	(ref($supplemental->{'ids'}) eq 'HASH')) {
	if (ref($supplemental->{'ids'}->{"/uploaded/$coursedom/$coursenum/$folder.$container"}) eq 'ARRAY') {
	my $mapnum = $supplemental->{'ids'}->{"/uploaded/$coursedom/$coursenum/$folder.$container"}->[0];
	if ($supplemental->{'hidden'}->{$mapnum}) {
	$ishidden = 1;
	}
	}
	}
	}
	}

my ($to_show,$output,@allidx,@allmapidx,%filters,%lists,%curr_groups);	my ($to_show,$output,@allidx,@allmapidx,%filters,%lists,%curr_groups);
%filters = (	%filters = (
canremove => [],	canremove => [],
Line 3471 sub editor {	Line 3962 sub editor {
push(@allmapidx,$res);	push(@allmapidx,$res);
}	}

	if (($supplementalflag) && (!$allowed) && (!$env{'request.role.adv'})) {
	if (($ishidden) \|\| ((&LONCAPA::map::getparameter($res,'parameter_hiddenresource'))[0]=~/^yes$/i)) {
	$idx++;
	next;
	}
	}
$output .= &entryline($idx,$name,$url,$folder,$allowed,$res,	$output .= &entryline($idx,$name,$url,$folder,$allowed,$res,
$coursenum,$coursedom,$crstype,	$coursenum,$coursedom,$crstype,
$pathitem,$supplementalflag,$container,	$pathitem,$supplementalflag,$container,
\%filters,\%curr_groups,$ltitoolsref,$canedit,	\%filters,\%curr_groups,$ltitoolsref,$canedit,
$isencrypted,$navmapref,$hostname);	$isencrypted,$ishidden,$navmapref,$hostname);
$idx++;	$idx++;
$shown++;	$shown++;
}	}
Line 3484 sub editor {	Line 3981 sub editor {
my $need_save;	my $need_save;
if ($allowed \|\| ($supplementalflag && $folder eq 'supplemental')) {	if ($allowed \|\| ($supplementalflag && $folder eq 'supplemental')) {
my $toolslink;	my $toolslink;
if ($allowed) {	if ($allowed \|\| $canedit) {
	my $helpitem = 'Navigation_Screen';
	if (!$allowed) {
	$helpitem = 'Supplemental_Navigation';
	}
$toolslink = '<table><tr><td>'	$toolslink = '<table><tr><td>'
.&Apache::loncommon::help_open_menu('Navigation Screen',	.&Apache::loncommon::help_open_menu('Navigation Screen',
'Navigation_Screen',undef,'RAT')	$helpitem,undef,'RAT')
.'</td><td class="LC_middle">'.&mt('Tools:').'</td>'	.'</td><td class="LC_middle">'.&mt('Tools:').'</td>'
.'<td align="left"><ul id="LC_toolbar">'	.'<td align="left"><ul id="LC_toolbar">'
.'<li><a href="/adm/coursedocs?forcesupplement=1&command=editsupp" '	.'<li><a href="/adm/coursedocs?forcesupplement=1&command=editsupp" '
Line 3502 sub editor {	Line 4003 sub editor {
.&Apache::loncommon::start_data_table(undef,'contentlist')	.&Apache::loncommon::start_data_table(undef,'contentlist')
.&Apache::loncommon::start_data_table_header_row()	.&Apache::loncommon::start_data_table_header_row()
.'<th colspan="2">'.&mt('Move').'</th>'	.'<th colspan="2">'.&mt('Move').'</th>'
.'<th colspan="2">'.&mt('Actions').'</th>'	.'<th colspan="3">'.&mt('Actions').'</th>'
.'<th>'.&mt('Document').'</th>';	.'<th>'.&mt('Document').'</th>'
if ($folder !~ /^supplemental/) {	.'<th colspan="2">'.&mt('Settings').'</th>'
$to_show .= '<th colspan="4">'.&mt('Settings').'</th>';	.&Apache::loncommon::end_data_table_header_row();
}
$to_show .= &Apache::loncommon::end_data_table_header_row();
if ($folder !~ /^supplemental/) {	if ($folder !~ /^supplemental/) {
$lists{'canhide'} = join(',',@allidx);	$lists{'canhide'} = join(',',@allidx);
$lists{'canrandomlyorder'} = join(',',@allmapidx);	$lists{'canrandomlyorder'} = join(',',@allmapidx);
Line 3533 sub editor {	Line 4032 sub editor {
'<td>'.	'<td>'.
&multiple_check_form('actions',\%lists,$canedit).	&multiple_check_form('actions',\%lists,$canedit).
'</td>'.	'</td>'.
'<td> </td>'.	'<td colspan="3"> </td>'.
'<td> </td>'.	'<td colspan="2">'.
'<td colspan="4">'.
&multiple_check_form('settings',\%lists,$canedit).	&multiple_check_form('settings',\%lists,$canedit).
'</td>'.	'</td>'.
&Apache::loncommon::end_data_table_row();	&Apache::loncommon::end_data_table_row();
Line 3559 sub editor {	Line 4057 sub editor {
}	}
my $noresmsg;	my $noresmsg;
if ($allowed && $hiddentop && !$supplementalflag) {	if ($allowed && $hiddentop && !$supplementalflag) {
$noresmsg = &mt('Main Content Hidden');	$noresmsg = &mt('Main Content Hidden');
} else {	} else {
$noresmsg = &mt('Currently empty');	$noresmsg = &mt('Currently empty');
}	}
Line 3604 sub multiple_check_form {	Line 4102 sub multiple_check_form {
return unless (ref($listsref) eq 'HASH');	return unless (ref($listsref) eq 'HASH');
my $disabled;	my $disabled;
unless ($canedit) {	unless ($canedit) {
$disabled = 'disabled="disabled"';	$disabled = ' disabled="disabled"';
}	}
my $output =	my $output =
'<form action="/adm/coursedocs" method="post" name="togglemult'.$caller.'">'.	'<form action="/adm/coursedocs" method="post" name="togglemult'.$caller.'">'.
Line 3684 sub process_file_upload {	Line 4182 sub process_file_upload {
my $quotatype = 'unofficial';	my $quotatype = 'unofficial';
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$quotatype = 'community';	$quotatype = 'community';
	} elsif ($crstype eq 'Placement') {
	$quotatype = 'placement';
} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {	} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {
$quotatype = 'official';	$quotatype = 'official';
} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {	} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {
Line 3773 sub process_file_upload {	Line 4273 sub process_file_upload {
my $uploadphase = 'upload_embedded';	my $uploadphase = 'upload_embedded';
my $primaryurl = &HTML::Entities::encode($url,'<>&"');	my $primaryurl = &HTML::Entities::encode($url,'<>&"');
my $state = &embedded_form_elems($uploadphase,$primaryurl,$newidx);	my $state = &embedded_form_elems($uploadphase,$primaryurl,$newidx);
my ($embedded,$num) =	my ($embedded,$num) =
&Apache::loncommon::ask_for_embedded_content(	&Apache::loncommon::ask_for_embedded_content(
'/adm/coursedocs',$state,$allfiles,$codebase,{'docs_url' => $url});	'/adm/coursedocs',$state,$allfiles,$codebase,{'docs_url' => $url});
if ($embedded) {	if ($embedded) {
Line 3854 sub is_supplemental_title {	Line 4354 sub is_supplemental_title {
sub entryline {	sub entryline {
my ($index,$title,$url,$folder,$allowed,$residx,$coursenum,$coursedom,	my ($index,$title,$url,$folder,$allowed,$residx,$coursenum,$coursedom,
$crstype,$pathitem,$supplementalflag,$container,$filtersref,$currgroups,	$crstype,$pathitem,$supplementalflag,$container,$filtersref,$currgroups,
$ltitoolsref,$canedit,$isencrypted,$navmapref,$hostname)=@_;	$ltitoolsref,$canedit,$isencrypted,$ishidden,$navmapref,$hostname)=@_;
my ($foldertitle,$renametitle,$oldtitle);	my ($foldertitle,$renametitle,$oldtitle,$encodedtitle);
if (&is_supplemental_title($title)) {	if (&is_supplemental_title($title)) {
($title,$foldertitle,$renametitle) = &Apache::loncommon::parse_supplemental_title($title);	($title,$foldertitle,$renametitle) = &Apache::loncommon::parse_supplemental_title($title);
	$encodedtitle=$title;
} else {	} else {
$title=&HTML::Entities::encode($title,'"<>&\'');	$title=&HTML::Entities::encode($title,'"<>&\'');
	$encodedtitle=$title;
$renametitle=$title;	$renametitle=$title;
$foldertitle=$title;	$foldertitle=$title;
}	}
Line 3877 sub entryline {	Line 4379 sub entryline {
$renametitle=~s/"/%22/g;	$renametitle=~s/"/%22/g;
$renametitle=~s/ /%20/g;	$renametitle=~s/ /%20/g;
$oldtitle = $renametitle;	$oldtitle = $renametitle;
$renametitle=~s/\&#39\;/\\\'/g;	$renametitle=~s/\'/\\\'/g;
my $line=&Apache::loncommon::start_data_table_row();	my $line=&Apache::loncommon::start_data_table_row();
my ($form_start,$form_end,$form_common,$form_param);	my ($form_start,$form_end,$form_common,$form_param);
# Edit commands	# Edit commands
my ($esc_path, $path, $symb, $shownsymb);	my ($esc_path, $path, $symb, $shownsymb, $curralias);
if ($env{'form.folderpath'}) {	if ($env{'form.folderpath'}) {
$esc_path=&escape($env{'form.folderpath'});	$esc_path=&escape($env{'form.folderpath'});
$path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');	$path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
Line 3950 END	Line 4452 END
'ct' => 'Cut',	'ct' => 'Cut',
'rn' => 'Rename',	'rn' => 'Rename',
'cp' => 'Copy',	'cp' => 'Copy',
	'da' => 'Unset alias',
	'sa' => 'Set alias',
'ex' => 'External Resource',	'ex' => 'External Resource',
'et' => 'External Tool',	'et' => 'External Tool',
'ed' => 'Edit',	'ed' => 'Edit',
Line 3957 END	Line 4461 END
'sv' => 'Save',	'sv' => 'Save',
'ul' => 'URL',	'ul' => 'URL',
'ti' => 'Title',	'ti' => 'Title',
'er' => 'Editing rights unavailable for your current role.',	'er' => 'Editing rights unavailable for your current role.',
);	);
my %denied = &action_restrictions($coursenum,$coursedom,$url,	my %denied = &action_restrictions($coursenum,$coursedom,$url,
$env{'form.folderpath'},	$env{'form.folderpath'},
Line 3980 END	Line 4484 END
($url!~/$LONCAPA::assess_page_seq_re/)) {	($url!~/$LONCAPA::assess_page_seq_re/)) {
$confirm_removal = 1;	$confirm_removal = 1;
}	}
	if ($url =~ /$LONCAPA::assess_re/) {
	$curralias = (&LONCAPA::map::getparameter($orderidx,'parameter_0_mapalias'))[0];
	}

if ($denied{'copy'}) {	if ($denied{'copy'}) {
$copylink=(<<ENDCOPY)	$copylink=(<<ENDCOPY)
Line 4081 END	Line 4588 END
my $ispage;	my $ispage;
my $containerarg;	my $containerarg;
my $folderurl;	my $folderurl;
	my $plainurl;
if ($uploaded) {	if ($uploaded) {
if (($extension eq 'sequence') \|\| ($extension eq 'page')) {	if (($extension eq 'sequence') \|\| ($extension eq 'page')) {
$url=~/\Q$coursenum\E\/([\/\w]+)\.\Q$extension\E$/;	$url=~/\Q$coursenum\E\/([\/\w]+)\.\Q$extension\E$/;
Line 4099 END	Line 4607 END
$url='/adm/supplemental?';	$url='/adm/supplemental?';
}	}
} else {	} else {
&Apache::lonnet::allowuploaded('/adm/coursedoc',$url);	$plainurl = $url;
}	}
}	}

Line 4118 END	Line 4626 END
$url=&Apache::lonnet::clutter_with_no_wrapper($url);	$url=&Apache::lonnet::clutter_with_no_wrapper($url);
} else {	} else {
$url=&Apache::lonnet::clutter($url);	$url=&Apache::lonnet::clutter($url);
}	}
if ($url=~/^\/*uploaded\//) {	if ($url=~/^\/*uploaded\//) {
$url=~/\.(\w+)$/;	$url=~/\.(\w+)$/;
my $embstyle=&Apache::loncommon::fileembstyle($1);	my $embstyle=&Apache::loncommon::fileembstyle($1);
Line 4129 END	Line 4637 END
} elsif ($url!~/\.(sequence\|page)$/) {	} elsif ($url!~/\.(sequence\|page)$/) {
$url='/adm/coursedocs/showdoc'.$url;	$url='/adm/coursedocs/showdoc'.$url;
}	}
} elsif ($url=~m{^(\|/adm/wrapper)/ext/([^#]+)}) {	} elsif ($url=~m{^(\|/adm/wrapper)/ext/([^#]+)}) {
my $wrapped = $1;	my $wrapped = $1;
my $exturl = $2;	my $exturl = $2;
if (($wrapped eq '') && ($container ne 'page')) {	if (($wrapped eq '') && ($container ne 'page')) {
$url='/adm/wrapper'.$url;	$url='/adm/wrapper'.$url;
}	}
if (($ENV{'SERVER_PORT'} == 443) && ($exturl !~ /^https:/)) {	if (($ENV{'SERVER_PORT'} == 443) && ($exturl !~ /^https:/)) {
$nomodal = 1;	$nomodal = 1;
}	}
} elsif ($url=~m{^/adm/$coursedom/$coursenum/\d+/ext\.tool$}) {	} elsif ($url=~m{^/adm/$coursedom/$coursenum/\d+/ext\.tool$}) {
$url='/adm/wrapper'.$url;	$url='/adm/wrapper'.$url;
} elsif ($url eq "/public/$coursedom/$coursenum/syllabus") {	} elsif ($url eq "/public/$coursedom/$coursenum/syllabus") {
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://})) {
Line 4148 END	Line 4656 END
}	}
$nomodal = 1;	$nomodal = 1;
}	}
}	}
my ($checkencrypt,$shownurl);	my $checkencrypt;
if (!$env{'request.role.adv'}) {	if (!$env{'request.role.adv'}) {
if (((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) \|\|	if (((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) \|\|
($isencrypted) \|\| (&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i)) {	($isencrypted) \|\| (&Apache::lonnet::EXT('resource.0.encrypturl',$symb) =~ /^yes$/i)) {
Line 4169 END	Line 4677 END
my $currenc = $env{'request.enc'};	my $currenc = $env{'request.enc'};
$env{'request.enc'} = 1;	$env{'request.enc'} = 1;
$shownsymb = &Apache::lonenc::encrypted($symb);	$shownsymb = &Apache::lonenc::encrypted($symb);
$shownurl = &Apache::lonenc::encrypted($url);	my $shownurl = &Apache::lonenc::encrypted($url);
if (&Apache::lonnet::symbverify($symb,$url)) {	if (&Apache::lonnet::symbverify($symb,$url)) {
$url = $shownurl;	$url = $shownurl;
} else {	} else {
Line 4184 END	Line 4692 END
$url = &Apache::lonnet::clutter($url);	$url = &Apache::lonnet::clutter($url);
}	}
}	}
$shownurl = $url;	} else {
	$url = '';
}	}
unless ($env{'request.role.adv'}) {	unless ($env{'request.role.adv'}) {
if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {	if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
Line 4195 END	Line 4704 END
$hiddenres = 1;	$hiddenres = 1;
}	}
}	}
if ($url ne '') {	if (($url ne '') && ($shownsymb ne '')) {
$url = $shownurl.(($shownurl=~/\?/)?'&':'?').'symb='.&escape($shownsymb);	$url .= (($url=~/\?/)?'&':'?').'symb='.&escape($shownsymb);
}	}
}	}
} elsif ($supplementalflag) {	} elsif ($supplementalflag) {
Line 4225 END	Line 4734 END
}	}
$nomodal = 1;	$nomodal = 1;
}	}
	} elsif (($uploaded) && ($url ne '/adm/supplemental?') && ($url ne '/adm/coursedocs?')) {
	my $embstyle=&Apache::loncommon::fileembstyle($extension);
	unless ($embstyle eq 'ssi') {
	if (($embstyle eq 'img')
	\|\| ($embstyle eq 'emb')
	\|\| ($embstyle eq 'wrp')) {
	$url='/adm/wrapper'.$url;
	} elsif ($url !~ /\.(sequence\|page)$/) {
	$url='/adm/coursedocs/showdoc'.$url;
	}
	}
	}
	unless ($allowed && $env{'request.role.adv'}) {
	if ($ishidden \|\| (&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
	$hiddenres = 1;
	}
}	}
}	}
my ($rand_pick_text,$rand_order_text,$hiddenfolder);	my ($rand_pick_text,$rand_order_text,$hiddenfolder);
Line 4236 END	Line 4761 END
if (!$allowed && $supplementalflag) {	if (!$allowed && $supplementalflag) {
$folderpath.=$containerarg.'&'.$foldername;	$folderpath.=$containerarg.'&'.$foldername;
$url.='folderpath='.&escape($folderpath);	$url.='folderpath='.&escape($folderpath);
	if ($ishidden \|\| (&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
	$hiddenfolder = 1;
	}
} else {	} else {
my $rpicknum = (&LONCAPA::map::getparameter($orderidx,	my $rpicknum = (&LONCAPA::map::getparameter($orderidx,
'parameter_randompick'))[0];	'parameter_randompick'))[0];
Line 4255 END	Line 4783 END
my @resources = $$navmapref->retrieveResources($folderurl,$filterFunc,1,1);	my @resources = $$navmapref->retrieveResources($folderurl,$filterFunc,1,1);
unless (@resources) {	unless (@resources) {
$hiddenmap = 1;	$hiddenmap = 1;
unless ($env{'request.role.adv'}) {	unless ($env{'request.role.adv'}) {
$url = '';	$url = '';
$hiddenfolder = 1;	$hiddenfolder = 1;
}	}
Line 4274 END	Line 4802 END

# Append randompick number, hidden, and encrypted with ":" to foldername,	# Append randompick number, hidden, and encrypted with ":" to foldername,
# so it gets transferred between levels	# so it gets transferred between levels
$folderpath.=$containerarg.'&'.$foldername.	$folderpath.=$containerarg.'&'.$foldername.
':'.$rpicknum.':'.$hiddenmap.':'.$encryptmap.':'.$randorder.':'.$ispage;	':'.$rpicknum.':'.$hiddenmap.':'.$encryptmap.':'.$randorder.':'.$ispage;
unless ($url eq '') {	unless ($url eq '') {
$url.='folderpath='.&escape($folderpath);	$url.='folderpath='.&escape($folderpath);
Line 4310 $form_common."\n".	Line 4838 $form_common."\n".
$form_param."\n".	$form_param."\n".
$form_common."\n".	$form_common."\n".
'<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" id="randomorder_'.$orderidx.'" onclick="checkForSubmit(this.form,'."'randomorder','settings'".');" '.$ro_set.$disabled.' /> '.&mt('Random Order').' </label></span>'.	'<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" id="randomorder_'.$orderidx.'" onclick="checkForSubmit(this.form,'."'randomorder','settings'".');" '.$ro_set.$disabled.' /> '.&mt('Random Order').' </label></span>'.
$form_end;	$form_end;
}	}
} elsif ($supplementalflag && !$allowed) {	} elsif ($supplementalflag) {
my $isexttool;	my $isexttool;
if ($url=~m{^/adm/$coursedom/$coursenum/\d+/ext\.tool$}) {	if ($url=~m{^/adm/$coursedom/$coursenum/\d+/ext\.tool$}) {
$url='/adm/wrapper'.$url;	$url='/adm/wrapper'.$url;
Line 4321 $form_end;	Line 4849 $form_end;
$url .= ($url =~ /\?/) ? '&':'?';	$url .= ($url =~ /\?/) ? '&':'?';
$url .= 'folderpath='.&HTML::Entities::encode($esc_path,'<>&"');	$url .= 'folderpath='.&HTML::Entities::encode($esc_path,'<>&"');
if ($title) {	if ($title) {
$url .= '&title='.&HTML::Entities::encode($renametitle,'<>&"');	$url .= '&title='.$encodedtitle;
}	}
if ((($isexternal) \|\| ($isexttool)) && $orderidx) {	if ((($isexternal) \|\| ($isexttool)) && $orderidx) {
$url .= '&idx='.$orderidx;	$url .= '&idx='.$orderidx;
Line 4332 $form_end;	Line 4860 $form_end;
}	}
my ($tdalign,$tdwidth);	my ($tdalign,$tdwidth);
if ($allowed) {	if ($allowed) {
my $fileloc =	my $fileloc =
&Apache::lonnet::declutter(&Apache::lonnet::filelocation('',$orig_url));	&Apache::lonnet::declutter(&Apache::lonnet::filelocation('',$orig_url));
if ($isexternal) {	if ($isexternal) {
($editlink,$extresform) =	($editlink,$extresform) =
&Apache::lonextresedit::extedit_form(0,$residx,$orig_url,$title,$pathitem,	&Apache::lonextresedit::extedit_form(0,$residx,$orig_url,$title,$pathitem,
undef,undef,undef,undef,undef,undef,	undef,undef,undef,undef,undef,undef,
undef,$disabled);	undef,$disabled);
Line 4352 $form_end;	Line 4880 $form_end;
if ($supplementalflag) {	if ($supplementalflag) {
$suppanchor = $anchor;	$suppanchor = $anchor;
}	}
my $jscall =	my $jscall =
&Apache::lonhtmlcommon::jump_to_editres($cfile,$home,	&Apache::lonhtmlcommon::jump_to_editres($cfile,$home,
$switchserver,	$switchserver,
$forceedit,	$forceedit,
Line 4375 $form_end;	Line 4903 $form_end;
} else {	} else {
$reinit = &mt('(re-initialize course to access)');	$reinit = &mt('(re-initialize course to access)');
}	}
$line.='<td class="LC_docs_entry_commands"'.$tdalign.'><span class="LC_nobreak">'.$editlink.$renamelink;	$line.='<td class="LC_docs_entry_commands"'.$tdalign.'><span class="LC_nobreak">'.$editlink.$renamelink.'</span>';
my $link;	if ($orig_url =~ /$LONCAPA::assess_re/) {
	$line.= '<br />';
	if ($curralias ne '') {
	$line.='<span class="LC_nobreak"><a href="javascript:delalias('."'$esc_path','$orderidx'".');" class="LC_docs_alias">'.
	$lt{'da'}.'</a></span>';
	} else {
	$line.='<span class="LC_nobreak"><a href="javascript:setalias('."'$esc_path','$orderidx'".');" class="LC_docs_alias">'.
	$lt{'sa'}.'</a></span>';
	}
	}
	$line.='</td><td><span class="LC_nobreak">';
	my ($link,$nolink);
if (($url=~m{/adm/(coursedocs\|supplemental)}) \|\| (!$allowed && $url)) {	if (($url=~m{/adm/(coursedocs\|supplemental)}) \|\| (!$allowed && $url)) {
$line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';	if ($allowed && !$env{'request.role.adv'} && !$isfolder && !$ispage) {
	if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
	$nolink = 1;
	}
	}
	if ($nolink) {
	$line .= '<img src="'.$icon.'" alt="" class="LC_icon" /></a>';
	} else {
	$line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';
	}
} elsif ($url) {	} elsif ($url) {
if ($anchor ne '') {	if ($anchor ne '') {
if ($supplementalflag) {	if ($supplementalflag) {
Line 4387 $form_end;	Line 4935 $form_end;
$anchor = '#'.&HTML::Entities::encode($anchor,'"<>&');	$anchor = '#'.&HTML::Entities::encode($anchor,'"<>&');
}	}
}	}
	if (($nomodal) && ($hostname ne '')) {
if ((!$supplementalflag) && ($nomodal) && ($hostname ne '')) {
$link = 'http://'.$hostname.$url;	$link = 'http://'.$hostname.$url;
} else {	} else {
$link = $url;	$link = $url;
}	}
$link = &js_escape($link.(($url=~/\?/)?'&':'?').'inhibitmenu=yes'.$anchor);	my $inhibitmenu;
if ($nomodal) {	if ((($supplementalflag) && ($allowed) && ($url =~ m{^/adm/wrapper/})) \|\|
	(($allowed) && (($url =~ m{^/adm/(viewclasslist\|$match_domain/$match_username/aboutme)(\?\|$)}) \|\|
	($url =~ m{^/public/$match_domain/$match_courseid/syllabus(\?\|$)})))) {
	$inhibitmenu = 'only_body=1';
	} else {
	$inhibitmenu = 'inhibitmenu=yes';
	}
	$link = &js_escape($link.(($url=~/\?/)?'&':'?').$inhibitmenu.$anchor);
	if ($allowed && !$env{'request.role.adv'} && !$isfolder && !$ispage && !$uploaded) {
	if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
	$nolink = 1;
	}
	}
	if ($nolink) {
	$line.='<img src="'.$icon.'" alt="" class="LC_icon" />';
	} elsif ($nomodal) {
$line.='<a href="#" onclick="javascript:window.open('."'$link','syllabuspreview','height=400,width=500,scrollbars=1,resizable=1,menubar=0,location=1')".'; return false;" />'.	$line.='<a href="#" onclick="javascript:window.open('."'$link','syllabuspreview','height=400,width=500,scrollbars=1,resizable=1,menubar=0,location=1')".'; return false;" />'.
'<img src="'.$icon.'" alt="" class="LC_icon" border="0" /></a>';	'<img src="'.$icon.'" alt="" class="LC_icon" border="0" /></a>';
} else {	} else {
Line 4406 $form_end;	Line 4968 $form_end;
}	}
$line.='</span></td><td'.$tdwidth.'>';	$line.='</span></td><td'.$tdwidth.'>';
if (($url=~m{/adm/(coursedocs\|supplemental)}) \|\| (!$allowed && $url)) {	if (($url=~m{/adm/(coursedocs\|supplemental)}) \|\| (!$allowed && $url)) {
$line.='<a href="'.$url.'">'.$title.'</a>';	if ($nolink) {
	$line.=$title;
	} else {
	$line.='<a href="'.$url.'">'.$title.'</a>';
	}
	if (!$allowed && $supplementalflag && $canedit && $isfolder) {
	my $editicon = &Apache::loncommon::lonhttpdurl('/res/adm/pages').'/editmap.png';
	my $editurl = $url;
	$editurl =~ s{^\Q/adm/supplemental?\E}{/adm/coursedocs?command=direct&forcesupplement=1&};
	$line .= ' '.'<a href="'.$editurl.'">'.
	'<img src="'.$editicon.'" alt="'.&mt('Edit Content').'" title="'.&mt('Edit Content').'" />'.
	'</a>';
	}
	if ((($hiddenfolder) \|\| ($hiddenres)) && (!$allowed) && ($supplementalflag)) {
	$line.= ' <span class="LC_warning">('.&mt('hidden').')</span> ';
	}
} elsif ($url) {	} elsif ($url) {
if ($nomodal) {	if ($nolink) {
	$line.=$title;
	} elsif ($nomodal) {
$line.='<a href="#" onclick="javascript:window.open('."'$link','syllabuspreview','height=400,width=500,scrollbars=1,resizable=1,menubar=0,location=1')".'; return false;" />'.	$line.='<a href="#" onclick="javascript:window.open('."'$link','syllabuspreview','height=400,width=500,scrollbars=1,resizable=1,menubar=0,location=1')".'; return false;" />'.
$title.'</a>';	$title.'</a>';
} else {	} else {
Line 4419 $form_end;	Line 4998 $form_end;
} else {	} else {
$line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';	$line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';
}	}
$line.="$extresform</td>";	if (($allowed) && ($curralias ne '')) {
	$line .= '<br /><span class="LC_docs_alias_name">('.$curralias.')</span>';
	} else {
	$line .= $extresform;
	}
	$line .= '</td>';
$rand_pick_text = ' ' if ($rand_pick_text eq '');	$rand_pick_text = ' ' if ($rand_pick_text eq '');
$rand_order_text = ' ' if ($rand_order_text eq '');	$rand_order_text = ' ' if ($rand_order_text eq '');
if (($allowed) && ($folder!~/^supplemental/)) {	if ($uploaded && $url && !$isfolder && !$ispage) {
my %lt=&Apache::lonlocal::texthash(	if (($plainurl ne '') && ($env{'request.role.adv'} \|\| $allowed \|\| !$hiddenres)) {
'hd' => 'Hidden',	&Apache::lonnet::allowuploaded('/adm/coursedoc',$plainurl);
'ec' => 'URL hidden');
my ($enctext,$hidtext);
if ((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) {
$enctext = ' checked="checked"';
if (($ishash) && (ref($filtersref->{'encrypturl'}) eq 'ARRAY')) {
push(@{$filtersref->{'encrypturl'}},$orderidx);
}
}	}
	}
	if ($allowed) {
	my %lt=&Apache::lonlocal::texthash(
	'hd' => 'Hidden',
	'ec' => 'URL hidden');
	my ($enctext,$hidtext,$formhidden,$formurlhidden);
if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {	if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
$hidtext = ' checked="checked"';	$hidtext = ' checked="checked"';
if (($ishash) && (ref($filtersref->{'randomorder'}) eq 'ARRAY')) {	if (($ishash) && (ref($filtersref->{'hiddenresource'}) eq 'ARRAY')) {
push(@{$filtersref->{'hiddenresource'}},$orderidx);	push(@{$filtersref->{'hiddenresource'}},$orderidx);
}	}
}	}
my $formhidden = 'edit_hiddenresource_'.$orderidx;	$formhidden = 'edit_hiddenresource_'.$orderidx;
my $formurlhidden = 'edit_encrypturl_'.$orderidx;	$line.=(<<ENDPARMS);
$line.=(<<ENDPARMS);
<td class="LC_docs_entry_parameter">	<td class="LC_docs_entry_parameter">
<form action="/adm/coursedocs" method="post" name="$formhidden">	<form action="/adm/coursedocs" method="post" name="$formhidden">
$form_param	$form_param
$form_common	$form_common
<label><input type="checkbox" name="hiddenresource_$orderidx" id="hiddenresource_$orderidx" onclick="checkForSubmit(this.form,'hiddenresource','settings');" $hidtext $disabled /> $lt{'hd'}</label>	<label><input type="checkbox" name="hiddenresource_$orderidx" id="hiddenresource_$orderidx" onclick="checkForSubmit(this.form,'hiddenresource','settings');" $hidtext $disabled /> $lt{'hd'}</label>
$form_end	$form_end
	ENDPARMS
	if ($folder =~/^supplemental/) {
	$line.= "\n <td>";
	} else {
	if ((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i) {
	$enctext = ' checked="checked"';
	if (($ishash) && (ref($filtersref->{'encrypturl'}) eq 'ARRAY')) {
	push(@{$filtersref->{'encrypturl'}},$orderidx);
	}
	}
	$formurlhidden = 'edit_encrypturl_'.$orderidx;
	$line.=(<<ENDPARMS);
<br />	<br />
<form action="/adm/coursedocs" method="post" name="$formurlhidden">	<form action="/adm/coursedocs" method="post" name="$formurlhidden">
$form_param	$form_param
Line 4458 $form_end;	Line 5052 $form_end;
<td class="LC_docs_entry_parameter">$rand_pick_text<br />	<td class="LC_docs_entry_parameter">$rand_pick_text<br />
$rand_order_text</td>	$rand_order_text</td>
ENDPARMS	ENDPARMS
	}
}	}
$line.=&Apache::loncommon::end_data_table_row();	$line.=&Apache::loncommon::end_data_table_row();
return $line;	return $line;
Line 4572 sub new_timebased_suffix {	Line 5167 sub new_timebased_suffix {
$locknotfreed =	$locknotfreed =
'<div class="LC_error">'.	'<div class="LC_error">'.
&mt('A lockfile was not released when you added content to the clipboard earlier in this session.').' '.	&mt('A lockfile was not released when you added content to the clipboard earlier in this session.').' '.

&mt('As a result addition of items to the clipboard will be unavailable until your next log-in.');	&mt('As a result addition of items to the clipboard will be unavailable until your next log-in.');
} else {	} else {
$locknotfreed .=	$locknotfreed .=
&mt('This will prevent addition of items to the clipboard until your next log-in.');	&mt('This will prevent addition of items to the clipboard until your next log-in.');
}	}
Line 4863 sub verifycontent {	Line 5458 sub verifycontent {
$r->print(&endContentScreen());	$r->print(&endContentScreen());
}	}


sub devalidateversioncache {	sub devalidateversioncache {
my $src=shift;	my $src=shift;
&Apache::lonnet::devalidate_cache_new('courseresversion',$env{'request.course.id'}.'_'.	&Apache::lonnet::devalidate_cache_new('courseresversion',$env{'request.course.id'}.'_'.
Line 4927 sub checkversions {	Line 5521 sub checkversions {
}	}
if ($haschanged) {	if ($haschanged) {
if (&Apache::lonnet::put('resourceversions',\%newsetversions,	if (&Apache::lonnet::put('resourceversions',\%newsetversions,
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {	$env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {
$r->print(&Apache::loncommon::confirmwrapper(	$r->print(&Apache::loncommon::confirmwrapper(
&Apache::lonhtmlcommon::confirm_success(&mt('Your Version Settings have been Saved'))));	&Apache::lonhtmlcommon::confirm_success(&mt('Your Version Settings have been Saved'))));
} else {	} else {
Line 5060 ENDHEADERS	Line 5654 ENDHEADERS
return;	return;
}	}
$r->print(	$r->print(
'<input type="submit" name="setversions" value="'.$lt{'save'}.'"'.$disabled.' />'.	'<input type="submit" name="setversions" value="'.$lt{'save'}.'"'.$disabled.' />'.
&Apache::loncommon::start_data_table().	&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_header_row().	&Apache::loncommon::start_data_table_header_row().
'<th>'.&mt('Resources').'</th>'.	'<th>'.&mt('Resources').'</th>'.
Line 5103 ENDHEADERS	Line 5697 ENDHEADERS
$setversions{$linkurl},	$setversions{$linkurl},
'set_version_'.$linkurl,	'set_version_'.$linkurl,
{'select_form_order' => ['',1..$currentversion,'mostrecent'],	{'select_form_order' => ['',1..$currentversion,'mostrecent'],
'' => '',	'' => '',
'mostrecent' => &mt('most recent'),	'mostrecent' => &mt('most recent'),
map {$_,$_} (1..$currentversion)},'',$readonly));	map {$_,$_} (1..$currentversion)},'',$readonly));
my $lastold=1;	my $lastold=1;
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {	for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
my $url=$root.'.'.$prevvers.'.'.$extension;	my $url=$root.'.'.$prevvers.'.'.$extension;
Line 5183 sub changewarning {	Line 5777 sub changewarning {
if (!defined($message)) {	if (!defined($message)) {
$message='Changes will become active for your current session after [_1], or the next time you log in.';	$message='Changes will become active for your current session after [_1], or the next time you log in.';
}	}
	my $windowname = 'loncapaclient';
	if ($env{'request.lti.login'}) {
	$windowname .= 'lti';
	}
$r->print("\n\n".	$r->print("\n\n".
'<script type="text/javascript">'."\n".	'<script type="text/javascript">'."\n".
'// <![CDATA['."\n".	'// <![CDATA['."\n".
'function reinit(tf) { tf.submit();'.$postexec.' }'."\n".	'function reinit(tf) { tf.submit();'.$postexec.' }'."\n".
'// ]]>'."\n".	'// ]]>'."\n".
'</script>'."\n".	'</script>'."\n".
'<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.	'<form name="reinitform" method="post" action="/adm/roles" target="'.$windowname.'">'.
'<input type="hidden" name="orgurl" value="'.$url.	'<input type="hidden" name="orgurl" value="'.$url.
'" /><input type="hidden" name="selectrole" value="1" /><p class="LC_warning">'.	'" /><input type="hidden" name="selectrole" value="1" /><p class="LC_warning">'.
&mt($message,' <input type="hidden" name="'.	&mt($message,' <input type="hidden" name="'.
Line 5242 sub startContentScreen {	Line 5840 sub startContentScreen {
if (($mode eq 'navmaps') \|\| ($mode eq 'supplemental')) {	if (($mode eq 'navmaps') \|\| ($mode eq 'supplemental')) {
$output .= '<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>    '.&mt('Content Overview').'    </b></a></li>'."\n";	$output .= '<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>    '.&mt('Content Overview').'    </b></a></li>'."\n";
$output .= '<li'.(($mode eq 'coursesearch')?' class="active"':'').'><a href="/adm/searchcourse"><b>     '.&mt('Content Search').'     </b></a></li>'."\n";	$output .= '<li'.(($mode eq 'coursesearch')?' class="active"':'').'><a href="/adm/searchcourse"><b>     '.&mt('Content Search').'     </b></a></li>'."\n";
	$output .= '<li'.(($mode eq 'courseindex')?' class="active"':'').'><a href="/adm/indexcourse"><b>      '.&mt('Content Index').'      </b></a></li>'."\n";
$output .= '<li '.(($mode eq 'suppdocs')?' class="active"':'').'><a href="/adm/supplemental"><b>'.&mt('Supplemental Content').'</b></a></li>';	$output .= '<li '.(($mode eq 'suppdocs')?' class="active"':'').'><a href="/adm/supplemental"><b>'.&mt('Supplemental Content').'</b></a></li>';
} else {	} else {
$output .= '<li '.(($mode eq 'docs')?' class="active"':'').' id="tabbededitor"><a href="/adm/coursedocs?forcestandard=1"><b>      '.&mt('Main Content Editor').'      </b></a></li>'."\n";	$output .= '<li '.(($mode eq 'docs')?' class="active"':'').' id="tabbededitor"><a href="/adm/coursedocs?forcestandard=1"><b>      '.&mt('Main Content Editor').'      </b></a></li>'."\n";
Line 5279 sub handler {	Line 5878 sub handler {
my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};	my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};
my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};

	# get docroot
	my $londocroot = $r->dir_config('lonDocRoot');

# graphics settings	# graphics settings
$iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL').'/');	$iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL').'/');

Line 5287 sub handler {	Line 5889 sub handler {
foreach my $topic ('Adding_Course_Doc','Main_Course_Documents',	foreach my $topic ('Adding_Course_Doc','Main_Course_Documents',
'Adding_External_Resource','Adding_External_Tool',	'Adding_External_Resource','Adding_External_Tool',
'Navigate_Content','Adding_Folders','Docs_Overview',	'Navigate_Content','Adding_Folders','Docs_Overview',
'Load_Map','Supplemental','Score_Upload_Form',	'Load_Map','Supplemental','Score_Upload_Form',
'Adding_Pages','Importing_LON-CAPA_Resource',	'Adding_Pages','Importing_LON-CAPA_Resource',
'Importing_IMS_Course','Uploading_From_Harddrive',	'Importing_IMS_Course','Uploading_From_Harddrive',
'Course_Roster','Web_Page','Dropbox','Simple_Problem') {	'Course_Roster','Web_Page','Dropbox','Simple_Problem',
	'Standard_Problem','Course_Resources',
	'Search_LON-CAPA_Resource','Import_Stored_Links') {
$help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);	$help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);
}	}
# Composite help files	# Composite help files
Line 5305 sub handler {	Line 5909 sub handler {
$help{'Group Portfolio'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');	$help{'Group Portfolio'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');
$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');	$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');

my ($allowed,$canedit,$canview,$disabled);	my ($allowed,$canedit,$canview,$noendpage,$disabled);
	# does this user have privileges to modify content.
	if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
# URI is /adm/supplemental when viewing supplemental docs in non-edit mode.	# URI is /adm/supplemental when viewing supplemental docs in non-edit mode.
unless ($r->uri eq '/adm/supplemental') {	unless ($r->uri eq '/adm/supplemental') {
# does this user have privileges to modify content.
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
$allowed = 1;	$allowed = 1;
$canedit = 1;	}
$canview = 1;	$canedit = 1;
} elsif (&Apache::lonnet::allowed('cev',$env{'request.course.id'})) {	$canview = 1;
	} elsif (&Apache::lonnet::allowed('cev',$env{'request.course.id'})) {
	# URI is /adm/supplemental when viewing supplemental docs in non-edit mode.
	unless ($r->uri eq '/adm/supplemental') {
$allowed = 1;	$allowed = 1;
$canview = 1;
}	}
	$canview = 1;
}	}
unless ($canedit) {	unless ($canedit) {
$disabled = ' disabled="disabled"';	$disabled = ' disabled="disabled"';
Line 5360 sub handler {	Line 5967 sub handler {
} elsif ($canedit && $env{'form.dumpcourse'}) {	} elsif ($canedit && $env{'form.dumpcourse'}) {
&init_breadcrumbs('dumpcourse','Copy '.&Apache::loncommon::course_type().' Content to Authoring Space');	&init_breadcrumbs('dumpcourse','Copy '.&Apache::loncommon::course_type().' Content to Authoring Space');
&dumpcourse($r);	&dumpcourse($r);
} elsif ($allowed && $env{'form.exportcourse'}) {	} elsif ($canedit && $env{'form.exportcourse'}) {
&init_breadcrumbs('exportcourse','IMS Export');	&init_breadcrumbs('exportcourse','IMS Export');
&Apache::imsexport::exportcourse($r);	&Apache::imsexport::exportcourse($r);
} else {	} else {
	if ($canedit && $env{'form.authorrole'}) {
	$noendpage = 1;
	my ($redirect,$error) = &makenewproblem($r,$coursedom,$coursenum);
	if ($redirect) {
	if (($env{'form.newresourceadd'}) && ($env{'form.folderpath'})) {
	my $container = 'sequence';
	my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,
	$is_random_order,$container) =
	&Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
	my (@folders)=split('&',$env{'form.folderpath'});
	$env{'form.foldername'}=&unescape(pop(@folders));
	my $folder=pop(@folders);
	my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
	$folder.'.'.$container);
	my $warning;
	if ($fatal) {
	if ($container eq 'page') {
	$warning = &mt('An error occurred retrieving the contents of the current page.');
	} else {
	$warning = &mt('An error occurred retrieving the contents of the current folder.');
	}
	} else {
	my $url = $redirect;
	my $srcfile = $londocroot.$url;
	$url =~ s{^/priv/}{/res/};
	my $targetfile = $londocroot.$url;
	my $nokeyref = &Apache::lonpublisher::getnokey($r->dir_config('lonIncludes'));
	my $output = &Apache::lonpublisher::batchpublish($r,$srcfile,$targetfile,$nokeyref,1);
	$env{'form.folder'} = $folder;
	&snapshotbefore();
	my $title = &LONCAPA::map::qtunescape($env{'form.newresourcetitle'});
	my $ext = 'false';
	my $newidx = &LONCAPA::map::getresidx(&LONCAPA::map::qtunescape($url));
	$LONCAPA::map::resources[$newidx]=$title.':'.&LONCAPA::map::qtunescape($url).
	':'.$ext.':normal:res';
	push(@LONCAPA::map::order,$newidx);
	&LONCAPA::map::storeparameter($newidx,'parameter_hiddenresource','yes',
	'string_yesno');
	&remember_parms($newidx,'hiddenresource','set','yes');
	($errtext,$fatal) =
	&storemap($coursenum, $coursedom, $folder.'.'.$container,1);
	&log_differences($plain);
	&mark_hash_old();
	$r->internal_redirect($redirect);
	return OK;
	}
	} else {
	$r->internal_redirect($redirect);
	}
	}
	}
#	#
# Done catching special calls	# Done catching special calls
# The whole rest is for course and supplemental documents and utilities menu	# The whole rest is for course and supplemental documents and utilities menu
# Get the parameters that may be needed	# Get the parameters that may be needed
#	#
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folderpath',	['folderpath','title',
'forcesupplement','forcestandard',	'forcesupplement','forcestandard',
'tools','symb','command','supppath']);	'tools','symb','command','supppath']);

Line 5389 sub handler {	Line 6047 sub handler {

if ($env{'form.symb'}) {	if ($env{'form.symb'}) {
my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($env{'form.symb'});	my ($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($env{'form.symb'});
unless (($id =~ /^\d+$/) && (&Apache::lonnet::is_on_map($resurl))) {	unless (($id =~ /^\d+$/) && (&Apache::lonnet::is_on_map($resurl))) {
delete($env{'form.symb'});	delete($env{'form.symb'});
}	}
}	}
Line 5411 sub handler {	Line 6069 sub handler {
}	}
if ($env{'form.forcesupplement'}) { $supplementalflag=1; }	if ($env{'form.forcesupplement'}) { $supplementalflag=1; }
if ($env{'form.forcestandard'}) { $supplementalflag=0; }	if ($env{'form.forcestandard'}) { $supplementalflag=0; }
unless ($allowed) { $supplementalflag=1; }	unless (($supplementalflag) \|\|
unless ($standard) { $supplementalflag=1; }	($r->uri =~ m{^/adm/coursedocs/showdoc/uploaded/\Q$coursedom\E/\Q$coursenum\E/docs/})) {
	unless ($allowed) { $supplementalflag=1; }
	unless ($standard) { $supplementalflag=1; }
	}
my $toolsflag=0;	my $toolsflag=0;
if ($env{'form.tools'}) { $toolsflag=1; }	if ($env{'form.tools'}) { $toolsflag=1; }

if ($env{'form.folderpath'} ne '') {	if ($env{'form.folderpath'} ne '') {
&validate_folderpath($supplementalflag);	&Apache::loncommon::validate_folderpath($supplementalflag,$allowed,$coursenum,$coursedom);
}	}

	my $backto_supppath;
if ($env{'form.supppath'} ne '') {	if ($env{'form.supppath'} ne '') {
&validate_suppath();	if ($supplementalflag && $allowed) {
	$backto_supppath = &validate_supppath($coursenum,$coursedom);
	}
}	}

my $script='';	my $script='';
Line 5431 sub handler {	Line 6095 sub handler {
my $containertag;	my $containertag;
my $pathitem;	my $pathitem;
my %ltitools;	my %ltitools;
	my $posslti;
my $hiddentop;	my $hiddentop;
my $navmap;	my $navmap;
my $filterFunc = sub { my $res = shift; return (!$res->randomout() && !$res->is_map()) };	my $filterFunc = sub { my $res = shift; return (!$res->randomout() && !$res->is_map()) };
Line 5442 sub handler {	Line 6107 sub handler {
&Apache::loncommon::symb_to_docspath($env{'form.symb'},\$navmap);	&Apache::loncommon::symb_to_docspath($env{'form.symb'},\$navmap);
&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>	&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>
$env{'form.command'}.'_'.$env{'form.symb'}});	$env{'form.command'}.'_'.$env{'form.symb'}});
} elsif ($env{'form.supppath'} ne '') {	} elsif (($env{'form.supppath'} ne '') && $supplementalflag && $allowed) {
$env{'form.folderpath'}=$env{'form.supppath'};	$env{'form.folderpath'}=$env{'form.supppath'};
&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>	&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>
$env{'form.command'}.'_'.$env{'form.supppath'}});	$env{'form.command'}.'_'.$backto_supppath});
}	}
} elsif ($env{'form.command'} eq 'editdocs') {	} elsif ($env{'form.command'} eq 'editdocs') {
$env{'form.folderpath'} = &default_folderpath($coursenum,$coursedom,\$navmap);	$env{'form.folderpath'} = &default_folderpath($coursenum,$coursedom,\$navmap);
Line 5473 sub handler {	Line 6138 sub handler {

if (&unescape($env{'form.folderpath'}) =~ m{^(default\|supplemental)&}) {	if (&unescape($env{'form.folderpath'}) =~ m{^(default\|supplemental)&}) {
if ($supplementalflag) {	if ($supplementalflag) {
undef($env{'form.folderpath'}) if ($1 eq 'default');	undef($env{'form.folderpath'}) if ($1 eq 'default');
} else {	} else {
undef($env{'form.folderpath'}) if ($1 eq 'supplemental');	undef($env{'form.folderpath'}) if ($1 eq 'supplemental');
}	}
Line 5481 sub handler {	Line 6146 sub handler {
undef($env{'form.folderpath'});	undef($env{'form.folderpath'});
}	}
if ($env{'form.folderpath'} ne '') {	if ($env{'form.folderpath'} ne '') {
&validate_folderpath($supplementalflag);	&Apache::loncommon::validate_folderpath($supplementalflag,$allowed,$coursenum,$coursedom);
}	}
}	}

# If we are not allowed to make changes, all we can see are supplemental docs	# Set folderpath if we are not allowed to make changes and this is supplemental content
if (!$allowed) {	if ((!$allowed) && ($supplementalflag)) {
unless ($env{'form.folderpath'} =~ /^supplemental/) {	unless ($env{'form.folderpath'} =~ /^supplemental/) {
$env{'form.folderpath'} = &supplemental_base();	$env{'form.folderpath'} = &supplemental_base();
}	}
Line 5498 sub handler {	Line 6163 sub handler {
$env{'form.folderpath'};	$env{'form.folderpath'};
}	}
# If allowed and user's role is not advanced check folderpath is not hidden	# If allowed and user's role is not advanced check folderpath is not hidden
if (($allowed) && (!$env{'request.role.adv'}) &&	my $hidden_and_empty;
($env{'form.folderpath'} ne '') && (!$supplementalflag)) {	if (($allowed) && (!$env{'request.role.adv'}) && ($env{'form.folderpath'} ne '')) {
my $folderurl;	my ($folderurl,$foldername,$hiddenfolder);
my @pathitems = split(/\&/,$env{'form.folderpath'});	my @pathitems = split(/\&/,$env{'form.folderpath'});
my $folder = $pathitems[-2];	my $folder = $pathitems[-2];
if ($folder eq '') {	if ($folder eq '') {
Line 5512 sub handler {	Line 6177 sub handler {
} else {	} else {
$folderurl .= '.sequence';	$folderurl .= '.sequence';
}	}
unless (ref($navmap)) {	if ($supplementalflag) {
$navmap = Apache::lonnavmaps::navmap->new();	($foldername,$hiddenfolder) = ($pathitems[-1] =~ /^([^:]*)::(\|1):::$/);
}	$foldername = &HTML::Entities::decode(&unescape($foldername));
if (ref($navmap)) {	my ($supplemental) = &Apache::loncommon::get_supplemental($coursenum,$coursedom);
if (lc($navmap->get_mapparam(undef,$folderurl,"0.hiddenresource")) eq 'yes') {	if (ref($supplemental) eq 'HASH') {
my @resources = $navmap->retrieveResources($folderurl,$filterFunc,1,1);	my ($suppmap,$suppmapnum);
unless (@resources) {	if ($folder eq 'supplemental') {
undef($env{'form.folderpath'});	$suppmap = 'default';
	$suppmapnum = 0;
	} elsif ($folder =~ /^supplemental_(\d+)$/) {
	$suppmap = $1;
	$suppmapnum = $suppmap;
	}
	if ($hiddenfolder) {
	my $hascontent;
	foreach my $key (reverse(sort(keys(%{$supplemental->{'ids'}})))) {
	if ($key =~ m{^\Q/uploaded/$coursedom/$coursenum/supplemental/$suppmap/\E}) {
	$hascontent = 1;
	} elsif (ref($supplemental->{'ids'}->{$key}) eq 'ARRAY') {
	foreach my $id (@{$supplemental->{'ids'}->{$key}}) {
	if ($id =~ /^$suppmapnum\:/) {
	$hascontent = 1;
	last;
	}
	}
	}
	last if ($hascontent);
	}
	unless ($hascontent) {
	if ($foldername ne '') {
	$hidden_and_empty = $foldername;
	} else {
	$hidden_and_empty = $folder;
	}
	}
}	}
}	}
	} else {
	unless (ref($navmap)) {
	$navmap = Apache::lonnavmaps::navmap->new();
	}
	($foldername,$hiddenfolder) = ($pathitems[-1] =~ /^([^:]*):\|\d+:\|1:(\|1):\|1:\|1$/);
	$foldername = &HTML::Entities::decode(&unescape($foldername));
	if (ref($navmap)) {
	if ($hiddenfolder \|\|
	(lc($navmap->get_mapparam(undef,$folderurl,"0.hiddenresource")) eq 'yes')) {
	my @resources = $navmap->retrieveResources($folderurl,$filterFunc,1,1);
	unless (@resources) {
	if ($foldername ne '') {
	$hidden_and_empty = $foldername;
	} else {
	$hidden_and_empty = $folder;
	}
	}
	}
	}
	}
	if ($hidden_and_empty ne '') {
	splice(@pathitems,-2);
	if (@pathitems) {
	$env{'form.folderpath'} = join('&',@pathitems);
	} else {
	undef($env{'form.folderpath'});
	}
}	}
}	}
}	}


# If after all of this, we still don't have any paths, make them	# If after all of this, we still don't have any paths, make them
unless ($env{'form.folderpath'}) {	unless ($env{'form.folderpath'}) {
if ($supplementalflag) {	if ($supplementalflag) {
Line 5601 sub handler {	Line 6319 sub handler {
my $tid = 1;	my $tid = 1;
my @tabids;	my @tabids;
if ($supplementalflag) {	if ($supplementalflag) {
@tabids = ('002','ee2','ff2');	@tabids = ('002','dd2','ee2','ff2');
$tid = 2;	$tid = 2;
} else {	} else {
@tabids = ('aa1','bb1','cc1','ff1');	@tabids = ('aa1','bb1','cc1','ff1');
Line 5611 sub handler {	Line 6329 sub handler {
}	}
}	}
my $tabidstr = join("','",@tabids);	my $tabidstr = join("','",@tabids);
%ltitools = &Apache::lonnet::get_domain_lti($coursedom,'consumer');	my (%domtools,%crstools);
my $posslti = keys(%ltitools);	my %tooltypes = &Apache::loncommon::usable_exttools();
	if ($tooltypes{'dom'}) {
	%domtools = &Apache::lonnet::get_domain_lti($coursedom,'consumer');
	}
	if ($tooltypes{'crs'}) {
	%crstools = &Apache::lonnet::get_course_lti($coursenum,$coursedom,'consumer');
	}
	%ltitools = (
	dom => \%domtools,
	crs => \%crstools,
	);
	$posslti = scalar(keys(%domtools)) + scalar(keys(%crstools));
my $hostname = $r->hostname();	my $hostname = $r->hostname();
$script .= &editing_js($udom,$uname,$supplementalflag,$coursedom,$coursenum,$posslti,	$script .= &editing_js($udom,$uname,$supplementalflag,$coursedom,$coursenum,$posslti,
$canedit,$hostname,\$navmap).	$londocroot,$canedit,$hostname,\$navmap).
&history_tab_js().	&history_tab_js().
&inject_data_js().	&inject_data_js().
&Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr,$tid).	&Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr,$tid).
&Apache::lonextresedit::extedit_javascript(\%ltitools);	&Apache::lonextresedit::extedit_javascript(\%ltitools);
	my $onload = "javascript:resize_scrollbox('contentscroll','1','1');";
	if ($hidden_and_empty ne '') {
	my $alert = &mt("Additional privileges required to edit empty and hidden folder: '[_1]'",
	$hidden_and_empty);
	$onload .= "javascript:alert('".&js_escape($alert)."');";
	}
$addentries = {	$addentries = {
onload => "javascript:resize_scrollbox('contentscroll','1','1');",	onload => $onload,
};	};
}	}
$script .= &paste_popup_js();	$script .= &paste_popup_js();
Line 5636 sub handler {	Line 6371 sub handler {
.$script."\n"	.$script."\n"
.'// ]]>'."\n"	.'// ]]>'."\n"
.'</script>'."\n"	.'</script>'."\n"
.'<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script>'."\n";	.'<script type="text/javascript"
	src="/res/adm/includes/file_upload.js"></script>'."\n";

# Breadcrumbs	# Breadcrumbs
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();

if ($showdoc) {	if ($showdoc) {
$r->print(&Apache::loncommon::start_page("$crstype documents",undef,	my $args;
{'force_register' => $showdoc,}));	if ($supplementalflag) {
	my $title = &HTML::Entities::encode($env{'form.title'},'\'"<>&');
	my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
	$args = {'bread_crumbs' => $brcrum,
	'bread_crumbs_nomenu' => 1};
	} else {
	$args = {'force_register' => $showdoc};
	}
	$r->print(&Apache::loncommon::start_page("$crstype documents",undef,$args));
} elsif ($toolsflag) {	} elsif ($toolsflag) {
my ($breadtext,$breadtitle);	my ($breadtext,$breadtitle);
$breadtext = "$crstype Editor";	$breadtext = "$crstype Editor";
Line 5661 sub handler {	Line 6405 sub handler {
$breadtitle)	$breadtitle)
);	);
} elsif ($r->uri eq '/adm/supplemental') {	} elsif ($r->uri eq '/adm/supplemental') {
	unless ($env{'request.role.adv'}) {
	unless (&Apache::lonnet::has_unhidden_suppfiles($coursenum,$coursedom)) {
	$r->internal_redirect('/adm/navmaps');
	return OK;
	}
	}
my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);	my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);
	my $args = {'bread_crumbs' => $brcrum};
	unless (($env{'form.folderpath'} eq '') \|\|
	($env{'form.folder'} eq 'supplemental')) {
	$args->{'bread_crumbs_nomenu'} = 1;
	}
$r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,	$r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,
{'bread_crumbs' => $brcrum,}));	$args));
} else {	} else {
my ($breadtext,$breadtitle,$helpitem);	my ($breadtext,$breadtitle,$helpitem);
$breadtext = "$crstype Editor";	$breadtext = "$crstype Editor";
Line 5691 sub handler {	Line 6446 sub handler {
my %codebase = ();	my %codebase = ();
my ($upload_result,$upload_output,$uploadphase);	my ($upload_result,$upload_output,$uploadphase);
if ($canedit) {	if ($canedit) {
	undef($suppchanges);
if (($env{'form.uploaddoc.filename'}) &&	if (($env{'form.uploaddoc.filename'}) &&
($env{'form.cmd'}=~/^upload_(\w+)/)) {	($env{'form.cmd'}=~/^upload_(\w+)/)) {
my $context = $1;	my $context = $1;
Line 5702 sub handler {	Line 6458 sub handler {
if ($hadchanges) {	if ($hadchanges) {
&mark_hash_old();	&mark_hash_old();
}	}
	if ($suppchanges) {
	&Apache::lonnet::update_supp_caches($coursedom,$coursenum);
	undef($suppchanges);
	}
$r->print($upload_output);	$r->print($upload_output);
} elsif ($env{'form.phase'} eq 'upload_embedded') {	} elsif ($env{'form.phase'} eq 'upload_embedded') {
# Process file upload - phase two - upload embedded objects	# Process file upload - phase two - upload embedded objects
Line 5714 sub handler {	Line 6474 sub handler {
my ($destination,$dir_root) = &embedded_destination();	my ($destination,$dir_root) = &embedded_destination();
my $url_root = '/uploaded/'.$docudom.'/'.$docuname;	my $url_root = '/uploaded/'.$docudom.'/'.$docuname;
my $actionurl = '/adm/coursedocs';	my $actionurl = '/adm/coursedocs';
my ($result,$flag) =	my ($result,$flag) =
&Apache::loncommon::upload_embedded('coursedoc',$destination,	&Apache::loncommon::upload_embedded('coursedoc',$destination,
$docuname,$docudom,$dir_root,$url_root,undef,undef,undef,$state,	$docuname,$docudom,$dir_root,$url_root,undef,undef,undef,$state,
$actionurl);	$actionurl);
Line 5725 sub handler {	Line 6485 sub handler {
my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};	my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
my ($destination,$dir_root) = &embedded_destination();	my ($destination,$dir_root) = &embedded_destination();
my $result =	my $result =
&Apache::loncommon::modify_html_refs('coursedoc',$destination,	&Apache::loncommon::modify_html_refs('coursedoc',$destination,
$docuname,$docudom,undef,	$docuname,$docudom,undef,
$dir_root);	$dir_root);
$r->print($result.&return_to_editor());	$r->print($result.&return_to_editor());
} elsif ($env{'form.phase'} eq 'decompress_uploaded') {	} elsif ($env{'form.phase'} eq 'decompress_uploaded') {
$uploadphase = 'decompress_phase_one';	$uploadphase = 'decompress_phase_one';
$r->print(&decompression_phase_one().	$r->print(&decompression_phase_one().
Line 5751 sub handler {	Line 6511 sub handler {
'copm' => 'All documents out of a published map into this folder',	'copm' => 'All documents out of a published map into this folder',
'upfi' => 'Upload File',	'upfi' => 'Upload File',
'upld' => 'Upload Content',	'upld' => 'Upload Content',
'srch' => 'Search',	'srch' => 'Search Repository',
'impo' => 'Import',	'impo' => 'Import from Repository',
'lnks' => 'Import from Stored Links',	'lnks' => 'Import from Stored Links',
'impm' => 'Import from Assembled Map',	'impm' => 'Import from Assembled Map',
	'imcr' => 'Import from Course Resources',
'extr' => 'External Resource',	'extr' => 'External Resource',
'extt' => 'External Tool',	'extt' => 'External Tool',
'selm' => 'Select Map',	'selm' => 'Select Map',
Line 5766 sub handler {	Line 6527 sub handler {
'sipa' => 'Simple Course Page',	'sipa' => 'Simple Course Page',
'sipr' => 'Simple Problem',	'sipr' => 'Simple Problem',
'webp' => 'Blank Web Page (editable)',	'webp' => 'Blank Web Page (editable)',
	'stpr' => 'Standard Problem',
	'news' => 'New sub-directory',
	'crpr' => 'Create Problem',
	'swit' => 'Switch Server',
'drbx' => 'Drop Box',	'drbx' => 'Drop Box',
'scuf' => 'External Scores (handgrade, upload, clicker)',	'scuf' => 'External Scores (handgrade, upload, clicker)',
'bull' => 'Discussion Board',	'bull' => 'Discussion Board',
Line 5779 sub handler {	Line 6544 sub handler {
'se' => 'Select',	'se' => 'Select',
'file' => 'File',	'file' => 'File',
'title' => 'Title',	'title' => 'Title',
	'addp' => 'Add Placeholder to course?',
	'uste' => 'Use Template?',
	'fnam' => 'File Name:',
	'loca' => 'Location:',
	'dire' => 'Directory:',
	'cate' => 'Category:',
	'tmpl' => 'Template:',
	'empd' => 'No resources found',
'comment' => 'Comment',	'comment' => 'Comment',
'parse' => 'Upload embedded images/multimedia files if HTML file',	'parse' => 'Upload embedded images/multimedia files if HTML file',
'bb5' => 'Blackboard 5',	'bb5' => 'Blackboard 5',
'bb6' => 'Blackboard 6',	'bb6' => 'Blackboard 6',
'angel5' => 'ANGEL 5.5',	'angel5' => 'ANGEL 5.5',
'webctce4' => 'WebCT 4 Campus Edition',	'webctce4' => 'WebCT 4 Campus Edition',
	'yes' => 'Yes',
	'no' => 'No',
'er' => 'Editing rights unavailable for your current role.',	'er' => 'Editing rights unavailable for your current role.',
);	);
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------

# Calculate free quota space for a user or course. A javascript function checks	# Calculate free quota space for a user or course. A javascript function checks
# file size to determine if upload should be allowed.	# file size to determine if upload should be allowed.
my $quotatype = 'unofficial';	my $quotatype = 'unofficial';
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$quotatype = 'community';	$quotatype = 'community';
	} elsif ($crstype eq 'Placement') {
	$quotatype = 'placement';
} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {	} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {
$quotatype = 'official';	$quotatype = 'official';
} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {	} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {
Line 5823 sub handler {	Line 6601 sub handler {
my $fileupload=(<<FIUP);	my $fileupload=(<<FIUP);
$quotainfo	$quotainfo
$lt{'file'}:<br />	$lt{'file'}:<br />
<input type="file" name="uploaddoc" class="LC_flUpload" size="40" $disabled />
<input type="hidden" id="LC_free_space" value="$free_space" />
FIUP	FIUP

my $checkbox=(<<CHBO);	my $checkbox=(<<CHBO);
<!-- <label>$lt{'parse'}?	<!-- <label>$lt{'parse'}?
<input type="checkbox" name="parserflag" />	<input type="checkbox" name="parserflag" />
Line 5846 CHBO	Line 6621 CHBO
<fieldset id="uploadimsform" style="display: none;">	<fieldset id="uploadimsform" style="display: none;">
<legend>$lt{'imsf'}</legend>	<legend>$lt{'imsf'}</legend>
$fileupload	$fileupload
	<input type="file" name="uploaddoc" id="uploaddocims" class="LC_flUpload LC_uploaddoc" size="40" $disabled />
	<input type="hidden" id="LC_free_space_ims" value="$free_space" />
<br />	<br />
<p>	<p>
$lt{'cms'}:	$lt{'cms'}:
Line 5871 IMSFORM	Line 6648 IMSFORM
<fieldset id="uploaddocform" style="display: none;">	<fieldset id="uploaddocform" style="display: none;">
<legend>$lt{'upfi'}</legend>	<legend>$lt{'upfi'}</legend>
<input type="hidden" name="active" value="aa" />	<input type="hidden" name="active" value="aa" />
$fileupload	$fileupload
	<input type="file" name="uploaddoc" class="LC_flUpload" size="40" $disabled />
	<input type="hidden" id="LC_free_space" value="$free_space" />
<br />	<br />
$lt{'title'}:<br />	$lt{'title'}:<br />
<input type="text" size="60" name="comment" $disabled />	<input type="text" size="60" name="comment" $disabled />
Line 5889 FUFORM	Line 6668 FUFORM

my $mapimportjs;	my $mapimportjs;
if ($canedit) {	if ($canedit) {
$mapimportjs = "javascript:openbrowser('mapimportform','importmap','sequence,page','');";	$mapimportjs = "javascript:openbrowser('mapimportform','importmap','sequence,page','');";
} else {	} else {
$mapimportjs = "javascript:alert('".&js_escape($lt{'er'})."');";	$mapimportjs = "javascript:alert('".&js_escape($lt{'er'})."');";
}	}
Line 5910 FUFORM	Line 6689 FUFORM
</form>	</form>

SEDFFORM	SEDFFORM
	my ($importcrsresform,$checkcrsres);
	if ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.crsauthor'}) {
	$checkcrsres = 1;
	} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.crsauthor'} ne '0') {
	my %domdefs=&Apache::lonnet::get_domain_defaults($coursedom);
	if ($domdefs{'crsauthor'}) {
	$checkcrsres = 1;
	}
	}
	if ($checkcrsres) {
	my ($numdirs,$pickfile) =
	&Apache::loncommon::import_crsauthor_form('coursepath','coursefile',
	"resize_scrollbox('contentscroll','1','0');",
	undef,'res');
	if ($pickfile) {
	$importcrsresform=(<<CRSFORM);
	<a class="LC_menubuttons_link" href="javascript:toggleImportCrsres('res');">
	$lt{'imcr'}</a>$help{'Course_Resources'}
	<form action="/adm/coursedocs" method="post" name="crsresimportform" onsubmit="return validImportCrsRes();">
	<fieldset id="importcrsresform" style="display: none;">
	<legend>$lt{'imcr'}</legend>
	<div id="importcrsrescontent" style="display: none;">
	<input type="hidden" name="active" value="bb" />
	$pickfile
	<p>
	$lt{'title'}: <input type="text" name="crsrestitle" value="" $disabled />
	</p>
	<input type="hidden" name="importdetail" value="" />
	<input type="submit" name="crsres" value="$lt{'impo'}" $disabled /><br />
	</div>
	<div id="importcrsresempty" style="display: none;">
	<p>
	$lt{'empd'}
	</p>
	</div>
	</fieldset>
	</form>
	CRSFORM
	}
	}

my $fromstoredjs;	my $fromstoredjs;
if ($canedit) {	if ($canedit) {
$fromstoredjs = 'open_StoredLinks_Import()';	$fromstoredjs = 'open_StoredLinks_Import()';
} else {	} else {
$fromstoredjs = "alert('".&js_escape($lt{'er'})."')";	$fromstoredjs = "alert('".&js_escape($lt{'er'})."')";
}	}

my @importpubforma = (	my @importpubforma = (
{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'" onclick="javascript:groupsearch()" />' => $pathitem."<a class='LC_menubuttons_link' href='javascript:groupsearch()'>$lt{'srch'}</a>" },	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'" onclick="javascript:groupsearch()" />' => $pathitem."<a class='LC_menubuttons_link' href='javascript:groupsearch()'>$lt{'srch'}</a>$help{'Search_LON-CAPA_Resource'}" },
{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'" onclick="javascript:groupimport();"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'" onclick="javascript:groupimport();"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },
{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/wishlist.png" alt="'.$lt{lnks}.'" onclick="javascript:'.$fromstoredjs.';" />' => '<a class="LC_menubuttons_link" href="javascript:'.$fromstoredjs.';">'.$lt{'lnks'}.'</a>' },	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/wishlist.png" alt="'.$lt{lnks}.'" onclick="javascript:'.$fromstoredjs.';" />' => '<a class="LC_menubuttons_link" href="javascript:'.$fromstoredjs.';">'.$lt{'lnks'}.'</a>'.$help{'Import_Stored_Links'} },
{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/sequence.png" alt="'.$lt{impm}.'" onclick="javascript:toggleMap(\'map\');" />' => $importpubform }	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/sequence.png" alt="'.$lt{impm}.'" onclick="javascript:toggleMap(\'map\');" />' => $importpubform },
);	);
	if ($importcrsresform) {
	push(@importpubforma,{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/impcrsau.png" alt="'.$lt{imcr}.'" onclick="javascript:toggleImportCrsres(\'res\');" />' => $importcrsresform});
	}
$importpubform = &create_form_ul(&create_list_elements(@importpubforma));	$importpubform = &create_form_ul(&create_list_elements(@importpubforma));
my $extresourcesform =	my $extresourcesform =
&Apache::lonextresedit::extedit_form(0,0,undef,undef,$pathitem,	&Apache::lonextresedit::extedit_form(0,0,undef,undef,$pathitem,
Line 5953 SEDFFORM	Line 6775 SEDFFORM
<input type="hidden" name="copyfolder" />	<input type="hidden" name="copyfolder" />
$containertag	$containertag
</form>	</form>
	<form name="aliasform" method="post" action="/adm/coursedocs">
	<input type="hidden" name="alias" />
	<input type="hidden" name="cmd" />
	$containertag
	</form>

HIDDENFORM	HIDDENFORM
$r->print(&makesimpleeditform($pathitem)."\n".	$r->print(&makesimpleeditform($pathitem)."\n".
Line 5975 HIDDENFORM	Line 6802 HIDDENFORM
}	}

#	#

my $savefolderpath;
my $hostname = $r->hostname();	my $hostname = $r->hostname();
	my $savefolderpath;

if ($allowed) {	if ($allowed) {
my $folder=$env{'form.folder'};	my $folder=$env{'form.folder'};
Line 5990 HIDDENFORM	Line 6816 HIDDENFORM
}	}
my $postexec='';	my $postexec='';
if ($folder eq 'default') {	if ($folder eq 'default') {
	my $windowname = 'loncapaclient';
	if ($env{'request.lti.login'}) {
	$windowname .= 'lti';
	}
$r->print('<script type="text/javascript">'."\n"	$r->print('<script type="text/javascript">'."\n"
.'// <![CDATA['."\n"	.'// <![CDATA['."\n"
.'this.window.name="loncapaclient";'."\n"	.'this.window.name="'.$windowname.'";'."\n"
.'// ]]>'."\n"	.'// ]]>'."\n"
.'</script>'."\n"	.'</script>'."\n"
);	);
Line 6005 HIDDENFORM	Line 6835 HIDDENFORM

my $newnavform=(<<NNFORM);	my $newnavform=(<<NNFORM);
<form action="/adm/coursedocs" method="post" name="newnav">	<form action="/adm/coursedocs" method="post" name="newnav">
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="ff" />
$pathitem	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'navc'}=/adm/navmaps" />	value="$lt{'navc'}=/adm/navmaps" />
Line 6015 HIDDENFORM	Line 6845 HIDDENFORM
NNFORM	NNFORM
my $newsmppageform=(<<NSPFORM);	my $newsmppageform=(<<NSPFORM);
<form action="/adm/coursedocs" method="post" name="newsmppg">	<form action="/adm/coursedocs" method="post" name="newsmppg">
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="ff" />
$pathitem	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makesmppage();"> $lt{'sipa'}</a>	<a class="LC_menubuttons_link" href="javascript:makesmppage();"> $lt{'sipa'}</a>
Line 6025 NSPFORM	Line 6855 NSPFORM

my $newsmpproblemform=(<<NSPROBFORM);	my $newsmpproblemform=(<<NSPROBFORM);
<form action="/adm/coursedocs" method="post" name="newsmpproblem">	<form action="/adm/coursedocs" method="post" name="newsmpproblem">
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="dd" />
$pathitem	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makesmpproblem();">$lt{'sipr'}</a>	<a class="LC_menubuttons_link" href="javascript:makesmpproblem();">$lt{'sipr'}</a>
Line 6036 NSPROBFORM	Line 6866 NSPROBFORM

my $newdropboxform=(<<NDBFORM);	my $newdropboxform=(<<NDBFORM);
<form action="/adm/coursedocs" method="post" name="newdropbox">	<form action="/adm/coursedocs" method="post" name="newdropbox">
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="dd" />
$pathitem	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makedropbox();">$lt{'drbx'}</a>	<a class="LC_menubuttons_link" href="javascript:makedropbox();">$lt{'drbx'}</a>
Line 6046 NDBFORM	Line 6876 NDBFORM

my $newexuploadform=(<<NEXUFORM);	my $newexuploadform=(<<NEXUFORM);
<form action="/adm/coursedocs" method="post" name="newexamupload">	<form action="/adm/coursedocs" method="post" name="newexamupload">
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="dd" />
$pathitem	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makeexamupload();">$lt{'scuf'}</a>	<a class="LC_menubuttons_link" href="javascript:makeexamupload();">$lt{'scuf'}</a>
Line 6056 NEXUFORM	Line 6886 NEXUFORM

my $newbulform=(<<NBFORM);	my $newbulform=(<<NBFORM);
<form action="/adm/coursedocs" method="post" name="newbul">	<form action="/adm/coursedocs" method="post" name="newbul">
<input type="hidden" name="active" value="dd" />	<input type="hidden" name="active" value="ee" />
$pathitem	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makebulboard();" >$lt{'bull'}</a>	<a class="LC_menubuttons_link" href="javascript:makebulboard();" >$lt{'bull'}</a>
Line 6066 NBFORM	Line 6896 NBFORM

my $newaboutmeform=(<<NAMFORM);	my $newaboutmeform=(<<NAMFORM);
<form action="/adm/coursedocs" method="post" name="newaboutme">	<form action="/adm/coursedocs" method="post" name="newaboutme">
<input type="hidden" name="active" value="dd" />	<input type="hidden" name="active" value="ee" />
$pathitem	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme" />	value="$plainname=/adm/$udom/$uname/aboutme" />
Line 6077 NAMFORM	Line 6907 NAMFORM

my $newaboutsomeoneform=(<<NASOFORM);	my $newaboutsomeoneform=(<<NASOFORM);
<form action="/adm/coursedocs" method="post" name="newaboutsomeone">	<form action="/adm/coursedocs" method="post" name="newaboutsomeone">
<input type="hidden" name="active" value="dd" />	<input type="hidden" name="active" value="ee" />
$pathitem	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makeabout();">$lt{'abou'}</a>	<a class="LC_menubuttons_link" href="javascript:makeabout();">$lt{'abou'}</a>
Line 6086 NASOFORM	Line 6916 NASOFORM

my $newrosterform=(<<NROSTFORM);	my $newrosterform=(<<NROSTFORM);
<form action="/adm/coursedocs" method="post" name="newroster">	<form action="/adm/coursedocs" method="post" name="newroster">
<input type="hidden" name="active" value="dd" />	<input type="hidden" name="active" value="ee" />
$pathitem	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'rost'}=/adm/viewclasslist" />	value="$lt{'rost'}=/adm/viewclasslist" />
Line 6107 NROSTFORM	Line 6937 NROSTFORM
}	}
my $newwebpageform =(<<NWEBFORM);	my $newwebpageform =(<<NWEBFORM);
<form action="/adm/coursedocs" method="post" name="newwebpage">	<form action="/adm/coursedocs" method="post" name="newwebpage">
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="ff" />
$pathitem	$pathitem
<input type="hidden" name="importdetail" value="$newwebpage" />	<input type="hidden" name="importdetail" value="$newwebpage" />
<a class="LC_menubuttons_link" href="javascript:makewebpage();">$lt{'webp'}</a>	<a class="LC_menubuttons_link" href="javascript:makewebpage();">$lt{'webp'}</a>
$help{'Web_Page'}	$help{'Web_Page'}
</form>	</form>
NWEBFORM	NWEBFORM
	my $showpath = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
	my @ids=&Apache::lonnet::current_machine_ids();
	my $machines_str = "'".join("','",@ids)."'";
	my (%is_home,%toppath,$rolehomes);
	if ($env{'user.author'}) {
	if (grep(/^\Q$env{'user.home'}\E$/,@ids)) {
	$is_home{'author'} = 1;
	}
	$rolehomes = '<input type="hidden" id="rolehome_author" name="rolehome_author" value="'.$env{'user.home'}.'" />'."\n";
	}
	my %roleshash = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'},'userroles',
	['active'],['ca','aa']);
	my %by_roletype;
	if (keys(%roleshash)) {
	foreach my $entry (keys(%roleshash)) {
	my ($auname,$audom,$roletype) = split(/:/,$entry);
	my $key = $entry;
	$key =~ s/:/___/g;
	my $author = $auname.'___'.$audom;
	$by_roletype{$roletype}{$author} = 1;
	my $rolehome = &Apache::lonnet::homeserver($auname,$audom);
	$toppath{$author} = "/priv/$audom/$auname";
	if (grep(/^\Q$rolehome\E$/,@ids)) {
	$is_home{$author} = 1;
	}
	$rolehomes .= '<input type="hidden" id="rolehome_coauthor_'.$roletype.'_'.$audom.'/'.$auname.'" '.
	'name="rolehome_coauthor" value="'.$roletype.'='.$audom.'/'.$auname.'='.$rolehome.'" />'."\n";
	}
	}
	my $crshome = $env{'course.'.$env{'request.course.id'}.'.home'};
	if (grep(/^\Q$crshome\E$/,@ids)) {
	$is_home{'course'} = 1;
	}
	$rolehomes .= '<input type="hidden" id="rolehome_course" name="rolehome_course" value="'.$crshome.'" />'."\n";
	my $pickdir = $lt{'loca'}.
	'<select name="authorrole" onchange="populateDirSelects(this.form,'."'authorrole','authorpath'".',1,1,0);">'."\n".
	'<option value="" selected="selected">'.&mt('Select').'</option>'."\n";
	if ($env{'user.author'}) {
	$pickdir .= '<option value="author">'.&Apache::lonnet::plaintext('au').'</option>'."\n";
	}
	if (keys(%by_roletype)) {
	foreach my $possrole ('ca','aa') {
	if (ref($by_roletype{$possrole}) eq 'HASH') {
	my $roletitle = &Apache::lonnet::plaintext($possrole);
	foreach my $author (sort { lc($a) cmp lc($b) } (keys(%{$by_roletype{$possrole}}))) {
	my ($none,$where,$auname,$audom) = split(/\//,$toppath{$author});
	$pickdir .= '<option value="'.$author.'___'.$possrole.'">'.
	$roletitle." ($audom/$auname)</option>\n";
	}
	}
	}
	}
	if ($checkcrsres) {
	$pickdir .= '<option value="course">'.&mt('Course Resource').'</option>'."\n";
	}
	$pickdir .= '</select><br />'."\n".
	$lt{'dire'}.
	'<select name="authorpath" onchange="toggleCrsResTitle();">'.
	'<option value=""></option>'.
	'</select><br />'."\n";
	my %seltemplate_menus;
	my @files = &Apache::lonhomework::get_template_list('problem');
	my @noexamplelink = ('blank.problem','blank.library','script.library');
	my $currentcategory = '';
	my @ordered = ('');
	my %templatehelp;
	my $defcategory = '';
	my @catorder = ($defcategory);
	$seltemplate_menus{$defcategory}->{'order'} = [''];
	$seltemplate_menus{$defcategory}->{'text'} = '';
	foreach my $file (@files) {
	if (ref($file) eq 'ARRAY') {
	my ($path,$title,$category,$help) = @{$file};
	next if ($title !~ /\S/);
	if (&js_escape($category) ne $currentcategory) {
	$currentcategory = &js_escape($category);
	push(@catorder,&js_escape($currentcategory));
	$seltemplate_menus{$currentcategory}->{'text'} = $category;
	$seltemplate_menus{$currentcategory}->{'default'} = '';
	$seltemplate_menus{$currentcategory}->{'select2'}->{''} = '';
	push(@{$seltemplate_menus{$currentcategory}->{'order'}},'');
	}
	if ($path) {
	$seltemplate_menus{$currentcategory}->{'select2'}->{&js_escape($path)} = $title;
	push(@{$seltemplate_menus{$currentcategory}->{'order'}},&js_escape($path));
	if ($help) {
	$templatehelp{$path} = $help;
	}
	}
	}
	}

	my $templates = $lt{'cate'}.' '.
	&Apache::loncommon::linked_select_forms('courseresform','<br />'.$lt{'tmpl'}.' ',
	$defcategory,'tempcategory','template',
	\%seltemplate_menus,\@catorder,
	"resize_scrollbox('contentscroll','1','0');",
	"toggleExampleText();",'template').'<br />';
	my $templatepreview = '<a href="#" target="sample" onclick="javascript:getExample(600,420,\'yes\',true); return false;">'.
	'<span id="newresexample">'.&mt('Example').'</span></a>';
	my $crsresform;
	if (($env{'user.author'}) \|\| ($checkcrsres)) {
	$crsresform=(<<RESFORM);
	<a class="LC_menubuttons_link" href="javascript:toggleCrsRes('res');">
	$lt{'stpr'}</a>$help{'Standard_Problem'}
	<form action="/adm/coursedocs" method="post" name="courseresform">
	<fieldset id="crsresform" style="display:none;">
	<legend>$lt{'stpr'}</legend>
	<input type="hidden" name="active" value="bb" />
	<p>
	$pickdir
	</p>
	<div id="newstdproblem" style="display:none;">
	<p>
	<span class="LC_nobreak">$lt{'news'}?
	<label><input type="radio" name="newsubdir" value="0" onclick="toggleNewsubdir(this.form);" checked="checked" $disabled />No</label>

	<label><input type="radio" name="newsubdir" value="1" onclick="toggleNewsubdir(this.form);" $disabled />Yes</label>
	</span><span id="newsubdir"></span>
	<input type="hidden" name="newsubdirname" id="newsubdirname" value="" autocomplete="off" />
	</p>
	</div>
	$lt{'fnam'}
	<input type="text" size="20" name="newresourcename" autocomplete="off" $disabled />
	<div id="newresource" style="display:none">
	<p>
	$lt{'addp'}
	<label><input type="radio" name="newresourceadd" value="0" checked="checked" onclick="toggleNewInCourse(this.form);" $disabled />
	$lt{'no'}</label>
	<label><input type="radio" name="newresourceadd" value="1" onclick="toggleNewInCourse(this.form);" $disabled />
	$lt{'yes'}</label>
	<span id="newrestitle"></span>
	<input type="hidden" size="20" name="newresourcetitle" id="newresourcetitle" autocomplete="off" $disabled />
	</p>
	</div>
	<p>
	$lt{'uste'}
	<label><input type="radio" name="newresusetemp" value="0" checked="checked" onclick="toggleWithTemplate(this.form);" $disabled />
	$lt{'no'}</label>
	<label><input type="radio" name="newresusetemp" value="1" onclick="toggleWithTemplate(this.form);" $disabled />
	$lt{'yes'}</label>
	</p>
	<div id="newrestemplate" style="display:none">
	$templates
	$templatepreview
	</div>
	<span class="LC_nobreak">
	<input type="hidden" name="folderpath" value="$showpath" />
	<input type="submit" name="newcrs" value="$lt{'crpr'}" $disabled />
	</span>
	<div id="stdprobswitch" style="display:none;">
	$rolehomes
	<input type="button" name="switchfornewprob" value="$lt{'swit'}" onclick="switchForProb();" />
	</div>
	</fieldset>
	</form>

	RESFORM
	}

my $specialdocumentsform;	my $specialdocumentsform;
my @specialdocumentsforma;	my @specialdocumentsforma;
Line 6161 NSYLFORM	Line 7149 NSYLFORM

my $newgroupfileform=(<<NGFFORM);	my $newgroupfileform=(<<NGFFORM);
<form action="/adm/coursedocs" method="post" name="newgroupfiles">	<form action="/adm/coursedocs" method="post" name="newgroupfiles">
<input type="hidden" name="active" value="dd" />	<input type="hidden" name="active" value="ee" />
$pathitem	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />	value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />
Line 6184 NGFFORM	Line 7172 NGFFORM
}	}
$specialdocumentsform = &create_form_ul(&create_list_elements(@specialdocumentsforma));	$specialdocumentsform = &create_form_ul(&create_list_elements(@specialdocumentsforma));

	my @external = (
my @importdoc = (	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="toggleExternal(\'ext\');" />'=>$extresourcesform}
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="toggleUpload(\'ext\');" />'=>$extresourcesform}
);
if (keys(%ltitools)) {
push(@importdoc,
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/exttool.png" alt="'.$lt{extt}.'" onclick="toggleUpload(\'tool\');" />'=>$exttoolform},
);	);
	if ($posslti) {
	push(@external,
	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/exttool.png" alt="'.$lt{extt}.'" onclick="toggleExternal(\'tool\');" />'=>$exttoolform},
	);
}	}
	my $externalform = &create_form_ul(&create_list_elements(@external));

	my @importdoc = ();
unless ($container eq 'page') {	unless ($container eq 'page') {
push(@importdoc,	push(@importdoc,
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/ims.png" alt="'.$lt{imsf}.'" onclick="javascript:toggleUpload(\'ims\');" />'=>$imspform}	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/ims.png" alt="'.$lt{imsf}.'" onclick="javascript:toggleUpload(\'ims\');" />'=>$imspform}
Line 6206 NGFFORM	Line 7196 NGFFORM
@gradingforma=(	@gradingforma=(
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{sipr}.'" onclick="javascript:makesmpproblem();" />'=>$newsmpproblemform},	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{sipr}.'" onclick="javascript:makesmpproblem();" />'=>$newsmpproblemform},
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/dropbox.png" alt="'.$lt{drbx}.'" onclick="javascript:makedropbox();" />'=>$newdropboxform},	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/dropbox.png" alt="'.$lt{drbx}.'" onclick="javascript:makedropbox();" />'=>$newdropboxform},
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/scoreupfrm.png" alt="'.$lt{scuf}.'" onclick="javascript:makeexamupload();" />'=>$newexuploadform},	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/scoreupfrm.png" alt="'.$lt{scuf}.'" onclick="javascript:makeexamupload();" />'=>$newexuploadform}

);	);
	if ($crsresform) {
	push(@gradingforma,
	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{stpr}.'" onclick="javascript:toggleCrsRes(\'res\');" />'=>$crsresform}
	);
	}
$gradingform = &create_form_ul(&create_list_elements(@gradingforma));	$gradingform = &create_form_ul(&create_list_elements(@gradingforma));

@communityforma=(	@communityforma=(
Line 6223 NGFFORM	Line 7217 NGFFORM
my %orderhash = (	my %orderhash = (
'aa' => ['Upload',$fileuploadform],	'aa' => ['Upload',$fileuploadform],
'bb' => ['Import',$importpubform],	'bb' => ['Import',$importpubform],
'cc' => ['Grading',$gradingform],	'cc' => ['External',$externalform],
'ee' => ['Other',$specialdocumentsform],	'dd' => ['Assessment',$gradingform],
	'ff' => ['Other',$specialdocumentsform],
);	);
unless ($container eq 'page') {	unless ($container eq 'page') {
$orderhash{'00'} = ['Newfolder',$newfolderform];	$orderhash{'00'} = ['Newfolder',$newfolderform];
$orderhash{'dd'} = ['Collaboration',$communityform];	$orderhash{'ee'} = ['Collaboration',$communityform];
}	}

$hadchanges=0;	$hadchanges=0;
Line 6241 unless ($container eq 'page') {	Line 7236 unless ($container eq 'page') {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}	}
if ($hadchanges) {	if ($hadchanges) {
unless (&is_hash_old()) {	unless (&is_hash_old()) {
&mark_hash_old();	&mark_hash_old();
}	}
}	}

&changewarning($r,'');	&changewarning($r,'');
}	}
Line 6256 unless ($container eq 'page') {	Line 7251 unless ($container eq 'page') {
unless ($supplementalflag) {	unless ($supplementalflag) {
$folder='supplemental';	$folder='supplemental';
}	}
if ($folder =~ /^supplemental$/ &&	if (($folder eq 'supplemental') &&
(($env{'form.folderpath'} =~ /^default\&/) \|\| ($env{'form.folderpath'} eq ''))) {	(($env{'form.folderpath'} =~ /^default\&/) \|\| ($env{'form.folderpath'} eq ''))) {
$env{'form.folderpath'} = &supplemental_base();	$env{'form.folderpath'} = &supplemental_base();
} elsif ($allowed) {	} elsif ($allowed) {
Line 6274 unless ($container eq 'page') {	Line 7269 unless ($container eq 'page') {
<form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">	<form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">
<fieldset id="uploadsuppdocform" style="display: none;">	<fieldset id="uploadsuppdocform" style="display: none;">
<legend>$lt{'upfi'}</legend>	<legend>$lt{'upfi'}</legend>
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="ee" />
$fileupload	$fileupload
	<input type="file" name="uploaddoc" id="uploaddocsupp" class="LC_flUpload LC_uploaddoc" size="40" $disabled />
	<input type="hidden" id="LC_free_space_supp" value="$free_space" />
<br />	<br />
<br />	<br />
<span class="LC_nobreak">	<span class="LC_nobreak">
Line 6288 unless ($container eq 'page') {	Line 7285 unless ($container eq 'page') {
$pathitem	$pathitem
<input type="hidden" name="cmd" value="upload_supplemental" />	<input type="hidden" name="cmd" value="upload_supplemental" />
<input type='submit' value="$lt{'upld'}" />	<input type='submit' value="$lt{'upld'}" />
	</fieldset>
</form>	</form>
SUPDOCFORM	SUPDOCFORM

Line 6304 SNFFORM	Line 7302 SNFFORM
my $supextform =	my $supextform =
&Apache::lonextresedit::extedit_form(1,0,undef,undef,$pathitem,	&Apache::lonextresedit::extedit_form(1,0,undef,undef,$pathitem,
$help{'Adding_External_Resource'},	$help{'Adding_External_Resource'},
undef,undef,$disabled);	undef,undef,undef,undef,undef,undef,
	$disabled);

my $supexttoolform =	my $supexttoolform =
&Apache::lonextresedit::extedit_form(1,0,undef,undef,$pathitem,	&Apache::lonextresedit::extedit_form(1,0,undef,undef,$pathitem,
$help{'Adding_External_Tool'},	$help{'Adding_External_Tool'},
Line 6362 my @specialdocs = (	Line 7362 my @specialdocs = (
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/webpage.png" alt="'.$lt{webp}.'" onclick="javascript:makewebpage('."'supp'".');" />'=>$supwebpageform},	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/webpage.png" alt="'.$lt{webp}.'" onclick="javascript:makewebpage('."'supp'".');" />'=>$supwebpageform},

);	);
my @supimportdoc = (	my @supexternal = (
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="javascript:toggleUpload(\'suppext\')" />'	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="javascript:toggleExternal(\'suppext\')" />'
=>$supextform});	=>$supextform});
if (keys(%ltitools)) {	if ($posslti) {
push(@supimportdoc,	push(@supexternal,
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/exttool.png" alt="'.$lt{extt}.'" onclick="javascript:toggleUpload(\'supptool\')" />'	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/exttool.png" alt="'.$lt{extt}.'" onclick="javascript:toggleExternal(\'supptool\')" />'
=>$supexttoolform});	=>$supexttoolform});
}	}
push(@supimportdoc,	my @supimportdoc = (
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/pdfupload.png" alt="'.$lt{upl}.'" onclick="javascript:toggleUpload(\'suppdoc\');" />'	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/pdfupload.png" alt="'.$lt{upl}.'" onclick="javascript:toggleUpload(\'suppdoc\');" />'
=>$supupdocform},	=>$supupdocform},
);	);

$supupdocform = &create_form_ul(&create_list_elements(@supimportdoc));	$supupdocform = &create_form_ul(&create_list_elements(@supimportdoc));
my %suporderhash = (	my %suporderhash = (
'00' => ['Supnewfolder', $supnewfolderform],	'00' => ['Supnewfolder', $supnewfolderform],
'ee' => ['Upload',$supupdocform],	'dd' => ['Upload',$supupdocform],
	'ee' => ['External',&create_form_ul(&create_list_elements(@supexternal))],
'ff' => ['Other',&create_form_ul(&create_list_elements(@specialdocs))]	'ff' => ['Other',&create_form_ul(&create_list_elements(@specialdocs))]
);	);
if ($supplementalflag) {	if ($supplementalflag) {
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,	$suppchanges = 0;
$supplementalflag,\%suporderhash,$iconpath,$pathitem,	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
\%ltitools,$canedit,$hostname);	$supplementalflag,\%suporderhash,$iconpath,$pathitem,
if ($error) {	\%ltitools,$canedit,$hostname);
$r->print('<p><span class="LC_error">'.$error.'</span></p>');	if ($error) {
} else {	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
if ($suppchanges) {	}
my %servers = &Apache::lonnet::internet_dom_servers($coursedom);	if ($suppchanges) {
my @ids=&Apache::lonnet::current_machine_ids();	&Apache::lonnet::update_supp_caches($coursedom,$coursenum);
foreach my $server (keys(%servers)) {	undef($suppchanges);
next if (grep(/^\Q$server\E$/,@ids));	}
my $hashid=$coursenum.':'.$coursedom;
my $cachekey = &escape('suppcount').':'.&escape($hashid);
&Apache::lonnet::remote_devalidate_cache($server,[$cachekey]);
}
&Apache::lonnet::get_numsuppfiles($coursenum,$coursedom,1);
undef($suppchanges);
}
}
}	}
} elsif ($supplementalflag) {	} elsif ($supplementalflag) {
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
$supplementalflag,'',$iconpath,$pathitem,'',$hostname);	$supplementalflag,'',$iconpath,$pathitem,'',$canedit,
	$hostname);
if ($error) {	if ($error) {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}	}
Line 6431 my %suporderhash = (	Line 7425 my %suporderhash = (
&entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table>');	&entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table>');
}	}
}	}
$r->print(&Apache::loncommon::end_page());	unless ($noendpage) {
	$r->print(&Apache::loncommon::end_page());
	}
return OK;	return OK;
}	}

Line 6509 sub decompression_phase_one {	Line 7505 sub decompression_phase_one {
$error = &mt('Archive file "[_1]" not in the expected location.',$env{'form.archiveurl'});	$error = &mt('Archive file "[_1]" not in the expected location.',$env{'form.archiveurl'});
} else {	} else {
my $file = $1;	my $file = $1;
$output =	$output =
&Apache::loncommon::process_decompression($docudom,$docuname,$file,	&Apache::loncommon::process_decompression($docudom,$docuname,$file,
$destination,$dir_root,	$destination,$dir_root,
$hiddenelem);	$hiddenelem);
Line 6566 sub remove_archive {	Line 7562 sub remove_archive {
if ($url eq $env{'form.archiveurl'}) {	if ($url eq $env{'form.archiveurl'}) {
if (&handle_edit_cmd($docuname,$docudom)) {	if (&handle_edit_cmd($docuname,$docudom)) {
($errtext,$fatal) = &storemap($docuname,$docudom,$map,1);	($errtext,$fatal) = &storemap($docuname,$docudom,$map,1);
	if ($suppchanges) {
	&Apache::lonnet::update_supp_caches($docudom,$docuname);
	undef($suppchanges);
	}
if ($fatal) {	if ($fatal) {
if ($container eq 'page') {	if ($container eq 'page') {
$delwarning = &mt('An error occurred updating the contents of the current page.');	$delwarning = &mt('An error occurred updating the contents of the current page.');
Line 6793 END	Line 7793 END

sub editing_js {	sub editing_js {
my ($udom,$uname,$supplementalflag,$coursedom,$coursenum,$posslti,	my ($udom,$uname,$supplementalflag,$coursedom,$coursenum,$posslti,
$canedit,$hostname,$navmapref) = @_;	$londocroot,$canedit,$hostname,$navmapref) = @_;
my %js_lt = &Apache::lonlocal::texthash(	my %js_lt = &Apache::lonlocal::texthash(
p_mnf => 'Name of New Folder',	p_mnf => 'Name of New Folder',
t_mnf => 'New Folder',	t_mnf => 'New Folder',
Line 6805 sub editing_js {	Line 7805 sub editing_js {
p_mdb => 'Title for the Drop Box',	p_mdb => 'Title for the Drop Box',
p_mbb => 'Title for the Discussion Board',	p_mbb => 'Title for the Discussion Board',
p_mwp => 'Title for Web Page',	p_mwp => 'Title for Web Page',
	p_mnr => 'Title for the Resource',
p_mab => "Enter user:domain for User's Personal Information Page",	p_mab => "Enter user:domain for User's Personal Information Page",
p_mab2 => 'Personal Information Page of ',	p_mab2 => 'Personal Information Page of ',
p_mab_alrt1 => 'Not a valid user:domain',	p_mab_alrt1 => 'Not a valid user:domain',
Line 6823 sub editing_js {	Line 7824 sub editing_js {
p_ctr2b => '?',	p_ctr2b => '?',
p_ctr3a => 'Cut those',	p_ctr3a => 'Cut those',
p_ctr3b => 'items?',	p_ctr3b => 'items?',
	setal => 'Enter a (unique) alias',
	delal => 'Are you sure you want to eliminate the alias?',
rpck => 'Enter number to pick (e.g., 3)',	rpck => 'Enter number to pick (e.g., 3)',
imsfile => 'You must choose an IMS package for import',	imsfile => 'You must choose an IMS package for import',
imscms => 'You must select which Course Management System was the source of the IMS package',	imscms => 'You must select which Course Management System was the source of the IMS package',
Line 6833 sub editing_js {	Line 7836 sub editing_js {
noor => 'No actions selected or changes to settings specified.',	noor => 'No actions selected or changes to settings specified.',
noch => 'No changes to settings specified.',	noch => 'No changes to settings specified.',
noac => 'No actions selected.',	noac => 'No actions selected.',
	nofi => 'No file selected',
	tinc => 'Title in course',
	sunm => 'Sub-directory name',
edri => 'Editing rights unavailable for your current role.',	edri => 'Editing rights unavailable for your current role.',
	sele => 'Select',
	swit => 'Switch server required',
);	);

&js_escape(\%js_lt);	&js_escape(\%js_lt);
my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
my $docs_folderpath = &HTML::Entities::encode($env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.folderpath'},'<>&"');	my $docs_folderpath = &HTML::Entities::encode($env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.folderpath'},'<>&"');
Line 6846 sub editing_js {	Line 7853 sub editing_js {
my $backtourl;	my $backtourl;
my $toplevelmain = &escape(&default_folderpath($coursenum,$coursedom,$navmapref));	my $toplevelmain = &escape(&default_folderpath($coursenum,$coursedom,$navmapref));
my $toplevelsupp = &supplemental_base();	my $toplevelsupp = &supplemental_base();
	my $showfile_js = &Apache::loncommon::show_crsfiles_js();
	my @ids=&Apache::lonnet::current_machine_ids();
	my $machines_str = "'".join("','",@ids)."'";
if ($env{'docs.exit.'.$env{'request.course.id'}} =~ /^direct_(.+)$/) {	if ($env{'docs.exit.'.$env{'request.course.id'}} =~ /^direct_(.+)$/) {
my $caller = $1;	my $caller = $1;
if ($caller =~ /^supplemental/) {	if ($caller =~ /^supplemental/) {
Line 6895 sub editing_js {	Line 7904 sub editing_js {
if ($anchor ne '') {	if ($anchor ne '') {
$backtourl .= '#'.&HTML::Entities::encode($anchor,'<>&"');	$backtourl .= '#'.&HTML::Entities::encode($anchor,'<>&"');
}	}
$backtourl = &Apache::loncommon::escape_single($backtourl);	$backtourl = &Apache::loncommon::escape_single($backtourl);
} else {	} else {
$backtourl = '/adm/navmaps';	$backtourl = '/adm/navmaps';
}	}
Line 6903 sub editing_js {	Line 7912 sub editing_js {
} elsif ($env{'docs.exit.'.$env{'request.course.id'}} eq '/adm/menu') {	} elsif ($env{'docs.exit.'.$env{'request.course.id'}} eq '/adm/menu') {
$backtourl = '/adm/menu';	$backtourl = '/adm/menu';
} elsif ($supplementalflag) {	} elsif ($supplementalflag) {
$backtourl = '/adm/supplemental';	if (($env{'request.role.adv'}) \|\|
	(&Apache::lonnet::has_unhidden_suppfiles($coursenum,$coursedom))) {
	$backtourl = '/adm/supplemental';
	} else {
	$backtourl = '/adm/navmaps';
	}
} else {	} else {
$backtourl = '/adm/navmaps';	$backtourl = '/adm/navmaps';
}	}

my $fieldsets = "'ext','doc'";	my $fieldsets = "'doc'";
if ($posslti) {
$fieldsets .= ",'tool'";
}
unless ($main_container_page) {	unless ($main_container_page) {
$fieldsets .=",'ims'";	$fieldsets .=",'ims'";
}	}
	my $extfieldsets = "'ext'";
	if ($posslti) {
	$extfieldsets .= ",'tool'";
	}
if ($supplementalflag) {	if ($supplementalflag) {
$fieldsets = "'suppext','suppdoc'";	$fieldsets = "'suppdoc'";
	$extfieldsets = "'suppext'";
if ($posslti) {	if ($posslti) {
$fieldsets .= ",'supptool'";	$extfieldsets .= ",'supptool'";
}	}
}	}

Line 6968 function makewebpage(type) {	Line 7984 function makewebpage(type) {
formname = this.document.forms.newwebpage;	formname = this.document.forms.newwebpage;
}	}
if (title) {	if (title) {
var webpage = formname.importdetail.value;	var webpage = formname.importdetail.value;
formname.importdetail.value = encodeURIComponent(title)+'='+webpage;	formname.importdetail.value = encodeURIComponent(title)+'='+webpage;
formname.submit();	formname.submit();
}	}
Line 7035 function changename(folderpath,index,old	Line 8051 function changename(folderpath,index,old
}	}
}	}

	function setalias(folderpath,index) {
	var alias = prompt('$js_lt{"setal"}');
	if ((alias != null) && (alias != '')) {
	this.document.forms.aliasform.alias.value=alias;
	this.document.forms.aliasform.cmd.value='setalias_'+index;
	this.document.forms.aliasform.folderpath.value=folderpath;
	this.document.forms.aliasform.submit();
	}
	}

	function delalias(folderpath,index) {
	if (confirm('$js_lt{"delal"}')) {
	this.document.forms.aliasform.cmd.value='delalias_'+index;
	this.document.forms.aliasform.folderpath.value=folderpath;
	this.document.forms.aliasform.submit();
	}
	}

ENDNEWSCRIPT	ENDNEWSCRIPT
} else {	} else {
$jsmakefunctions = <<ENDNEWSCRIPT;	$jsmakefunctions = <<ENDNEWSCRIPT;
Line 7079 function changename() {	Line 8113 function changename() {
alert("$js_lt{'edri'}");	alert("$js_lt{'edri'}");
}	}

	function setalias() {
	alert("$js_lt{'edri'}");
	}

	function delalias() {
	alert("$js_lt{'edri'}");
	}

function makenew() {	function makenew() {
alert("$js_lt{'edri'}");	alert("$js_lt{'edri'}");
}	}
Line 7116 function toggleUpload(caller) {	Line 8158 function toggleUpload(caller) {
}	}
}	}
document.getElementById('upload'+blocks[i]+'form').style.display=disp;	document.getElementById('upload'+blocks[i]+'form').style.display=disp;
	}
	resize_scrollbox('contentscroll','1','1');
	return;
	}

	function toggleExternal(caller) {
	var blocks = Array($extfieldsets);
	for (var i=0; i<blocks.length; i++) {
	var disp = 'none';
	if (caller == blocks[i]) {
	var curr = document.getElementById('external'+caller+'form').style.display;
	if (curr == 'none') {
	disp='block';
	}
	}
	document.getElementById('external'+blocks[i]+'form').style.display=disp;
if ((caller == 'tool') \|\| (caller == 'supptool')) {	if ((caller == 'tool') \|\| (caller == 'supptool')) {
if (disp == 'block') {	if (disp == 'block') {
if (document.getElementById('LC_exttoolid')) {	if (document.getElementById('LC_exttoolid')) {
Line 7144 function toggleMap(caller) {	Line 8202 function toggleMap(caller) {
}	}
}	}
document.getElementById('importmapform').style.display=disp;	document.getElementById('importmapform').style.display=disp;
	if (disp == 'block') {
	if (document.getElementById('importcrsresform')) {
	if (document.getElementById('importcrsresform').style.display == 'block') {
	document.getElementById('importcrsresform').style.display = 'none';
	}
	}
	}
resize_scrollbox('contentscroll','1','1');	resize_scrollbox('contentscroll','1','1');
}	}
return;	return;
}	}

	function toggleCrsRes(caller) {
	var disp = 'none';
	if (document.getElementById('crsresform')) {
	if (caller == 'res') {
	var form = document.getElementById('crsresform');
	var curr = form.style.display;
	if (curr == 'none') {
	disp='block';
	document.courseresform.authorrole.selectedIndex = 0;
	document.courseresform.authorpath.selectedIndex = 0;
	document.courseresform.newresourceadd.selectedIndex = 0;
	populateDirSelects(form,'authorrole','authorpath',1,0,0);
	toggleNewInCourse(document.courseresform);
	if (document.getElementById('newresource')) {
	document.getElementById('newresource').style.display = 'none';
	}
	if (document.courseresform.newresusetemp.length) {
	document.courseresform.newresusetemp[0].checked = true;
	toggleWithTemplate(document.courseresform);
	}
	document.courseresform.newresourcename.value = '';
	}
	}
	if (document.courseresform.newsubdir.length) {
	for (var j=0; j<document.courseresform.newsubdir.length; j++) {
	if (document.courseresform.newsubdir[j].value == 0) {
	document.courseresform.newsubdir[j].checked = true;
	}
	break;
	}
	if (document.getElementById('newsubdirname')) {
	document.getElementById('newsubdirname').type = "hidden";
	document.getElementById('newsubdirname').value = "";
	}
	if (document.getElementById('newsubdir')) {
	document.getElementById('newsubdir').innerHTML = "";
	}
	}
	document.getElementById('crsresform').style.display=disp;
	resize_scrollbox('contentscroll','1','0');
	}
	return;
	}

	function toggleNewsubdir(form) {
	if (form.newsubdir.length) {
	for (var j=0; j<form.newsubdir.length; j++) {
	if (form.newsubdir[j].checked) {
	if (document.getElementById('newsubdirname')) {
	if (form.newsubdir[j].value == '1') {
	document.getElementById('newsubdirname').type = "text";
	if (document.getElementById('newsubdir')) {
	document.getElementById('newsubdir').innerHTML = '<br />$js_lt{'sunm'}';
	}
	} else {
	document.getElementById('newsubdirname').type = "hidden";
	document.getElementById('newsubdirname').value = "";
	document.getElementById('newsubdir').innerHTML = "";
	}
	}
	break;
	}
	}
	}
	}

	function toggleCrsResTitle() {
	if (document.getElementById('newresource')) {
	var selloc = document.courseresform.authorrole.options[document.courseresform.authorrole.selectedIndex].value;
	if (selloc == 'course') {
	document.getElementById('newresource').style.display = 'inline';
	document.courseresform.newresourceadd[0].checked = true;
	toggleNewInCourse(document.courseresform);
	} else {
	document.getElementById('newresource').style.display = 'none';
	}
	}
	if (document.getElementById('newstdproblem')) {
	if (document.courseresform.authorpath.options[document.courseresform.authorpath.selectedIndex].value == 'switch') {
	document.getElementById('newstdproblem').style.display = 'none';
	if (document.getElementById('stdprobswitch')) {
	document.getElementById('stdprobswitch').style.display = 'block';
	}
	} else {
	document.getElementById('newstdproblem').style.display = 'block';
	if (document.getElementById('stdprobswitch')) {
	document.getElementById('stdprobswitch').style.display = 'none';
	}
	}
	}
	}

	function toggleNewInCourse(form) {
	if (form.newresourceadd.length) {
	for (var i=0; i<form.newresourceadd.length; i++) {
	if (form.newresourceadd[i].checked) {
	if (document.getElementById('newresourcetitle')) {
	if (form.newresourceadd[i].value == '1') {
	document.getElementById('newresourcetitle').type = 'text';
	if (document.getElementById('newrestitle')) {
	document.getElementById('newrestitle').innerHTML = "<br />$js_lt{'tinc'}";
	}
	} else {
	document.getElementById('newresourcetitle').type = 'hidden';
	document.getElementById('newresourcetitle').value = '';
	if (document.getElementById('newrestitle')) {
	document.getElementById('newrestitle').innerHTML = '';
	}
	}
	}
	break;
	}
	}
	}
	}

	function toggleWithTemplate(form) {
	if (form.newresusetemp.length) {
	for (var i=0; i<form.newresusetemp.length; i++) {
	if (form.newresusetemp[i].checked) {
	if (document.getElementById('newrestemplate')) {
	if (form.newresusetemp[i].value == '1') {
	document.getElementById('newrestemplate').style.display = 'inline';
	toggleExampleText();
	} else {
	form.tempcategory.selectedIndex = 0;
	select1template_changed();
	document.getElementById('newrestemplate').style.display = 'none';
	}
	}
	}
	}
	}
	}

	function toggleExampleText() {
	if (document.getElementById('newresexample')) {
	var url = document.courseresform.template.options[document.courseresform.template.selectedIndex].value;
	if (url == '') {
	document.getElementById('newresexample').style.fontWeight = 'normal';
	} else {
	document.getElementById('newresexample').style.fontWeight = 'bold';
	}
	}
	}

	function getExample(width,height,scrolling,transparency) {
	var url;
	if (document.courseresform.newresusetemp.length) {
	for (var i=0; i<document.courseresform.newresusetemp.length; i++) {
	if (document.courseresform.newresusetemp[i].checked) {
	if (document.courseresform.newresusetemp[i].value == '1') {
	var url = document.courseresform.template.options[document.courseresform.template.selectedIndex].value;
	if (url == '') {
	alert('Pick a category and template');
	} else {
	url = url.replace("$londocroot","");
	url += '?inhibitmenu=yes';
	}
	}
	break;
	}
	}
	}
	if (url != '') {
	openMyModal(url,width,height,scrolling,transparency,'');
	}
	}

	function toggleImportCrsres(caller) {
	var disp = 'none';
	if (document.getElementById('importcrsresform')) {
	if (caller == 'res') {
	var curr = document.getElementById('importcrsresform').style.display;
	if (curr == 'none') {
	disp='block';
	populateCrsSelects(document.crsresimportform,'coursepath','coursefile',1,'',1,0,1,1,0);
	if ((document.getElementById('importcrsrescontent')) &&
	(document.getElementById('importcrsresempty'))) {
	var selelem = document.crsresimportform.elements['coursepath'];
	var numdirs = 0;
	if (selelem.options.length) {
	numdirs = selelem.options.length - 1;
	}
	if (numdirs) {
	document.getElementById('importcrsrescontent').style.display='block';
	document.getElementById('importcrsresempty').style.display='none';
	} else {
	document.getElementById('importcrsrescontent').style.display='none';
	document.getElementById('importcrsresempty').style.display='block';
	}
	}
	}
	}
	document.getElementById('importcrsresform').style.display=disp;
	if (disp == 'block') {
	if (document.getElementById('importmapform')) {
	if (document.getElementById('importmapform').style.display == 'block') {
	document.getElementById('importmapform').style.display = 'none';
	}
	}
	}
	resize_scrollbox('contentscroll','1','0');
	}
	return;
	}

	$showfile_js

	function populateDirSelects(form,locsel,dirsel,setdir,recurse,nonemptydir) {
	var location = form.elements[locsel].options[form.elements[locsel].selectedIndex].value;
	if ((setdir) && (dirsel != null) && (dirsel != 'undefined') && (dirsel != '')) {
	var selelem = form.elements[dirsel];
	var i, numfiles = selelem.options.length -1;
	if (numfiles >=0) {
	for (i = numfiles; i >= 0; i--) {
	selelem.remove(i);
	}
	}
	if ((location == '') \|\| (location == null) \|\| (location == 'undefined')) {
	if (selelem.options.length == 0) {
	selelem.options[selelem.options.length] = new Option('','');
	selelem.selectedIndex = 0;
	}
	if (document.getElementById('newstdproblem')) {
	document.getElementById('newstdproblem').style.display = 'none';
	}
	return;
	}
	var machineIds = new Array($machines_str);
	var athome = 0;
	var role = location;
	if ((location == 'author') \|\| (location == 'course')) {
	if (document.getElementById('rolehome_'+location)) {
	var currhome = document.getElementById('rolehome_'+location).value;
	if ((currhome != '') && (currhome != null) && (currhome != 'undefined')) {
	if (machineIds.includes(currhome)) {
	athome = 1;
	}
	}
	}
	} else {
	const roleinfo = location.split('___');
	role = encodeURIComponent(roleinfo[0]+'./'+roleinfo[1]);
	if (document.getElementById('rolehome_coauthor_'+roleinfo[1]+'_'+roleinfo[0])) {
	var currhome = document.getElementById('rolehome_coauthor_'+roleinfo[1]+'_'+roleinfo[0]).value;
	if ((currhome != '') && (currhome != null) && (currhome != 'undefined')) {
	if (machineIds.includes(currhome)) {
	athome = 1;
	}
	}
	}
	}
	var templateradio = document.courseresform.elements['newresusetemp'];
	if (athome) {
	if (document.getElementById('stdprobswitch')) {
	document.getElementById('stdprobswitch').style.display = 'none';
	}
	if (document.getElementById('newstdproblem')) {
	document.getElementById('newstdproblem').style.display = 'none';
	}
	var canedit = '$canedit';
	if (canedit) {
	if (templateradio.length > 1) {
	for (var i=0; i<templateradio.length; i++) {
	templateradio[i].disabled = false;
	}
	}
	document.courseresform.newresourcename.disabled = false;
	document.courseresform.newcrs.disabled = false;
	}
	var http = new XMLHttpRequest();
	var url = "/adm/courseauthor";
	var params = "role="+role+"&rec="+recurse+"&nonempty="+nonemptydir+"&addtop=1";
	http.open("POST", url, true);
	http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");
	http.onreadystatechange = function() {
	if (http.readyState == 4 && http.status == 200) {
	var data = JSON.parse(http.responseText);
	if (Array.isArray(data.dirs)) {
	var len = data.dirs.length;
	if (len) {
	if (len > 1) {
	selelem.options[selelem.options.length] = new Option('$js_lt{sele}','');
	}
	}
	if (len) {
	var j;
	for (j = 0; j < len; j++) {
	selelem.options[selelem.options.length] = new Option(data.dirs[j],data.dirs[j]);
	}
	selelem.selectedIndex = 0;
	if (len == 1) {
	toggleCrsResTitle();
	}
	}
	}
	}
	}
	http.send(params);
	} else {
	selelem.options[selelem.options.length] = new Option('$js_lt{swit}','switch');
	selelem.selectedIndex = 0;
	if (document.getElementById('stdprobswitch')) {
	document.getElementById('stdprobswitch').style.display = 'block';
	}
	if (document.getElementById('newstdproblem')) {
	document.getElementById('newstdproblem').style.display = 'none';
	}
	if (templateradio.length > 1) {
	for (var i=0; i<templateradio.length; i++) {
	templateradio[i].disabled = true;
	}
	}
	document.courseresform.newresourcename.disabled = true;
	document.courseresform.newcrs.disabled = true;
	}
	}
	return;
	}

	function switchForProb() {
	if (document.courseresform.authorpath.options[document.courseresform.authorpath.selectedIndex].value == 'switch') {
	var url = '/adm/switchserver?otherserver=';
	var newhostid = '';
	var role = '';
	var selloc = document.courseresform.authorrole.options[document.courseresform.authorrole.selectedIndex].value;
	if (selloc == 'author') {
	newhostid = document.courseresform.rolehome_author.value;
	role = "au./&js_escape($env{'user.domain'})/";
	} else if (selloc == 'course') {
	newhostid = document.courseresform.rolehome_course.value;
	role = "&js_escape($env{'request.role'})";
	} else {
	var items = new Array();
	items = selloc.split('___');
	var len = document.courseresform.rolehome_coauthor.length;
	if (null == len) {
	var currval = document.courseresform.rolehome_coauthor.value;
	if (null != currval) {
	var info = new Array();
	info = currval.split('=');
	newhostid = info[2];
	role = info[0]+'./'+info[1];
	}
	} else {
	for (var i=0; i<len; i++) {
	var currval = document.courseresform.rolehome_coauthor[i].value;
	if (null != currval) {
	var info = new Array();
	info = currval.split('=');
	if ((info[1] == items[1]+'/'+items[0]) && (info[0] == items[2])) {
	newhostid = info[2];
	role = info[0]+'./'+info[1];
	break;
	}
	}
	}
	}
	}
	if (newhostid != '') {
	url += newhostid;
	if (role != '') {
	url += '&role='+role;
	}
	document.location.href = url;
	}
	}
	return;
	}

function makeims(imsform) {	function makeims(imsform) {
if ((imsform.uploaddoc.value == '') \|\| (!imsform.uploaddoc.value)) {	if ((imsform.uploaddoc.value == '') \|\| (!imsform.uploaddoc.value)) {
alert("$js_lt{'imsfile'}");	alert("$js_lt{'imsfile'}");
Line 7455 for (i = 0; i < currentLis.length; i++)	Line 8891 for (i = 0; i < currentLis.length; i++)

function hideAll(current, nav, data) {	function hideAll(current, nav, data) {
unselectInactive(nav);	unselectInactive(nav);
if (current) {	if (current) {
if (current.className == 'right'){	if (current.className == 'right'){
current.className = 'right active'	current.className = 'right active'
} else {	} else {
current.className = 'active';	current.className = 'active';
}	}
}	}
currentData = document.getElementById(data);	currentData = document.getElementById(data);
Line 7497 function showPage(current, pageId, nav,	Line 8933 function showPage(current, pageId, nav,
unselectInactive(nav);	unselectInactive(nav);
if ((currstate == 'active') \|\| (currstate == 'right active')) {	if ((currstate == 'active') \|\| (currstate == 'right active')) {
if (currstate == 'active') {	if (currstate == 'active') {
current.className = '';	current.className = '';
} else {	} else {
current.className = 'right';	current.className = 'right';
}	}
activeTab = '';	activeTab = '';
	toggleExternal();
toggleUpload();	toggleUpload();
toggleMap();	toggleMap();
	toggleCrsRes();
	toggleImportCrsres();
resize_scrollbox('contentscroll','1','0');	resize_scrollbox('contentscroll','1','0');
return;	return;
} else {	} else {
Line 7512 function showPage(current, pageId, nav,	Line 8951 function showPage(current, pageId, nav,
currentData = document.getElementById(pageId);	currentData = document.getElementById(pageId);
currentData.style.display = 'block';	currentData.style.display = 'block';
activeTab = pageId;	activeTab = pageId;
	toggleExternal();
toggleUpload();	toggleUpload();
toggleMap();	toggleMap();
	toggleCrsRes();
	toggleImportCrsres();
if (nav == 'mainnav') {	if (nav == 'mainnav') {
var storedpath = "$docs_folderpath";	var storedpath = "$docs_folderpath";
var storedpage = "$main_container_page";	var storedpage = "$main_container_page";
Line 7877 function setBoxes(value) {	Line 9319 function setBoxes(value) {
return;	return;
}	}

	function validImportCrsRes() {
	var path = document.crsresimportform.coursepath.options[document.crsresimportform.coursepath.selectedIndex].value;
	var fname = document.crsresimportform.coursefile.options[document.crsresimportform.coursefile.selectedIndex].value;
	if ((fname == '') \|\| (fname == null)) {
	alert("$js_lt{'nofi'}");
	return false;
	}
	var url = '/res/$coursedom/$coursenum/';
	if (path && path != '/') {
	url += path+'/';
	}
	if (fname != '') {
	url += fname;
	}
	var title = document.crsresimportform.crsrestitle.value;
	document.crsresimportform.importdetail.value=encodeURIComponent(title)+'='+encodeURIComponent(url);
	return true;
	}

	function validateNewRes(caller) {
	if (caller == 'single') {
	var role = document.courseresform.authorrole.options[document.courseresform.authorrole.selectedIndex].value;
	var authorpath = document.courseresform.authorpath.options[document.courseresform.authorpath.selectedIndex].value;
	var resname = document.courseresform.newresourcename.value;
	}
	}

ENDSCRIPT	ENDSCRIPT
}	}

Line 8007 sub makesimpleeditform {	Line 9476 sub makesimpleeditform {
SIMPFORM	SIMPFORM
}	}

	sub makenewproblem {
	my ($r,$coursedom,$coursenum) = @_;
	# Creating a new problem
	my ($redirect,$error);
	if ($env{'form.authorrole'}) {
	my ($newsubdir,$filename);
	if ($env{'form.newsubdir'}) {
	if ($env{'form.newsubdirname'} ne '') {
	$newsubdir = $env{'form.newsubdirname'};
	}
	}
	if ($env{'form.newresourcename'}) {
	$filename = $env{'form.newresourcename'};
	$filename =~ s/\.(\d+)(\.\w+)$/$2/;
	$filename =~ s/`//g;
	$filename =~ s{/\.\./}{_}g;
	$filename =~ s/\.+/./g;
	$filename =~ s{/+}{_}g;
	if ($filename ne '') {
	my ($name,$ext) = ($filename =~ /(.+)\.([^.]+)$/);
	if (($ext) && ($ext ne '.problem')) {
	$filename = $name.'.problem';
	} elsif ($ext eq '') {
	$filename .= '.problem';
	}
	my $docroot = $r->dir_config('lonDocRoot');
	my @ids=&Apache::lonnet::current_machine_ids();
	if ($env{'form.authorrole'} eq 'author') {
	if ($env{'user.author'}) {
	if ($env{'user.home'} && grep(/^\Q$env{'user.home'}\E$/,@ids)) {
	my $url = "/priv/$env{'user.domain'}/$env{'user.name'}";
	my $path = $docroot.$url;
	my $subdir = $env{'form.authorpath'};
	$redirect = &finishnewprob($url,$path,$subdir,$newsubdir,$filename);
	}
	}
	} elsif ($env{'form.authorrole'} eq 'course') {
	my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
	if ($chome && grep(/^\Q$chome\E$/,@ids)) {
	my $url = "/priv/$coursedom/$coursenum";
	my $path=$docroot.$url;
	my $subdir = $env{'form.authorpath'};
	$redirect = &finishnewprob($url,$path,$subdir,$newsubdir,$filename);
	if ($redirect) {
	my $rightsfile = 'default.rights';
	my $sourcerights = "$path/$rightsfile";
	my $targetrights = $docroot."/res/$coursedom/$coursenum/$rightsfile";
	my $now = time;
	if (!-e $sourcerights) {
	my $cid = $coursedom.'_'.$coursenum;
	if (open(my $fh,">$sourcerights")) {
	print $fh <<END;
	<accessrule effect="deny" realm="" type="course" role="" />
	<accessrule effect="allow" realm="$cid" type="course" role="" />
	END
	close($fh);
	}
	}
	if (!-e "$sourcerights.meta") {
	if (open(my $fh,">$sourcerights.meta")) {
	my $author=$env{'environment.firstname'}.' '.
	$env{'environment.middlename'}.' '.
	$env{'environment.lastname'}.' '.
	$env{'environment.generation'};
	$author =~ s/\s+$//;
	print $fh <<"END";

	<abstract></abstract>
	<author>$author</author>
	<authorspace>$coursenum:$coursedom</authorspace>
	<copyright>private</copyright>
	<creationdate>$now</creationdate>
	<customdistributionfile></customdistributionfile>
	<dependencies></dependencies>
	<domain>$coursedom</domain>
	<highestgradelevel>0</highestgradelevel>
	<keywords></keywords>
	<language>notset </language>
	<lastrevisiondate>$now</lastrevisiondate>
	<lowestgradelevel>0</lowestgradelevel>
	<mime>rights</mime>
	<modifyinguser>$env{'user.name'}:$env{'user.domain'}</modifyinguser>
	<notes></notes>
	<obsolete></obsolete>
	<obsoletereplacement></obsoletereplacement>
	<owner>$coursenum:$coursedom</owner>
	<rule>deny:::course,allow:$cid::course</rule>
	<sourceavail></sourceavail>
	<standards></standards>
	<subject></subject>
	<title>Course Authoring Rights</title>
	END
	close($fh);
	}
	}
	if ((-e $sourcerights) && (-e "$sourcerights.meta")) {
	if (!-e "$docroot/res/$coursedom") {
	mkdir("$docroot/res/$coursedom",0755);
	}
	if (!-e "$docroot/res/$coursedom/$coursenum") {
	mkdir("$docroot/res/$coursedom/$coursenum",0755);
	}
	if ((-e "$docroot/res/$coursedom/$coursenum") && (!-e $targetrights)) {
	my $nokeyref = &Apache::lonpublisher::getnokey($r->dir_config('lonIncludes'));
	my $output = &Apache::lonpublisher::batchpublish($r,$sourcerights,$targetrights,$nokeyref,1);
	}
	}
	my $source = $docroot.$redirect;
	if (!-e "$source.meta") {
	my $cid = $coursedom.'_'.$coursenum;
	my $now = time;
	if (open(my $fh,">$source.meta")) {
	my $author=$env{'environment.firstname'}.' '.
	$env{'environment.middlename'}.' '.
	$env{'environment.lastname'}.' '.
	$env{'environment.generation'};
	$author =~ s/\s+$//;
	my $title = $env{'form.newresourcetitle'};
	$title =~ s/^\s+\|\s+$//g;
	print $fh <<END;

	<abstract></abstract>
	<author>$author</author>
	<authorspace>$coursenum:$coursedom</authorspace>
	<copyright>custom</copyright>
	<creationdate>$now</creationdate>
	<customdistributionfile>/res/$coursedom/$coursenum/default.rights</customdistributionfile>
	<dependencies></dependencies>
	<domain>$coursedom</domain>
	<highestgradelevel>0</highestgradelevel>
	<keywords></keywords>
	<language>notset </language>
	<lastrevisiondate>$now</lastrevisiondate>
	<lowestgradelevel>0</lowestgradelevel>
	<mime>problem</mime>
	<modifyinguser>$coursenum:$coursedom</modifyinguser>
	<notes></notes>
	<obsolete></obsolete>
	<obsoletereplacement></obsoletereplacement>
	<owner>$coursenum:$coursedom</owner>
	<sourceavail></sourceavail>
	<standards></standards>
	<subject></subject>
	<title>$title</title>
	END
	close($fh);
	}
	}
	}
	}
	} else {
	my ($auname,$audom,$role) = split('___',$env{'form.authorrole'});
	my $rolehome = &Apache::lonnet::homeserver($auname,$audom);
	if (grep(/^\Q$rolehome\E$/,@ids)) {
	my $now = time;
	if (exists($env{'user.role.'.$role.'./'.$audom.'/'.$auname})) {
	my ($start,$end) = split(/\./,$env{'user.role.'.$role.'./'.$audom.'/'.$auname});
	if (($start <= $now) && (($end == 0) \|\| ($end >= $now))) {
	my $url = "/priv/$audom/$auname";
	my $path = $r->dir_config('lonDocRoot').$url;
	my $subdir = $env{'form.authorpath'};
	$redirect = &finishnewprob($url,$path,$subdir,$newsubdir,$filename);
	}
	}
	}
	}
	}
	}
	}
	return ($redirect,$error);
	}

	sub finishnewprob {
	my ($url,$path,$subdir,$newsubdir,$filename,$context) = @_;
	unless (-d $path) {
	unless (mkdir($path,02770)) {
	return;
	}
	}
	my $redirect;
	if ($subdir ne '/') {
	$subdir = &cleandir($subdir);
	if (($subdir ne '') && (-d "$path/$subdir")) {
	$path .= "/$subdir";
	$url .= "/$subdir";
	}
	}
	my $dest;
	if ($newsubdir ne '') {
	$newsubdir = &cleandir($newsubdir);
	}
	if ($newsubdir ne '') {
	if (-d "$path/$newsubdir") {
	$dest = "$path/$newsubdir/$filename";
	} else {
	my $dirok;
	unless (-e "$path/$newsubdir") {
	if (mkdir("$path/$newsubdir",02770)) {
	if (chmod(02770,"$path/$newsubdir")) {
	$dirok = 1;
	}
	}
	}
	if ($dirok) {
	$dest = "$path/$newsubdir/$filename";
	}
	}
	if (($dest ne '') && (!-e $dest)) {
	$redirect = "$url/$newsubdir/$filename";
	}
	} else {
	$dest = "$path/$filename";
	if (($dest ne '') && (!-e $dest)) {
	$redirect = "$url/$filename";
	}
	}
	if ((!-e $dest) && ($context ne 'upload')) {
	my $template = $env{'form.template'};
	my $copyfrom;
	if ($template ne '') {
	my %templates;
	my @files = &Apache::lonhomework::get_template_list('problem');
	foreach my $poss (@files) {
	if (ref($poss) eq 'ARRAY') {
	if ($template eq $poss->[0]) {
	$templates{$template} = 1;
	last;
	}
	}
	}
	if ($templates{$template}) {
	$copyfrom = $template;
	}
	}
	if ($filename =~ /\.problem$/) {
	unless ($copyfrom) {
	$copyfrom = $Apache::lonnet::perlvar{'lonIncludes'}.'/templates/blank.problem';
	}
	&File::Copy::copy($copyfrom,$dest);
	}
	}
	return $redirect;
	}

	sub cleandir {
	my ($dir) = @_;
	$dir =~ s/^\s+//;
	$dir =~ s/\s+$//;
	$dir =~ s/\.+//g;
	$dir =~ s/[\#\?&%\":]//g;
	return $dir;
	}

1;	1;
__END__	__END__

Line 8106 check on this	Line 9828 check on this

Verify Content	Verify Content

=item devalidateversioncache()	=item devalidateversioncache()

=item checkversions()	=item checkversions()

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.484.2.93.2.7
changed lines
	Added in v.1.706