loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.484.2.63 and 1.563

version 1.484.2.63, 2016/08/06 20:00:29	version 1.563, 2013/09/01 03:01:13
Line 41 use Apache::lonclonecourse;	Line 41 use Apache::lonclonecourse;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
use Apache::lonnavdisplay();	use Apache::lonnavdisplay();
use Apache::lonextresedit();	use Apache::lonextresedit();
use Apache::lontemplate();
use Apache::lonsimplepage();
use HTML::Entities;	use HTML::Entities;
use HTML::TokeParser;	use HTML::TokeParser;
use GDBM_File;	use GDBM_File;
use File::MMagic;
use Apache::lonlocal;	use Apache::lonlocal;
use Cwd;	use Cwd;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
Line 144 sub clean {	Line 141 sub clean {
sub dumpcourse {	sub dumpcourse {
my ($r) = @_;	my ($r) = @_;
my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
my ($starthash,$js);	$r->print(&Apache::loncommon::start_page('Dump '.$crstype.' Content to Authoring Space')."\n".
unless (($env{'form.authorspace'}) && ($env{'form.authorfolder'}=~/\w/)) {	&Apache::lonhtmlcommon::breadcrumbs('Dump '.$crstype.' Content to Authoring Space')."\n");
$js = <<"ENDJS";
<script type="text/javascript">
// <![CDATA[

function hide_searching() {
if (document.getElementById('searching')) {
document.getElementById('searching').style.display = 'none';
}
return;
}

// ]]>
</script>
ENDJS
$starthash = {
add_entries => {'onload' => "hide_searching();"},
};
}
$r->print(&Apache::loncommon::start_page('Copy '.$crstype.' Content to Authoring Space',$js,$starthash)."\n".
&Apache::lonhtmlcommon::breadcrumbs('Copy '.$crstype.' Content to Authoring Space')."\n");
$r->print(&startContentScreen('tools'));	$r->print(&startContentScreen('tools'));
my ($home,$other,%outhash)=&authorhosts();	my ($home,$other,%outhash)=&authorhosts();
unless ($home) {	unless ($home) {
Line 184 ENDJS	Line 161 ENDJS
$r->print('<h3>'.&mt('Copying Files').'</h3>');	$r->print('<h3>'.&mt('Copying Files').'</h3>');
my $title=$env{'form.authorfolder'};	my $title=$env{'form.authorfolder'};
$title=&clean($title);	$title=&clean($title);
my ($navmap,$errormsg) =	my %replacehash=();
&Apache::loncourserespicker::get_navmap_object($crstype,'dumpdocs');	foreach my $key (keys(%env)) {
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	if ($key=~/^form\.namefor\_(.+)/) {
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$replacehash{$1}=$env{$key};
my (%maps,%resources,%titles);	}
if (!ref($navmap)) {	}
$r->print($errormsg.
&endContentScreen());
return '';
} else {
&Apache::loncourserespicker::enumerate_course_contents($navmap,\%maps,\%resources,\%titles,
'dumpdocs',$cdom,$cnum);
}
my @todump = &Apache::loncommon::get_env_multiple('form.archive');
my (%tocopy,%replacehash,%lookup,%deps,%display,%result,%depresult,%simpleproblems,%simplepages,
%newcontent,%has_simpleprobs);
foreach my $item (sort {$a <=> $b} (@todump)) {
my $name = $env{'form.namefor_'.$item};
if ($resources{$item}) {
my ($map,$id,$res) = &Apache::lonnet::decode_symb($resources{$item});
if ($res =~ m{^uploaded/$cdom/$cnum/\E((?:docs\|supplemental)/.+)$}) {
$tocopy{$1} = $name;
$display{$item} = $1;
$lookup{$1} = $item;
} elsif ($res eq 'lib/templates/simpleproblem.problem') {
$simpleproblems{$item} = {
symb => $resources{$item},
name => $name,
};
$display{$item} = 'simpleproblem_'.$name;
if ($map =~ m{^\Quploaded/$cdom/$cnum/\E(.+)$}) {
$has_simpleprobs{$1}{$id} = $item;
}
} elsif ($res =~ m{^adm/$match_domain/$match_username/(\d+)/smppg}) {
my $marker = $1;
my $db_name = &Apache::lonsimplepage::get_db_name($res,$marker,$cdom,$cnum);
$simplepages{$item} = {
res => $res,
title => $titles{$item},
db => $db_name,
marker => $marker,
symb => $resources{$item},
name => $name,
};
$display{$item} = '/'.$res;
}
} elsif ($maps{$item}) {
if ($maps{$item} =~ m{^\Quploaded/$cdom/$cnum/\E((?:default\|supplemental)_\d+\.(?:sequence\|page))$}) {
$tocopy{$1} = $name;
$display{$item} = $1;
$lookup{$1} = $item;
}
} else {
next;
}
}
my $crs='/uploaded/'.$env{'request.course.id'}.'/';	my $crs='/uploaded/'.$env{'request.course.id'}.'/';
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
my $mm = new File::MMagic;	foreach my $item (keys(%replacehash)) {
my $prefix = "/uploaded/$cdom/$cnum/";	my $newfilename=$title.'/'.$replacehash{$item};
%replacehash = %tocopy;	$newfilename=~s/\.(\w+)$//;
foreach my $item (sort(keys(%simpleproblems))) {	my $ext=$1;
my $content = &Apache::imsexport::simpleproblem($simpleproblems{$item}{'symb'});	$newfilename=&clean($newfilename);
$newcontent{$display{$item}} = $content;	$newfilename.='.'.$ext;
}	my @dirs=split(/\//,$newfilename);
my $gateway = Apache::lonhtmlgateway->new('web');	my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca";
foreach my $item (sort(keys(%simplepages))) {	my $makepath=$path;
if (ref($simplepages{$item}) eq 'HASH') {	my $fail=0;
my $pagetitle = $simplepages{$item}{'title'};	for (my $i=0;$i<$#dirs;$i++) {
my %fields = &Apache::lonnet::dump($simplepages{$item}{'db'},$cdom,$cnum);	$makepath.='/'.$dirs[$i];
my %contents;	unless (-e $makepath) {
foreach my $field (keys(%fields)) {	unless(mkdir($makepath,0777)) { $fail=1; }
if ($field =~ /^(?:aaa\|bbb\|ccc)_(\w+)$/) {	}
my $name = $1;	}
my $msg = $fields{$field};	$r->print('<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ');
if ($name eq 'webreferences') {	if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
if ($msg =~ m{^https?://}) {	if ($item=~/\.(sequence\|page\|html\|htm\|xml\|xhtml)$/) {
$contents{$name} = '<a href="'.$msg.'"><tt>'.$msg.'</tt></a>';	print $fh &Apache::lonclonecourse::rewritefile(
}	&Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
} else {	(%replacehash,$crs => '')
$msg = &Encode::decode('utf8',$msg);	);
$msg = $gateway->process_outgoing_html($msg,1);	} else {
$contents{$name} = $msg;	print $fh
}	&Apache::lonclonecourse::readfile($env{'request.course.id'},$item);
} elsif ($field eq 'uploaded.photourl') {	}
my $marker = $simplepages{$item}{marker};	$fh->close();
if ($fields{$field} =~ m{^\Q$prefix\E(simplepage/$marker/.+)$}) {	} else {
my $filepath = $1;	$fail=1;
my ($relpath,$fname) = ($filepath =~ m{^(.+/)([^/]+)$});	}
if ($fname ne '') {	if ($fail) {
$fname=~s/\.(\w+)$//;	$r->print('<span class="LC_error">'.&mt('fail').'</span>');
my $ext=$1;	} else {
$fname = &clean($fname);	$r->print('<span class="LC_success">'.&mt('ok').'</span>');
$fname.='.'.$ext;	}
$contents{image} = '<img src="'.$relpath.$fname.'" alt="Image" />';	}
$replacehash{$filepath} = $relpath.$fname;
$deps{$item}{$filepath} = 1;
}
}
}
}
$replacehash{'/'.$simplepages{$item}{'res'}} = $simplepages{$item}{'name'};
$lookup{'/'.$simplepages{$item}{'res'}} = $item;
my $content = '
<html>
<head>
<title>'.$pagetitle.'</title>
</head>
<body bgcolor="#ffffff">';
if ($contents{title}) {
$content .= "\n".'<h2>'.$contents{title}.'</h2>';
}
if ($contents{image}) {
$content .= "\n".$contents{image};
}
if ($contents{content}) {
$content .= '
<div class="LC_Box">
<h4 class="LC_hcell">'.&mt('Content').'</h4>'.
$contents{content}.'
</div>';
}
if ($contents{webreferences}) {
$content .= '
<div class="LC_Box">
<h4 class="LC_hcell">'.&mt('Web References').'</h4>'.
$contents{webreferences}.'
</div>';
}
$content .= '
</body>
</html>
';
$newcontent{'/'.$simplepages{$item}{res}} = $content;
}
}
foreach my $item (keys(%tocopy)) {
unless ($item=~/\.(sequence\|page)$/) {
my $currurlpath = $prefix.$item;
my $currdirpath = &Apache::lonnet::filelocation('',$currurlpath);
&recurse_html($mm,$prefix,$currdirpath,$currurlpath,$item,$lookup{$item},\%replacehash,\%deps);
}
}
foreach my $num (sort {$a <=> $b} (@todump)) {
my $src = $display{$num};
next if ($src eq '');
my @needcopy = ();
if ($replacehash{$src}) {
push(@needcopy,$src);
if (ref($deps{$num}) eq 'HASH') {
foreach my $dep (sort(keys(%{$deps{$num}}))) {
if ($replacehash{$dep}) {
push(@needcopy,$dep);
}
}
}
} elsif ($src =~ /^simpleproblem_/) {
push(@needcopy,$src);
}
next if (@needcopy == 0);
my ($result,$depresult);
for (my $i=0; $i<@needcopy; $i++) {
my $item = $needcopy[$i];
my $newfilename;
if ($simpleproblems{$num}) {
$newfilename=$title.'/'.$simpleproblems{$num}{'name'};
} else {
$newfilename=$title.'/'.$replacehash{$item};
}
$newfilename=~s/\.(\w+)$//;
my $ext=$1;
$newfilename=&clean($newfilename);
$newfilename.='.'.$ext;
my ($newrelpath) = ($newfilename =~ m{^\Q$title/\E(.+)$});
if ($newrelpath ne $replacehash{$item}) {
$replacehash{$item} = $newrelpath;
}
my @dirs=split(/\//,$newfilename);
my $path=$r->dir_config('lonDocRoot')."/priv/$cd/$ca";
my $makepath=$path;
my $fail;
my $origin;
for (my $i=0;$i<$#dirs;$i++) {
$makepath.='/'.$dirs[$i];
unless (-e $makepath) {
unless(mkdir($makepath,0755)) {
$fail = &mt('Directory creation failed.');
}
}
}
if ($i == 0) {
$result = '<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ';
} else {
$depresult .= '<li><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt> '.
'<span class="LC_fontsize_small" style="font-weight: bold;">'.
&mt('(dependency)').'</span>: ';
}
if (-e $path.'/'.$newfilename) {
$fail = &mt('Destination already exists -- not overwriting.');
} else {
if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
if (($item =~ m{^/adm/$match_domain/$match_username/\d+/smppg}) \|\|
($item =~ /^simpleproblem_/)) {
print $fh $newcontent{$item};
} else {
my $fileloc = &Apache::lonnet::filelocation('',$prefix.$item);
if (-e $fileloc) {
if ($item=~/\.(sequence\|page\|html\|htm\|xml\|xhtml)$/) {
if ((($1 eq 'sequence') \|\| ($1 eq 'page')) &&
(ref($has_simpleprobs{$item}) eq 'HASH')) {
my %changes = %{$has_simpleprobs{$item}};
my $content = &Apache::lonclonecourse::rewritefile(
&Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
(%replacehash,$crs => '')
);
my $updatedcontent = '';
my $parser = HTML::TokeParser->new(\$content);
$parser->attr_encoded(1);
while (my $token = $parser->get_token) {
if ($token->[0] eq 'S') {
if (($token->[1] eq 'resource') &&
($token->[2]->{'src'} eq '/res/lib/templates/simpleproblem.problem') &&
($changes{$token->[2]->{'id'}})) {
my $id = $token->[2]->{'id'};
$updatedcontent .= '<'.$token->[1];
foreach my $attrib (@{$token->[3]}) {
next unless ($attrib =~ /^(src\|type\|title\|id)$/);
if ($attrib eq 'src') {
my ($file) = ($display{$changes{$id}} =~ /^\Qsimpleproblem_\E(.+)$/);
if ($file) {
$updatedcontent .= ' '.$attrib.'="'.$file.'"';
} else {
$updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';
}
} else {
$updatedcontent .= ' '.$attrib.'="'.$token->[2]->{$attrib}.'"';
}
}
$updatedcontent .= ' />'."\n";
} else {
$updatedcontent .= $token->[4]."\n";
}
} else {
$updatedcontent .= $token->[2];
}
}
print $fh $updatedcontent;
} else {
print $fh &Apache::lonclonecourse::rewritefile(
&Apache::lonclonecourse::readfile($env{'request.course.id'},$item),
(%replacehash,$crs => '')
);
}
} else {
print $fh
&Apache::lonclonecourse::readfile($env{'request.course.id'},$item);
}
} else {
$fail = &mt('Source does not exist.');
}
}
$fh->close();
} else {
$fail = &mt('Could not write to destination.');
}
}
my $text;
if ($fail) {
$text = '<span class="LC_error">'.&mt('fail').(' 'x3).$fail.'</span>';
} else {
$text = '<span class="LC_success">'.&mt('ok').'</span>';
}
if ($i == 0) {
$result .= $text;
} else {
$depresult .= $text.'</li>';
}
}
$r->print($result);
if ($depresult) {
$r->print('<ul>'.$depresult.'</ul>');
}
}
} else {	} else {
my ($navmap,$errormsg) =	$r->print(&mt('Searching ...').'<br />');
&Apache::loncourserespicker::get_navmap_object($crstype,'dumpdocs');	$r->rflush();
if (!ref($navmap)) {	# Input form
$r->print($errormsg);	$r->print('<form name="dumpdoc" action="" method="post">'."\n");
} else {	unless ($home==1) {
$r->print('<div id="searching">'.&mt('Searching ...').'</div>');	$r->print('<div class="LC_left_float">'.
$r->rflush();	'<fieldset><legend>'.
my ($preamble,$formname);	&mt('Select the Authoring Space').
$formname = 'dumpdoc';	'</legend><select name="authorspace">');
unless ($home==1) {	}
$preamble = '<div class="LC_left_float">'.	foreach my $key (sort(keys(%outhash))) {
'<fieldset><legend>'.	if ($key=~/^home_(.+)$/) {
&mt('Select the Authoring Space').	if ($home==1) {
'</legend><select name="authorspace">';	$r->print(
}	'<input type="hidden" name="authorspace" value="'.$1.'" />');
my @orderspaces = ();	} else {
foreach my $key (sort(keys(%outhash))) {	$r->print('<option value="'.$1.'">'.$1.' - '.
if ($key=~/^home_(.+)$/) {	&Apache::loncommon::plainname(split(/\:/,$1)).'</option>');
if ($1 eq $env{'user.name'}.':'.$env{'user.domain'}) {	}
unshift(@orderspaces,$1);	}
} else {	}
push(@orderspaces,$1);	unless ($home==1) {
}	$r->print('</select></fieldset></div>'."\n");
}	}
}	my $title=$origcrsdata{'description'};
if ($home>1) {	$title=~s/[\/\s]+/\_/gs;
$preamble .= '<option value="" selected="selected">'.&mt('Select').'</option>';	$title=&clean($title);
}	$r->print('<div class="LC_left_float">'.
foreach my $user (@orderspaces) {	'<fieldset><legend>'.&mt('Folder in Authoring Space').'</legend>'.
if ($home==1) {	'<input type="text" size="50" name="authorfolder" value="'.
$preamble .= '<input type="hidden" name="authorspace" value="'.$user.'" />';	$title.'" />'.
} else {	'</fieldset></div><br clear="all" />'."\n");
$preamble .= '<option value="'.$user.'">'.$user.' - '.	&tiehash();
&Apache::loncommon::plainname(split(/\:/,$user)).'</option>';	$r->print('<h4>'.&mt('Filenames in Authoring Space').'</h4>'
}	.&Apache::loncommon::start_data_table()
}	.&Apache::loncommon::start_data_table_header_row()
unless ($home==1) {	.'<th>'.&mt('Internal Filename').'</th>'
$preamble .= '</select></fieldset></div>'."\n";	.'<th>'.&mt('Title').'</th>'
}	.'<th>'.&mt('Save as ...').'</th>'
my $title=$origcrsdata{'description'};	.&Apache::loncommon::end_data_table_header_row());
$title=~s/[\/\s]+/\_/gs;	foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {
$title=&clean($title);	$r->print(&Apache::loncommon::start_data_table_row()
$preamble .= '<div class="LC_left_float">'.	.'<td>'.$file.'</td>');
'<fieldset><legend>'.&mt('Folder in Authoring Space').'</legend>'.	my ($ext)=($file=~/\.(\w+)$/);
'<input type="text" size="50" name="authorfolder" value="'.	my $title=$hash{'title_'.$hash{
$title.'" />'.	'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};
'</fieldset></div><div style="padding:0;clear:both;margin:0;border:0"></div>'."\n";	$r->print('<td>'.($title?$title:' ').'</td>');
my %uploadedfiles;	if (!$title) {
&tiehash();	$title=$file;
foreach my $file (&Apache::lonclonecourse::crsdirlist($origcrsid,'userfiles')) {	} else {
my ($ext)=($file=~/\.(\w+)$/);	$title=~s\|/\|_\|g;
# FIXME Check supplemental here	}
my $title=$hash{'title_'.$hash{	$title=~s/\.(\w+)$//;
'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$file}};	$title=&clean($title);
if (!$title) {	$title.='.'.$ext;
$title=$file;	$r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"
} else {	.&Apache::loncommon::end_data_table_row());
$title=~s\|/\|_\|g;	}
}	$r->print(&Apache::loncommon::end_data_table());
$title=~s/\.(\w+)$//;	&untiehash();
$title=&clean($title);	$r->print(
$title.='.'.$ext;	'<p><input type="submit" name="dumpcourse" value="'.&mt("Dump $crstype Content").'" /></p></form>');
# $r->print("\n<td><input type='text' size='60' name='namefor_".$file."' value='".$title."' /></td>"
$uploadedfiles{$file} = $title;
}
&untiehash();
$r->print(&Apache::loncourserespicker::create_picker($navmap,'dumpdocs',$formname,$crstype,undef,
undef,undef,$preamble,$home,\%uploadedfiles));
}
}	}
$r->print(&endContentScreen());	$r->print(&endContentScreen());
}	}

sub recurse_html {
my ($mm,$prefix,$currdirpath,$currurlpath,$container,$item,$replacehash,$deps) = @_;
return unless ((ref($replacehash) eq 'HASH') && (ref($deps) eq 'HASH'));
my (%allfiles,%codebase);
if (&Apache::lonnet::extract_embedded_items($currdirpath,\%allfiles,\%codebase) eq 'ok') {
if (keys(%allfiles)) {
foreach my $dependency (keys(%allfiles)) {
next if (($dependency =~ m{^/(res\|adm)/}) \|\| ($dependency =~ m{^https?://}));
my ($depurl,$relfile,$newcontainer);
if ($dependency =~ m{^/}) {
if ($dependency =~ m{^\Q$currurlpath/\E(.+)$}) {
$relfile = $1;
if ($dependency =~ m{^\Q$prefix\E(.+)$}) {
$newcontainer = $1;
next if ($replacehash->{$newcontainer});
}
$depurl = $dependency;
} else {
next;
}
} else {
$relfile = $dependency;
$depurl = $currurlpath;
$depurl =~ s{[^/]+$}{};
$depurl .= $dependency;
($newcontainer) = ($depurl =~ m{^\Q$prefix\E(.+)$});
}
next if ($relfile eq '');
my $newname = $replacehash->{$container};
$newname =~ s{[^/]+$}{};
$replacehash->{$newcontainer} = $newname.$relfile;
$deps->{$item}{$newcontainer} = 1;
my ($newurlpath) = ($depurl =~ m{^(.*)/[^/]+$});
my $depfile = &Apache::lonnet::filelocation('',$depurl);
my $type = $mm->checktype_filename($depfile);
if ($type eq 'text/html') {
&recurse_html($mm,$prefix,$depfile,$newurlpath,$newcontainer,$item,$replacehash,$deps);
}
}
}
}
return;
}

sub group_import {	sub group_import {
my ($coursenum, $coursedom, $folder, $container, $caller, @files) = @_;	my ($coursenum, $coursedom, $folder, $container, $caller, @files) = @_;
my ($donechk,$allmaps,%hierarchy,%titles,%addedmaps,%removefrommap,	my ($donechk,$allmaps,%hierarchy,%titles,%addedmaps,%removefrommap,
Line 652 sub group_import {	Line 340 sub group_import {
} else {	} else {
$fname =~ s/\W/_/g;	$fname =~ s/\W/_/g;
}	}
if (length($fname) > 15) {	if (length($fname > 15)) {
$fname = substr($fname,0,14);	$fname = substr($fname,0,14);
}	}
my $initialtext = &mt('Replace with your own content.');	my $initialtext = &mt('Replace with your own content.');
Line 667 $initialtext	Line 355 $initialtext
</html>	</html>
END	END
$env{'form.output'}=$newhtml;	$env{'form.output'}=$newhtml;
my $result =	my $result =
&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,	&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,
'output',	'output',
"$filepath/$residx/$fname.html");	"$filepath/$residx/$fname.html");
Line 692 END	Line 380 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 977 sub docs_change_log {	Line 665 sub docs_change_log {

sub update_paste_buffer {	sub update_paste_buffer {
my ($coursenum,$coursedom,$folder) = @_;	my ($coursenum,$coursedom,$folder) = @_;
my (@possibles,%removals,%cuts,$output);	my (@possibles,%removals,%cuts);
if ($env{'form.multiremove'}) {	if ($env{'form.multiremove'}) {
$env{'form.multiremove'} =~ s/,$//;	$env{'form.multiremove'} =~ s/,$//;
map { $removals{$_} = 1; } split(/,/,$env{'form.multiremove'});	map { $removals{$_} = 1; } split(/,/,$env{'form.multiremove'});
Line 1024 sub update_paste_buffer {	Line 712 sub update_paste_buffer {
my $url = $env{'docs.markedcopy_url_'.$suffix};	my $url = $env{'docs.markedcopy_url_'.$suffix};
if (($cid =~ /^$match_domain(?:_)$match_courseid$/) &&	if (($cid =~ /^$match_domain(?:_)$match_courseid$/) &&
($url ne '')) {	($url ne '')) {
$pasteurls{$cid.'_'.$url} = 1;	$pasteurls{$cid.'_'.$url};
}	}
}	}
}	}
Line 1045 sub update_paste_buffer {	Line 733 sub update_paste_buffer {
next if (exists($pasteurls{$coursedom.'_'.$coursenum.'_'.$url}));	next if (exists($pasteurls{$coursedom.'_'.$coursenum.'_'.$url}));
my ($suffix,$errortxt,$locknotfreed) =	my ($suffix,$errortxt,$locknotfreed) =
&new_timebased_suffix($env{'user.domain'},$env{'user.name'},'paste');	&new_timebased_suffix($env{'user.domain'},$env{'user.name'},'paste');
if ($suffix ne '') {	push(@newpaste,$suffix);
push(@newpaste,$suffix);	if ($locknotfreed) {
} else {	return $locknotfreed;
if ($locknotfreed) {	last;
return $locknotfreed;
}
}	}
if (&is_supplemental_title($title)) {	if (&is_supplemental_title($title)) {
&Apache::lonnet::appenv({'docs.markedcopy_supplemental_'.$suffix => $title});	&Apache::lonnet::appenv({'docs.markedcopy_supplemental_'.$suffix => $title});
Line 1084 sub update_paste_buffer {	Line 770 sub update_paste_buffer {
}	}
}	}
}	}
if ($locknotfreed) {
$output = $locknotfreed;
last;
}
}	}
if (@newpaste) {	if (@newpaste) {
$addtoenv{'docs.markedcopies'} = join(',',(@currpaste,@newpaste));	$addtoenv{'docs.markedcopies'} = join(',',(@currpaste,@newpaste));
}	}
&Apache::lonnet::appenv(\%addtoenv);	&Apache::lonnet::appenv(\%addtoenv);
delete($env{'form.markcopy'});	delete($env{'form.markcopy'});
return $output;
}	}

sub recurse_uploaded_maps {	sub recurse_uploaded_maps {
Line 1132 sub print_paste_buffer {	Line 813 sub print_paste_buffer {

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

# Construct identifiers for current contents of user's paste buffer	# Construct identifiers for current contents of user's paste buffer
foreach my $suffix (@currpaste) {	foreach my $suffix (@currpaste) {
Line 1141 sub print_paste_buffer {	Line 821 sub print_paste_buffer {
my $url = $env{'docs.markedcopy_url_'.$suffix};	my $url = $env{'docs.markedcopy_url_'.$suffix};
if (($cid =~ /^$match_domain\_$match_courseid$/) &&	if (($cid =~ /^$match_domain\_$match_courseid$/) &&
($url ne '')) {	($url ne '')) {
$clipboardcount ++;
my ($is_external,$othercourse,$fromsupp,$is_uploaded_map,$parent,	my ($is_external,$othercourse,$fromsupp,$is_uploaded_map,$parent,
$canpaste,$nopaste,$othercrs,$areachange);	$canpaste,$nopaste,$othercrs,$areachange);
my $extension = (split(/\./,$env{'docs.markedcopy_url_'.$suffix}))[-1];	my $extension = (split(/\./,$env{'docs.markedcopy_url_'.$suffix}))[-1];
Line 1197 sub print_paste_buffer {	Line 876 sub print_paste_buffer {
$icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));	$icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));
$icon .= '/navmap.folder.closed.gif';	$icon .= '/navmap.folder.closed.gif';
}	}
my $title = $env{'docs.markedcopy_title_'.$suffix};
if ($title eq '') {
($title) = ($url =~ m{/([^/]+)$});
}
$buffer = '<img src="'.$icon.'" alt="" class="LC_icon" />'.	$buffer = '<img src="'.$icon.'" alt="" class="LC_icon" />'.
': '.	': '.
&Apache::loncommon::parse_supplemental_title(	&Apache::loncommon::parse_supplemental_title(
&LONCAPA::map::qtescape($title));	&LONCAPA::map::qtescape($env{'docs.markedcopy_title_'.$suffix}));
}	}
$pasteitems .= '<div class="LC_left_float">';	$pasteitems .= '<div class="LC_left_float">';
my ($options,$onclick);	my ($options,$onclick);
Line 1239 sub print_paste_buffer {	Line 914 sub print_paste_buffer {
$pasteitems .= '<div style="padding:0;clear:both;margin:0;border:0"></div>';	$pasteitems .= '<div style="padding:0;clear:both;margin:0;border:0"></div>';
$form_start = '<form name="pasteform" action="/adm/coursedocs" method="post" onsubmit="return validateClipboard();">';	$form_start = '<form name="pasteform" action="/adm/coursedocs" method="post" onsubmit="return validateClipboard();">';
if (@pasteable) {	if (@pasteable) {
my $value = &mt('Paste to current folder');	$buttons = '<input type="submit" name="pastemarked" value="'.&mt('Paste selected').'" />'.(' 'x2);
if ($container eq 'page') {
$value = &mt('Paste to current page');
}
$buttons = '<input type="submit" name="pastemarked" value="'.$value.'" />'.(' 'x2);
}
$buttons .= '<input type="submit" name="clearmarked" value="'.&mt('Clear selected').'" />'.(' 'x2);
if ($clipboardcount > 1) {
$buttons .=
'<span style="text-decoration:line-through">'.(' 'x20).'</span>'.(' 'x2).
'<input type="button" name="checkallclip" value="'.&mt('Check all').'" style="height:20px;" onclick="checkClipboard();" />'.
(' 'x2).
'<input type="button" name="uncheckallclip" value="'.&mt('Uncheck all').'" style="height:20px;" onclick="uncheckClipboard();" />'.
(' 'x2);
}	}
$form_end = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />'.	$buttons .= '<input type="submit" name="clearmarked" value="'.&mt('Clear selected').'" />'.
'</form>';	'<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
	$form_end = '</form>';
} else {	} else {
$pasteitems = &mt('Clipboard is empty');	$pasteitems = &mt('Clipboard is empty');
}	}
Line 1353 sub supp_pasteable {	Line 1016 sub supp_pasteable {
}	}

sub paste_popup_js {	sub paste_popup_js {
my %html_js_lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
show => 'Show Options',	show => 'Show Options',
hide => 'Hide Options',	hide => 'Hide Options',
);
my %js_lt = &Apache::lonlocal::texthash(
none => 'No items selected from clipboard.',	none => 'No items selected from clipboard.',
);	);
&html_escape(\%html_js_lt);
&js_escape(\%html_js_lt);
&js_escape(\%js_lt);
return <<"END";	return <<"END";

function showPasteOptions(suffix) {	function showPasteOptions(suffix) {
document.getElementById('pasteoptions_'+suffix).style.display='block';	document.getElementById('pasteoptions_'+suffix).style.display='block';
document.getElementById('pasteoptionstext_'+suffix).innerHTML = '    <a href="javascript:hidePasteOptions(\\''+suffix+'\\');" class="LC_menubuttons_link">$html_js_lt{'hide'}</a>';	document.getElementById('pasteoptionstext_'+suffix).innerHTML = '    <a href="javascript:hidePasteOptions(\\''+suffix+'\\');" class="LC_menubuttons_link">$lt{'hide'}</a>';
return;	return;
}	}

function hidePasteOptions(suffix) {	function hidePasteOptions(suffix) {
document.getElementById('pasteoptions_'+suffix).style.display='none';	document.getElementById('pasteoptions_'+suffix).style.display='none';
document.getElementById('pasteoptionstext_'+suffix).innerHTML ='    <a href="javascript:showPasteOptions(\\''+suffix+'\\')" class="LC_menubuttons_link">$html_js_lt{'show'}</a>';	document.getElementById('pasteoptionstext_'+suffix).innerHTML ='    <a href="javascript:showPasteOptions(\\''+suffix+'\\')" class="LC_menubuttons_link">$lt{'show'}</a>';
return;	return;
}	}

function showOptions(caller,suffix) {	function showOptions(caller,suffix) {
if (document.getElementById('pasteoptionstext_'+suffix)) {	if (document.getElementById('pasteoptionstext_'+suffix)) {
if (caller.checked) {	if (caller.checked) {
document.getElementById('pasteoptionstext_'+suffix).innerHTML ='    <a href="javascript:showPasteOptions(\\''+suffix+'\\')" class="LC_menubuttons_link">$html_js_lt{'show'}</a>';	document.getElementById('pasteoptionstext_'+suffix).innerHTML ='    <a href="javascript:showPasteOptions(\\''+suffix+'\\')" class="LC_menubuttons_link">$lt{'show'}</a>';
} else {	} else {
document.getElementById('pasteoptionstext_'+suffix).innerHTML ='';	document.getElementById('pasteoptionstext_'+suffix).innerHTML ='';
}	}
Line 1409 function validateClipboard() {	Line 1067 function validateClipboard() {
if (numchk > 0) {	if (numchk > 0) {
return true;	return true;
} else {	} else {
alert("$js_lt{'none'}");	alert("$lt{'none'}");
return false;	return false;
}	}
}	}

function checkClipboard() {
if (document.pasteform.pasting.length > 1) {
for (var i=0; i<document.pasteform.pasting.length; i++) {
document.pasteform.pasting[i].checked = true;
}
}
return;
}

function uncheckClipboard() {
if (document.pasteform.pasting.length >1) {
for (var i=0; i<document.pasteform.pasting.length; i++) {
document.pasteform.pasting[i].checked = false;
}
}
return;
}

END	END

}	}
Line 1469 sub do_paste_from_buffer {	Line 1109 sub do_paste_from_buffer {
}	}

my (%msgs,%before,%after,@dopaste,%is_map,%notinsupp,%notincrs,%duplicate,	my (%msgs,%before,%after,@dopaste,%is_map,%notinsupp,%notincrs,%duplicate,
%prefixchg,%srcdom,%srcnum,%marktomove,$save_err,$lockerrors,$allresult);	%prefixchg,%srcdom,%srcnum,%marktomove,$save_err,$lockerrors,$allresult,
	%msgs);

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});
Line 1670 sub do_paste_from_buffer {	Line 1311 sub do_paste_from_buffer {
if ($prefix eq 'smppg') {	if ($prefix eq 'smppg') {
$msg = &mt('Paste failed: An error occurred when copying the simple page.').' '.$errtext;	$msg = &mt('Paste failed: An error occurred when copying the simple page.').' '.$errtext;
} elsif ($prefix eq 'bulletinboard') {	} elsif ($prefix eq 'bulletinboard') {
$msg = &mt('Paste failed: An error occurred when copying the discussion board.').' '.$errtext;	$msg = &mt('Paste failed: An error occurred when copying the bulletin board.').' '.$errtext;
}	}
$results{$suffix} = $result;	$results{$suffix} = $result;
$msgerrs{$suffix} = $msg;	$msgerrs{$suffix} = $msg;
Line 1678 sub do_paste_from_buffer {	Line 1319 sub do_paste_from_buffer {
next;	next;
}	}
if ($lockerr{$prefix}) {	if ($lockerr{$prefix}) {
$lockerrs{$suffix} = $lockerr{$prefix};	$lockerrs{$suffix} = $lockerr{$prefix};
}	}
}	}
}	}
Line 1717 sub do_paste_from_buffer {	Line 1358 sub do_paste_from_buffer {
if ($newdocsdir eq '') {	if ($newdocsdir eq '') {
$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')) {
Line 1920 sub get_newmap_url {	Line 1561 sub get_newmap_url {
sub dbcopy {	sub dbcopy {
my ($dbref,$coursedom,$coursenum,$lockerrorsref) = @_;	my ($dbref,$coursedom,$coursenum,$lockerrorsref) = @_;
my ($url,$result,$errtext);	my ($url,$result,$errtext);
$url = $dbref->{'src'};	my $url = $dbref->{'src'};
if (ref($dbref) eq 'HASH') {	if (ref($dbref) eq 'HASH') {
if ($url =~ m{/(smppg\|bulletinboard)$}) {	if ($url =~ m{/(smppg\|bulletinboard)$}) {
my $prefix = $1;	my $prefix = $1;
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 1945 sub dbcopy {	Line 1586 sub dbcopy {
if ($prefix eq 'smppg') {	if ($prefix eq 'smppg') {
$errtext = &mt('Failed to acquire a unique timestamp-based suffix when copying a simple page [_1].',$url);	$errtext = &mt('Failed to acquire a unique timestamp-based suffix when copying a simple page [_1].',$url);
} else {	} else {
$errtext = &mt('Failed to acquire a unique timestamp-based suffix when copying a discussion board [_1].',$url);	$errtext = &mt('Failed to acquire a unique timestamp-based suffix when copying a bulletin board [_1].',$url);
}	}
if ($error) {	if ($error) {
$errtext .= '<br />'.$error;	$errtext .= '<br />'.$error;
Line 1959 sub dbcopy {	Line 1600 sub dbcopy {
my $photo = $contents{'uploaded.photourl'};	my $photo = $contents{'uploaded.photourl'};
my ($subdir,$fname) =	my ($subdir,$fname) =
($photo =~ m{^/uploaded/$match_domain/$match_courseid/+(bulletin\|simplepage)/(?:\|\d+/)([^/]+)$});	($photo =~ m{^/uploaded/$match_domain/$match_courseid/+(bulletin\|simplepage)/(?:\|\d+/)([^/]+)$});
my $newphoto;	my $newphoto;
if ($fname ne '') {	if ($fname ne '') {
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 1988 sub dbcopy {	Line 1629 sub dbcopy {
$lockerrorsref->{$prefix} .=	$lockerrorsref->{$prefix} .=
' '.&mt('This will prevent creation of additional simple pages in this course.');	' '.&mt('This will prevent creation of additional simple pages in this course.');
} else {	} else {
$lockerrorsref->{$prefix} .= ' '.&mt('This will prevent creation of additional discussion boards in this course.');	$lockerrorsref->{$prefix} .= ' '.&mt('This will prevent creation of additional bulletin boards in this course.');
}	}
$lockerrorsref->{$prefix} .= ' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.',	$lockerrorsref->{$prefix} .= ' '.&mt('Please contact the [_1]helpdesk[_2] for assistance.',
'<a href="/adm/helpdesk" target="_helpdesk">','</a>').	'<a href="/adm/helpdesk" target="_helpdesk">','</a>').
Line 2109 sub url_paste_fixups {	Line 1750 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 2555 sub update_parameter {	Line 2196 sub update_parameter {
'randomorder' => {},	'randomorder' => {},
);	);
foreach my $which (keys(%allchecked)) {	foreach my $which (keys(%allchecked)) {
$env{'form.all'.$which} =~ s/,$//;	$env{'form.all'.$which} =~ s/,$//;
if ($which eq 'randompick') {	if ($which eq 'randompick') {
foreach my $item (split(/,/,$env{'form.all'.$which})) {	foreach my $item (split(/,/,$env{'form.all'.$which})) {
my ($res,$value) = split(/:/,$item);	my ($res,$value) = split(/:/,$item);
Line 2582 sub update_parameter {	Line 2223 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 2618 sub update_parameter {	Line 2259 sub update_parameter {
}	}
return $haschanges;	return $haschanges;
} else {	} else {
my $haschanges = 0;	return 0 if ($env{'form.changeparms'} !~ /^($valid_parameters_re)$/);
return $haschanges if ($env{'form.changeparms'} !~ /^($valid_parameters_re)$/);

my $which = $env{'form.changeparms'};	my $which = $env{'form.changeparms'};
my $idx = $env{'form.setparms'};	my $idx = $env{'form.setparms'};
my $oldvalue = 0;
my $newvalue = 0;
my $current = (&LONCAPA::map::getparameter($idx,'parameter_'.$which))[0];
if ($which eq 'randompick') {
if ($current =~ /^(\d+)$/) {
$oldvalue = $1;
}
} elsif ($current =~ /^yes$/i) {
$oldvalue = 1;
}
if ($env{'form.'.$which.'_'.$idx}) {	if ($env{'form.'.$which.'_'.$idx}) {
$newvalue = ($which eq 'randompick') ? $env{'form.rpicknum_'.$idx}	my $value = ($which eq 'randompick') ? $env{'form.rpicknum_'.$idx}
: 1;	: 'yes';
}	&LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $value,
if ($oldvalue ne $newvalue) {	$parameter_type{$which});
$haschanges = 1;	&remember_parms($idx,$which,'set',$value);
if ($newvalue) {	} else {
my $storeval = 'yes';	&LONCAPA::map::delparameter($idx,'parameter_'.$which);
if ($which eq 'randompick') {
$storeval = $newvalue;	&remember_parms($idx,$which,'del');
}
&LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $storeval,
$parameter_type{$which});
&remember_parms($idx,$which,'set',$storeval);
} else {
&LONCAPA::map::delparameter($idx,'parameter_'.$which);
&remember_parms($idx,$which,'del');
}
}	}
return $haschanges;	return 1;
}	}
return;
}	}


sub handle_edit_cmd {	sub handle_edit_cmd {
my ($coursenum,$coursedom) =@_;	my ($coursenum,$coursedom) =@_;
if ($env{'form.cmd'} eq '') {	if ($env{'form.cmd'} eq '') {
Line 2748 sub editor {	Line 2370 sub editor {
&snapshotbefore();	&snapshotbefore();

if (&update_parameter()) {	if (&update_parameter()) {
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,1);	($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
return $errtext if ($fatal);	return $errtext if ($fatal);
}	}

Line 2810 sub editor {	Line 2432 sub editor {
$r->print($upload_output);	$r->print($upload_output);

# 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()) {
my $contentchg;	my $contentchg;
if ($env{'form.cmd'} =~ m{^(remove\|cut)_}) {	if ($env{'form.cmd'} =~ m{^(del\|cut)_}) {
$contentchg = 1;	$contentchg = 1;
}	}
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,$contentchg);	($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container,$contentchg);
Line 2844 sub editor {	Line 2466 sub editor {
my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);	my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
$name=&LONCAPA::map::qtescape($name);	$name=&LONCAPA::map::qtescape($name);
$url=&LONCAPA::map::qtescape($url);	$url=&LONCAPA::map::qtescape($url);
next unless $url;	next unless ($name && $url);
my %denied =	my %denied =
&action_restrictions($coursenum,$coursedom,$url,	&action_restrictions($coursenum,$coursedom,$url,
$env{'form.folderpath'},\%curr_groups);	$env{'form.folderpath'},\%curr_groups);
Line 3060 sub editor {	Line 2682 sub editor {
if (@allidx > 0) {	if (@allidx > 0) {
my $path;	my $path;
if ($env{'form.folderpath'}) {	if ($env{'form.folderpath'}) {
$path =	$path =
&HTML::Entities::encode($env{'form.folderpath'},'<>&"');	&HTML::Entities::encode($env{'form.folderpath'},'<>&"');
}	}
if (@allidx > 1) {	if (@allidx > 1) {
$to_show .=	$to_show .=
&Apache::loncommon::continue_data_table_row().	&Apache::loncommon::continue_data_table_row().
'<td colspan="2"> </td>'.	'<td colspan="2"> </td>'.
'<td>'.	'<td>'.
Line 3208 sub process_file_upload {	Line 2830 sub process_file_upload {
}	}
my $quotatype = 'unofficial';	my $quotatype = 'unofficial';
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$quotatype = 'community';	$quotatype = 'community';
} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {	} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.instcode'}) {
$quotatype = 'official';	$quotatype = 'official';
} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {
$quotatype = 'textbook';
}	}
if (&Apache::loncommon::get_user_quota($coursenum,$coursedom,'course',$quotatype)) {	if (&Apache::loncommon::get_user_quota($coursenum,$coursedom,'course',$quotatype)) {
$filesize = int($filesize/1000); #expressed in kb	$filesize = int($filesize/1000); #expressed in kb
$$upload_output = &Apache::loncommon::excess_filesize_warning($coursenum,$coursedom,'course',	$$upload_output = &Apache::loncommon::excess_filesize_warning($coursenum,$coursedom,'course',
$env{'form.uploaddoc.filename'},$filesize,	$env{'form.uploaddoc.filename'},$filesize,'upload');
'upload',$quotatype);
return if ($$upload_output);	return if ($$upload_output);
}	}
my ($parseaction,$showupload,$nextphase,$mimetype);	my ($parseaction,$showupload,$nextphase,$mimetype);
Line 3316 sub process_file_upload {	Line 2935 sub process_file_upload {
$$upload_output .= &mt('No embedded items identified').'<br />';	$$upload_output .= &mt('No embedded items identified').'<br />';
}	}
$$upload_output = '<div id="uploadfileresult">'.$$upload_output.'</div>';	$$upload_output = '<div id="uploadfileresult">'.$$upload_output.'</div>';
} elsif ((&Apache::loncommon::is_archive_file($mimetype)) &&	} elsif (&Apache::loncommon::is_archive_file($mimetype)) {
($env{'form.uploaddoc.filename'} =~ /\.(zip\|tar\|bz2\|gz\|tar.gz\|tar.bz2\|tgz)$/i)) {
$nextphase = 'decompress_uploaded';	$nextphase = 'decompress_uploaded';
my $position = scalar(@LONCAPA::map::order)-1;	my $position = scalar(@LONCAPA::map::order)-1;
my $noextract = &return_to_editor();	my $noextract = &return_to_editor();
Line 3379 sub is_supplemental_title {	Line 2997 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)=@_;
my ($foldertitle,$renametitle,$oldtitle);	my ($foldertitle,$renametitle);
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);
} else {	} else {
Line 3392 sub entryline {	Line 3010 sub entryline {

$renametitle=~s/\\/\\\\/g;	$renametitle=~s/\\/\\\\/g;
$renametitle=~s/\&quot\;/\\\"/g;	$renametitle=~s/\&quot\;/\\\"/g;
$renametitle=~s/"/%22/g;
$renametitle=~s/ /%20/g;	$renametitle=~s/ /%20/g;
$oldtitle = $renametitle;
$renametitle=~s/\&#39\;/\\\'/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
Line 3480 END	Line 3095 END
$currgroups);	$currgroups);
my ($copylink,$cutlink,$removelink);	my ($copylink,$cutlink,$removelink);
my $skip_confirm = 0;	my $skip_confirm = 0;
my $confirm_removal = 0;
if ( $folder =~ /^supplemental/	if ( $folder =~ /^supplemental/
\|\| ($url =~ m{( /smppg$	\|\| ($url =~ m{( /smppg$
\|/syllabus$	\|/syllabus$
Line 3491 END	Line 3105 END
\|\| $isexternal) {	\|\| $isexternal) {
$skip_confirm = 1;	$skip_confirm = 1;
}	}
if (($url=~m\|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/\|) &&
($url!~/$LONCAPA::assess_page_seq_re/)) {
$confirm_removal = 1;
}

if ($denied{'copy'}) {	if ($denied{'copy'}) {
$copylink=(<<ENDCOPY)	$copylink=(<<ENDCOPY)
Line 3537 ENDCUT	Line 3147 ENDCUT
ENDREM	ENDREM
} else {	} else {
my $formname = 'edit_remove_'.$orderidx;	my $formname = 'edit_remove_'.$orderidx;
my $js = "javascript:checkForSubmit(document.forms.renameform,'remove','actions','$orderidx','$esc_path','$index','$renametitle',$skip_confirm,'$container','$folder',$confirm_removal);";	my $js = "javascript:checkForSubmit(document.forms.renameform,'remove','actions','$orderidx','$esc_path','$index','$renametitle',$skip_confirm);";
$removelink=(<<ENDREM);	$removelink=(<<ENDREM);
<form name="$formname" method="post" action="/adm/coursedocs">	<form name="$formname" method="post" action="/adm/coursedocs">
$form_common	$form_common
<input type="hidden" name="skip_$orderidx" id="skip_remove_$orderidx" value="$skip_confirm" />	<input type="hidden" name="skip_$orderidx" id="skip_remove_$orderidx" value="$skip_confirm" />
<input type="hidden" name="confirm_rem_$orderidx" id="confirm_removal_$orderidx" value="$confirm_removal" />
<input type="checkbox" name="remove" id="remove_$orderidx" value="$orderidx" onclick="javascript:singleCheck(this,'$orderidx','remove');" class="LC_hidden" /><a href="$js" class="LC_docs_remove">$lt{'rm'}</a>	<input type="checkbox" name="remove" id="remove_$orderidx" value="$orderidx" onclick="javascript:singleCheck(this,'$orderidx','remove');" class="LC_hidden" /><a href="$js" class="LC_docs_remove">$lt{'rm'}</a>
$form_end	$form_end
ENDREM	ENDREM
Line 3551 ENDREM	Line 3160 ENDREM
}	}
}	}
$renamelink=(<<ENDREN);	$renamelink=(<<ENDREN);
<a href='javascript:changename("$esc_path","$index","$oldtitle");' class="LC_docs_rename">$lt{'rn'}</a>	<a href='javascript:changename("$esc_path","$index","$renametitle");' class="LC_docs_rename">$lt{'rn'}</a>
ENDREN	ENDREN
$line.=(<<END);	$line.=(<<END);
<td>	<td>
Line 3685 $form_common."\n".	Line 3294 $form_common."\n".
push(@{$filtersref->{'randomorder'}},$orderidx);	push(@{$filtersref->{'randomorder'}},$orderidx);
}	}
}	}
$formname = 'edit_rorder_'.$orderidx;	my $formname = 'edit_rorder_'.$orderidx;
$rand_order_text =	$rand_order_text =
'<form action="/adm/coursedocs" method="post" name="'.$formname.'">'."\n".	'<form action="/adm/coursedocs" method="post" name="'.$formname.'">'."\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.' /> '.&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.' /> '.&mt('Random Order').' </label></span>'.
$form_end;	$form_end;
}	}
} elsif ($supplementalflag && !$allowed) {	} elsif ($supplementalflag && !$allowed) {
$url .= ($url =~ /\?/) ? '&':'?';	$url .= ($url =~ /\?/) ? '&':'?';
Line 3866 sub new_timebased_suffix {	Line 3475 sub new_timebased_suffix {
if ($type eq 'paste') {	if ($type eq 'paste') {
$prefix = $type;	$prefix = $type;
$namespace = 'courseeditor';	$namespace = 'courseeditor';
$idtype = 'addcode';
} elsif ($type eq 'map') {	} elsif ($type eq 'map') {
$prefix = 'docs';	$prefix = 'docs';
if ($area eq 'supplemental') {	if ($area eq 'supplemental') {
Line 3878 sub new_timebased_suffix {	Line 3486 sub new_timebased_suffix {
$prefix = $type;	$prefix = $type;
$namespace = 'templated';	$namespace = 'templated';
}	}
	$idtype = 'concat';
my ($suffix,$freedlock,$error) =	my ($suffix,$freedlock,$error) =
&Apache::lonnet::get_timebased_id($prefix,'num',$namespace,$dom,$num,$idtype);	&Apache::lonnet::get_timebased_id($prefix,'num',$namespace,$dom,$num);
if (!$suffix) {	if (!$suffix) {
if ($type eq 'paste') {	if ($type eq 'paste') {
$errtext = &mt('Failed to acquire a unique timestamp-based suffix when adding to the paste buffer.');	$errtext = &mt('Failed to acquire a unique timestamp-based suffix when adding to the paste buffer.');
Line 3888 sub new_timebased_suffix {	Line 3497 sub new_timebased_suffix {
} elsif ($type eq 'smppg') {	} elsif ($type eq 'smppg') {
$errtext = &mt('Failed to acquire a unique timestamp-based suffix for the new simple page.');	$errtext = &mt('Failed to acquire a unique timestamp-based suffix for the new simple page.');
} else {	} else {
$errtext = &mt('Failed to acquire a unique timestamp-based suffix for the new discussion board.');	$errtext = &mt('Failed to acquire a unique timestamp-based suffix for the new bulletin board.');
}	}
if ($error) {	if ($error) {
$errtext .= '<br />'.$error;	$errtext .= '<br />'.$error;
}	}
}	}
if ($freedlock ne 'ok') {	if ($freedlock ne 'ok') {
$locknotfreed =	$locknotfreed =
'<div class="LC_error">'.	'<div class="LC_error">'.
&mt('There was a problem removing a lockfile.').' ';	&mt('There was a problem removing a lockfile.').' ';
if ($type eq 'paste') {	if ($type eq 'paste') {
if ($freedlock eq 'nolock') {	&mt('This will prevent use of the paste buffer until th next log-in.');
$locknotfreed =
'<div class="LC_error">'.
&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.');
} else {
$locknotfreed .=
&mt('This will prevent addition of items to the clipboard until your next log-in.');
}
} elsif ($type eq 'map') {	} elsif ($type eq 'map') {
$locknotfreed .=	&mt('This will prevent creation of additional folders or composite pages in this course.');
&mt('This will prevent creation of additional folders or composite pages in this course.');
} elsif ($type eq 'smppg') {	} elsif ($type eq 'smppg') {
$locknotfreed .=	$locknotfreed .=
&mt('This will prevent creation of additional simple pages in this course.');	&mt('This will prevent creation of additional simple pages in this course.');
} else {	} else {
$locknotfreed .=	$locknotfreed .=
&mt('This will prevent creation of additional discussion boards in this course.');	&mt('This will prevent creation of additional bulletin boards in this course.');
}	}
unless ($type eq 'paste') {	unless ($type eq 'paste') {
$locknotfreed .=	$locknotfreed .=
Line 4124 sub devalidateversioncache {	Line 3723 sub devalidateversioncache {
sub checkversions {	sub checkversions {
my ($r) = @_;	my ($r) = @_;
my $crstype = &Apache::loncommon::course_type();	my $crstype = &Apache::loncommon::course_type();
$r->print(&Apache::loncommon::start_page("Check $crstype Resource Versions"));	$r->print(&Apache::loncommon::start_page("Check $crstype Document Versions"));
$r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $crstype Resource Versions"));	$r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $crstype Document Versions"));
$r->print(&startContentScreen('tools'));	$r->print(&startContentScreen('tools'));

my $header='';	my $header='';
Line 4281 $lt{'sc'}: <input type="submit" name="se	Line 3880 $lt{'sc'}: <input type="submit" name="se
<br clear="all" />	<br clear="all" />
<hr />	<hr />
<h4>$lt{'vers'}</h4>	<h4>$lt{'vers'}</h4>
	<input type="submit" name="setversions" value="$lt{'save'}" />
ENDHEADERS	ENDHEADERS
#number of columns for version history	#number of columns for version history
my %changedbytime;
foreach my $key (keys(%changes)) {
#excludes not versionable problems from resource version history:
next if ($key =~ /^\/res\/lib\/templates/);
my $chg;
if ($env{'form.timerange'} eq 'all') {
my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);
$chg = &Apache::lonnet::metadata($root.'.'.$extension,'lastrevisiondate');
} else {
$chg = $changes{$key};
next if ($chg < $starttime);
}
push(@{$changedbytime{$chg}},$key);
}
if (keys(%changedbytime) == 0) {
&untiehash();
$r->print(&mt('No content changes in imported content in specified time frame').
&endContentScreen());
return;
}
$r->print(	$r->print(
'<input type="submit" name="setversions" value="'.$lt{'save'}.'" />'.
&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 4314 ENDHEADERS	Line 3893 ENDHEADERS
'<th>'.&mt('History').'</th>'.	'<th>'.&mt('History').'</th>'.
&Apache::loncommon::end_data_table_header_row()	&Apache::loncommon::end_data_table_header_row()
);	);
foreach my $chg (sort {$b <=> $a } keys(%changedbytime)) {	foreach my $key (sort(keys(%changes))) {
foreach my $key (sort(@{$changedbytime{$chg}})) {	#excludes not versionable problems from resource version history:
my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);	next unless ($changes{$key}>$starttime && $key !~ /^\/res\/lib\/templates/);
my $currentversion=&Apache::lonnet::getversion($key);	my ($root,$extension)=($key=~/^(.*)\.(\w+)$/);
if ($currentversion<0) {	my $currentversion=&Apache::lonnet::getversion($key);
$currentversion='<span class="LC_error">'.&mt('Could not be determined.').'</span>';	if ($currentversion<0) {
}	$currentversion='<span class="LC_error">'.&mt('Could not be determined.').'</span>';
my $linkurl=&Apache::lonnet::clutter($key);	}
$r->print(	my $linkurl=&Apache::lonnet::clutter($key);
&Apache::loncommon::start_data_table_row().	$r->print(
'<td><b>'.&Apache::lonnet::gettitle($linkurl).'</b><br />'.	&Apache::loncommon::start_data_table_row().
'<a href="'.$linkurl.'" target="cat">'.$linkurl.'</a></td>'.	'<td><b>'.&Apache::lonnet::gettitle($linkurl).'</b><br />'.
'<td align="right">'.$currentversion.'<span class="LC_fontsize_medium"><br />('.	'<a href="'.$linkurl.'" target="cat">'.$linkurl.'</a></td>'.
&Apache::lonlocal::locallocaltime($chg).')</span></td>'.	'<td align="right">'.$currentversion.'<span class="LC_fontsize_medium"><br />('.
'<td align="right">'	&Apache::lonlocal::locallocaltime(&Apache::lonnet::metadata($root.'.'.$extension,'lastrevisiondate')).')</span></td>'.
);	'<td align="right">'
# Used in course	);
my $usedversion=$hash{'version_'.$linkurl};	# Used in course
if (($usedversion) && ($usedversion ne 'mostrecent')) {	my $usedversion=$hash{'version_'.$linkurl};
	if (($usedversion) && ($usedversion ne 'mostrecent')) {
if ($usedversion != $currentversion) {	if ($usedversion != $currentversion) {
$r->print('<span class="LC_warning">'.$usedversion.'</span>');	$r->print('<span class="LC_warning">'.$usedversion.'</span>');
} else {	} else {
Line 4341 ENDHEADERS	Line 3921 ENDHEADERS
} else {	} else {
$r->print($currentversion);	$r->print($currentversion);
}	}
$r->print('</td><td title="'.$lt{'vu'}.'">');	$r->print('</td><td title="'.$lt{'vu'}.'">');
# Set version	# Set version
$r->print(&Apache::loncommon::select_form(	$r->print(&Apache::loncommon::select_form(
$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)}));	map {$_,$_} (1..$currentversion)}));
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;
if (&Apache::lonnet::metadata($url,'lastrevisiondate')<$starttime) {	if (&Apache::lonnet::metadata($url,'lastrevisiondate')<$starttime) {
$lastold=$prevvers;	$lastold=$prevvers;
}	}
}	}
$r->print('</td>');	$r->print('</td>');
# List all available versions	# List all available versions
$r->print('<td valign="top"><span class="LC_fontsize_medium">');	$r->print('<td valign="top"><span class="LC_fontsize_medium">');
for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {	for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
my $url=$root.'.'.$prevvers.'.'.$extension;	my $url=$root.'.'.$prevvers.'.'.$extension;
$r->print(	$r->print(
'<span class="LC_nobreak">'	'<span class="LC_nobreak">'
.'<a href="'.&Apache::lonnet::clutter($url).'">'	.'<a href="'.&Apache::lonnet::clutter($url).'">'
.&mt('Version [_1]',$prevvers).'</a>'	.&mt('Version [_1]',$prevvers).'</a>'
.' ('.&Apache::lonlocal::locallocaltime(	.' ('.&Apache::lonlocal::locallocaltime(
&Apache::lonnet::metadata($url,'lastrevisiondate'))	&Apache::lonnet::metadata($url,'lastrevisiondate'))
.')');	.')');
if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {	if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
$r->print(	$r->print(
' <a href="/adm/diff?filename='.	' <a href="/adm/diff?filename='.
&Apache::lonnet::clutter($root.'.'.$extension).	&Apache::lonnet::clutter($root.'.'.$extension).
&HTML::Entities::encode('&versionone='.$prevvers,'"<>&').	&HTML::Entities::encode('&versionone='.$prevvers,'"<>&').
'" target="diffs">'.&mt('Diffs').'</a>');	'" target="diffs">'.&mt('Diffs').'</a>');
}
$r->print('</span><br />');
}	}
$r->print('</span></td>'.&Apache::loncommon::end_data_table_row());	$r->print('</span><br />');
}	}
	$r->print('</span></td>'.&Apache::loncommon::end_data_table_row());
}	}
$r->print(	$r->print(
&Apache::loncommon::end_data_table().	&Apache::loncommon::end_data_table().
Line 4389 ENDHEADERS	Line 3968 ENDHEADERS

&untiehash();	&untiehash();
$r->print(&endContentScreen());	$r->print(&endContentScreen());
return;
}	}

sub mark_hash_old {	sub mark_hash_old {
Line 4444 $help{'Caching'}.'</p></form>'."\n\n");	Line 4022 $help{'Caching'}.'</p></form>'."\n\n");


sub init_breadcrumbs {	sub init_breadcrumbs {
my ($form,$text,$help)=@_;	my ($form,$text)=@_;
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?tools=1",	&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?tools=1",
text=>&Apache::loncommon::course_type().' Editor',	text=>&Apache::loncommon::course_type().' Editor',
faq=>273,	faq=>273,
bug=>'Instructor Interface',	bug=>'Instructor Interface',
help => $help});	help => 'Docs_Adding_Course_Doc'});
&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?".$form.'=1',	&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs?".$form.'=1',
text=>$text,	text=>$text,
faq=>273,	faq=>273,
Line 4486 sub startContentScreen {	Line 4064 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 4533 sub handler {	Line 4112 sub handler {
'Adding_Folders','Docs_Overview', 'Load_Map',	'Adding_Folders','Docs_Overview', 'Load_Map',
'Supplemental','Score_Upload_Form','Adding_Pages',	'Supplemental','Score_Upload_Form','Adding_Pages',
'Importing_LON-CAPA_Resource','Importing_IMS_Course',	'Importing_LON-CAPA_Resource','Importing_IMS_Course',
'Uploading_From_Harddrive','Course_Roster','Web_Page',	'Uploading_From_Harddrive',
'Dropbox','Simple_Problem') {	'Check_Resource_Versions','Verify_Content',
	'Course_Roster','Web_Page','Dropbox') {
$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 4542 sub handler {	Line 4122 sub handler {
'Docs_About_Syllabus,Docs_Editing_Templated_Pages');	'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
$help{'Simple Page'} = &Apache::loncommon::help_open_topic(	$help{'Simple Page'} = &Apache::loncommon::help_open_topic(
'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');	'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
	$help{'Simple Problem'} = &Apache::loncommon::help_open_topic(
	'Option_Response_Simple');
$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(	$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');	'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
$help{'My Personal Information Page'} = &Apache::loncommon::help_open_topic(	$help{'My Personal Information Page'} = &Apache::loncommon::help_open_topic(
Line 4556 sub handler {	Line 4138 sub handler {
$allowed = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});	$allowed = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
}	}

&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['inhibitmenu']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['chooseserver',
if ($allowed && $env{'form.verify'}) {	'inhibitmenu']);
&init_breadcrumbs('verify','Verify Content','Docs_Verify_Content');	if ($allowed && $env{'form.chooseserver'}) {
	&choose_dump_server($r);
	return OK;
	} elsif ($allowed && $env{'form.verify'}) {
	&init_breadcrumbs('verify','Verify Content');
&verifycontent($r);	&verifycontent($r);
} elsif ($allowed && $env{'form.listsymbs'}) {	} elsif ($allowed && $env{'form.listsymbs'}) {
&init_breadcrumbs('listsymbs','List Content IDs');	&init_breadcrumbs('listsymbs','List Content IDs');
Line 4571 sub handler {	Line 4157 sub handler {
}	}
&docs_change_log($r,$coursenum,$coursedom,$folder,$allowed,$crstype,$iconpath);	&docs_change_log($r,$coursenum,$coursedom,$folder,$allowed,$crstype,$iconpath);
} elsif ($allowed && $env{'form.versions'}) {	} elsif ($allowed && $env{'form.versions'}) {
&init_breadcrumbs('versions','Check/Set Resource Versions','Docs_Check_Resource_Versions');	&init_breadcrumbs('versions','Check/Set Resource Versions');
&checkversions($r);	&checkversions($r);
} elsif ($allowed && $env{'form.dumpcourse'}) {	} elsif ($allowed && $env{'form.dumpcourse'}) {
&init_breadcrumbs('dumpcourse','Copy '.&Apache::loncommon::course_type().' Content to Authoring Space');	&init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' Content to Authoring Space');
&dumpcourse($r);	&dumpcourse($r);
} elsif ($allowed && $env{'form.exportcourse'}) {	} elsif ($allowed && $env{'form.exportcourse'}) {
&init_breadcrumbs('exportcourse','IMS Export');	&init_breadcrumbs('exportcourse','IMS Export');
Line 4742 sub handler {	Line 4328 sub handler {
$script .= &dump_switchserver_js(@hosts);	$script .= &dump_switchserver_js(@hosts);
}	}
} else {	} else {
my $tid = 1;
my @tabids;	my @tabids;
if ($supplementalflag) {	if ($supplementalflag) {
@tabids = ('002','ee2','ff2');	@tabids = ('002','ee2','ff2');
$tid = 2;
} else {	} else {
@tabids = ('aa1','bb1','cc1','ff1');	@tabids = ('aa1','bb1','cc1','ff1');
unless ($env{'form.folderpath'} =~ /\:1$/) {	unless ($env{'form.folderpath'} =~ /\:1$/) {
Line 4758 sub handler {	Line 4342 sub handler {
$script .= &editing_js($udom,$uname,$supplementalflag).	$script .= &editing_js($udom,$uname,$supplementalflag).
&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).
&Apache::lonextresedit::extedit_javascript();	&Apache::lonextresedit::extedit_javascript();
$addentries = {	$addentries = {
onload => "javascript:resize_scrollbox('contentscroll','1','1');",	onload => "javascript:resize_scrollbox('contentscroll','1','1');",
Line 4783 sub handler {	Line 4367 sub handler {
if ($showdoc) {	if ($showdoc) {
$r->print(&Apache::loncommon::start_page("$crstype documents",undef,	$r->print(&Apache::loncommon::start_page("$crstype documents",undef,
{'force_register' => $showdoc,}));	{'force_register' => $showdoc,}));
} elsif ($toolsflag) {
&Apache::lonhtmlcommon::add_breadcrumb({
href=>"/adm/coursedocs",text=>"$crstype Contents"});
$r->print(&Apache::loncommon::start_page("$crstype Contents", $script)
.&Apache::loncommon::help_open_menu('','',273,'RAT')
.&Apache::lonhtmlcommon::breadcrumbs(
'Editing Course Contents')
);
} elsif ($r->uri eq '/adm/supplemental') {	} elsif ($r->uri eq '/adm/supplemental') {
my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);	my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);
$r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,	$r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,
Line 4883 sub handler {	Line 4459 sub handler {
'navc' => 'Table of Contents',	'navc' => 'Table of Contents',
'sipa' => 'Simple Course Page',	'sipa' => 'Simple Course Page',
'sipr' => 'Simple Problem',	'sipr' => 'Simple Problem',
'webp' => 'Blank Web Page (editable)',	'webp' => 'Blank Web Page (editable)',
'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 4899 sub handler {	Line 4475 sub handler {
'title' => 'Title',	'title' => 'Title',
'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',	);
'bb6' => 'Blackboard 6',
'angel5' => 'ANGEL 5.5',
'webctce4' => 'WebCT 4 Campus Edition',
);
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
my $fileupload=(<<FIUP);	my $fileupload=(<<FIUP);
$lt{'file'}:<br />	$lt{'file'}:<br />
Line 4934 CHBO	Line 4506 CHBO
$lt{'cms'}:	$lt{'cms'}:
<select name="source">	<select name="source">
<option value="-1" selected="selected">$lt{'se'}</option>	<option value="-1" selected="selected">$lt{'se'}</option>
<option value="bb5">$lt{'bb5'}</option>	<option value="bb5">Blackboard 5</option>
<option value="bb6">$lt{'bb6'}</option>	<option value="bb6">Blackboard 6</option>
<option value="angel5">$lt{'angel5'}</option>	<option value="angel5">ANGEL 5.5</option>
<option value="webctce4">$lt{'webctce4'}</option>	<option value="webctce4">WebCT 4 Campus Edition</option>
</select>	</select>
<input type="hidden" name="folder" value="$imsfolder" />	<input type="hidden" name="folder" value="$imsfolder" />
</p>	</p>
Line 5065 HIDDENFORM	Line 4637 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="cc" />
$pathitem	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'navc'}=/adm/navmaps" />	value="$lt{'navc'}=/adm/navmaps" />
Line 5075 HIDDENFORM	Line 4647 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="cc" />
$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 5089 NSPFORM	Line 4661 NSPFORM
$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>
$help{'Simple_Problem'}	$help{'Simple Problem'}
</form>	</form>

NSPROBFORM	NSPROBFORM
Line 5116 NEXUFORM	Line 4688 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="cc" />
$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 5126 NBFORM	Line 4698 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="cc" />
$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 5137 NAMFORM	Line 4709 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="cc" />
$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 5146 NASOFORM	Line 4718 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="cc" />
$pathitem	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'rost'}=/adm/viewclasslist" />	value="$lt{'rost'}=/adm/viewclasslist" />
Line 5167 NROSTFORM	Line 4739 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="cc" />
$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>
Line 5191 my $newfolderb;	Line 4763 my $newfolderb;
<form action="/adm/coursedocs" method="post" name="newpage">	<form action="/adm/coursedocs" method="post" name="newpage">
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="cc" />
<a class="LC_menubuttons_link" href="javascript:makenewpage(document.newpage,'$pageseq');">$lt{'newp'}</a>	<a class="LC_menubuttons_link" href="javascript:makenewpage(document.newpage,'$pageseq');">$lt{'newp'}</a>
$help{'Adding_Pages'}	$help{'Adding_Pages'}
</form>	</form>
Line 5202 NPFORM	Line 4774 NPFORM
<form action="/adm/coursedocs" method="post" name="newfolder">	<form action="/adm/coursedocs" method="post" name="newfolder">
$pathitem	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<input type="hidden" name="active" value="" />	<input type="hidden" name="active" value="aa" />
<a href="javascript:makenewfolder(document.newfolder,'$folderseq');">$lt{'newf'}</a>$help{'Adding_Folders'}	<a href="javascript:makenewfolder(document.newfolder,'$folderseq');">$lt{'newf'}</a>$help{'Adding_Folders'}
</form>	</form>
NFFORM	NFFORM

my $newsylform=(<<NSYLFORM);	my $newsylform=(<<NSYLFORM);
<form action="/adm/coursedocs" method="post" name="newsyl">	<form action="/adm/coursedocs" method="post" name="newsyl">
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="cc" />
$pathitem	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />	value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />
Line 5221 NSYLFORM	Line 4793 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="cc" />
$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 5338 SUPDOCFORM	Line 4910 SUPDOCFORM

my $supnewfolderform=(<<SNFFORM);	my $supnewfolderform=(<<SNFFORM);
<form action="/adm/coursedocs" method="post" name="supnewfolder">	<form action="/adm/coursedocs" method="post" name="supnewfolder">
<input type="hidden" name="active" value="" />	<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:makenewfolder(document.supnewfolder,'$folderseq');">$lt{'newf'}</a>	<a class="LC_menubuttons_link" href="javascript:makenewfolder(document.supnewfolder,'$folderseq');">$lt{'newf'}</a>
Line 5426 my %suporderhash = (	Line 4998 my %suporderhash = (
foreach my $server (keys(%servers)) {	foreach my $server (keys(%servers)) {
next if (grep(/^\Q$server\E$/,@ids));	next if (grep(/^\Q$server\E$/,@ids));
my $hashid=$coursenum.':'.$coursedom;	my $hashid=$coursenum.':'.$coursedom;
my $cachekey = &escape('suppcount').':'.&escape($hashid);	&Apache::lonnet::remote_devalidate_cache($server,'suppcount',$hashid);
&Apache::lonnet::remote_devalidate_cache($server,[$cachekey]);
}	}
&Apache::lonnet::get_numsuppfiles($coursenum,$coursedom,1);	&Apache::lonnet::get_numsuppfiles($coursenum,$coursedom,1);
undef($suppchanges);	undef($suppchanges);
}	}
}	}
}	}
} elsif ($supplementalflag) {	} elsif ($supplementalflag) {
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
Line 5510 sub decompression_info {	Line 5081 sub decompression_info {
my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};	my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
my $container='sequence';	my $container='sequence';
my ($pathitem,$hiddenelem);	my ($pathitem,$hiddenelem);
my @hiddens = ('newidx','comment','position','folderpath','archiveurl');	my @hiddens = ('newidx','comment','position','folderpath');
if ($env{'form.folderpath'} =~ /\:1$/) {	if ($env{'form.folderpath'} =~ /\:1$/) {
$container='page';	$container='page';
}	}
Line 5518 sub decompression_info {	Line 5089 sub decompression_info {
foreach my $item (@hiddens) {	foreach my $item (@hiddens) {
if ($env{'form.'.$item}) {	if ($env{'form.'.$item}) {
$hiddenelem .= '<input type="hidden" name="'.$item.'" value="'.	$hiddenelem .= '<input type="hidden" name="'.$item.'" value="'.
&HTML::Entities::encode($env{'form.'.$item},'<>&"').'" />'."\n";	$env{'form.'.$item}.'" />'."\n";
}	}
}	}
return ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,	return ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,
Line 5575 sub remove_archive {	Line 5146 sub remove_archive {
} else {	} else {
$delwarning = &mt('An error occurred retrieving the contents of the current folder.');	$delwarning = &mt('An error occurred retrieving the contents of the current folder.');
}	}
$delwarning .= ' '.&mt('As a result the archive file has not been removed.');	$delwarning .= &mt('As a result the archive file has not been removed.');
} else {	} else {
my $currcmd = $env{'form.cmd'};	my $currcmd = $env{'form.cmd'};
my $position = $env{'form.position'};	my $position = $env{'form.position'};
my $archiveidx = $position;
if ($position > 0) {	if ($position > 0) {
if (($env{'form.autoextract_camtasia'}) && (scalar(@LONCAPA::map::order) == 2)) {	$env{'form.cmd'} = 'remove_'.$position;
$archiveidx = $position-1;	my ($title,$url,@rrest) =
}	split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$position]]);
$env{'form.cmd'} = 'remove_'.$archiveidx;	if (&handle_edit_cmd($docuname,$docudom)) {
my ($title,$url,@rrest) =	($errtext,$fatal) = &storemap($docuname,$docudom,$map,1);
split(/:/,$LONCAPA::map::resources[$LONCAPA::map::order[$archiveidx]]);	if ($fatal) {
if ($url eq $env{'form.archiveurl'}) {	if ($container eq 'page') {
if (&handle_edit_cmd($docuname,$docudom)) {	$delwarning = &mt('An error occurred updating the contents of the current page.');
($errtext,$fatal) = &storemap($docuname,$docudom,$map,1);
if ($fatal) {
if ($container eq 'page') {
$delwarning = &mt('An error occurred updating the contents of the current page.');
} else {
$delwarning = &mt('An error occurred updating the contents of the current folder.');
}
} else {	} else {
$delresult = &mt('Archive file removed.');	$delwarning = &mt('An error occurred updating the contents of the current folder.');
}	}
	} else {
	$delresult = &mt('Archive file removed.');
}	}
} else {
$delwarning .= &mt('Archive file had unexpected item number in folder.').
' '.&mt('As a result the archive file has not been removed.');
}	}
}	}
$env{'form.cmd'} = $currcmd;	$env{'form.cmd'} = $currcmd;
Line 5629 sub generate_admin_menu {	Line 5191 sub generate_admin_menu {
'cv' => 'Check/Set Resource Versions',	'cv' => 'Check/Set Resource Versions',
'ls' => 'List Resource Identifiers',	'ls' => 'List Resource Identifiers',
'imse' => 'Export contents to IMS Archive',	'imse' => 'Export contents to IMS Archive',
'dcd' => "Copy $crstype Content to Authoring Space",	'dcd' => "Dump $crstype Content to Authoring Space",
);	);
my ($candump,$dumpurl);	my ($candump,$dumpurl);
if ($home + $other > 0) {	if ($home + $other > 0) {
Line 5660 sub generate_admin_menu {	Line 5222 sub generate_admin_menu {
{ linktext => $lt{'vc'},	{ linktext => $lt{'vc'},
url => "javascript:injectData(document.courseverify,'dummy','verify','$lt{'vc'}')",	url => "javascript:injectData(document.courseverify,'dummy','verify','$lt{'vc'}')",
permission => 'F',	permission => 'F',
help => 'Docs_Verify_Content',	help => 'Verify_Content',
icon => 'verify.png',	icon => 'verify.png',
linktitle => 'Verify contents can be retrieved/rendered',	linktitle => 'Verify contents can be retrieved/rendered',
},	},
{ linktext => $lt{'cv'},	{ linktext => $lt{'cv'},
url => "javascript:injectData(document.courseverify,'dummy','versions','$lt{'cv'}')",	url => "javascript:injectData(document.courseverify,'dummy','versions','$lt{'cv'}')",
permission => 'F',	permission => 'F',
help => 'Docs_Check_Resource_Versions',	help => 'Check_Resource_Versions',
icon => 'resversion.png',	icon => 'resversion.png',
linktitle => "View version information for resources in your $lc_crstype, and fix/unfix use of specific versions",	linktitle => "View version information for resources in your $lc_crstype, and fix/unfix use of specific versions",
},	},
Line 5692 sub generate_admin_menu {	Line 5254 sub generate_admin_menu {
{ linktext => $lt{'dcd'},	{ linktext => $lt{'dcd'},
url => $dumpurl,	url => $dumpurl,
permission => $candump,	permission => $candump,
help => 'Docs_Dump_Course_Docs',	#help => '',
icon => 'dump.png',	icon => 'dump.png',
linktitle => $lt{'dcd'},	linktitle => $lt{'dcd'},
},	},
Line 5712 sub generate_edit_table {	Line 5274 sub generate_edit_table {
my $form;	my $form;
my $activetab;	my $activetab;
my $active;	my $active;
if (($env{'form.active'} ne '') && ($env{'form.active'} ne '00')) {	if (($env{'form.active'} ne '') && ($env{'form.active'} ne 'aa')) {
$activetab = $env{'form.active'};	$activetab = $env{'form.active'};
}	}
my $backicon = $iconpath.'clickhere.gif';	my $backicon = $iconpath.'clickhere.gif';
Line 5747 sub generate_edit_table {	Line 5309 sub generate_edit_table {
$form .= '<li style="float:right" '.$active	$form .= '<li style="float:right" '.$active
.' onclick="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');"><a href="javascript:;"><b>'.&mt(${$orderhash{$name}}[0]).'</b></a></li>'."\n";	.' onclick="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');"><a href="javascript:;"><b>'.&mt(${$orderhash{$name}}[0]).'</b></a></li>'."\n";
} else {	} else {
$form .= '<li style="float:right">'.${$orderhash{$name}}[1].'</li>'."\n";	$form .= '<li '.$active.' style="float:right">'.${$orderhash{$name}}[1].'</li>'."\n";

}	}
}	}
Line 5805 END	Line 5367 END

sub editing_js {	sub editing_js {
my ($udom,$uname,$supplementalflag) = @_;	my ($udom,$uname,$supplementalflag) = @_;
my %js_lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
p_mnf => 'Name of New Folder',	p_mnf => 'Name of New Folder',
t_mnf => 'New Folder',	t_mnf => 'New Folder',
p_mnp => 'Name of New Page',	p_mnp => 'Name of New Page',
Line 5815 sub editing_js {	Line 5377 sub editing_js {
p_msb => 'Title for the Problem',	p_msb => 'Title for the Problem',
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_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',
p_mab_alrt2 => 'Please enter both user and domain in the format user:domain',	p_mab_alrt2 => 'Please enter both user and domain in the format user:domain',
p_chn => 'New Title',	p_chn => 'New Title',
p_rmr1 => 'WARNING: Removing a resource makes associated grades and scores inaccessible!',	p_rmr1 => 'WARNING: Removing a resource makes associated grades and scores inaccessible!',
p_rmr2a => 'Remove',	p_rmr2a => 'Remove[_99]',
p_rmr2b => '?',	p_rmr2b => '?[_99]',
p_rmr3a => 'Remove those',	p_rmr3a => 'Remove those [_2]',
p_rmr3b => 'items?',	p_rmr3b => 'items?[_2]',
p_rmr4 => 'WARNING: Removing a resource uploaded to a course cannot be undone via "Undo Delete".',
p_rmr5 => 'Push "Cancel" and then use "Cut" instead if you might need to undo this change.',
p_ctr1a => 'WARNING: Cutting a resource makes associated grades and scores inaccessible!',	p_ctr1a => 'WARNING: Cutting a resource makes associated grades and scores inaccessible!',
p_ctr1b => 'Grades remain inaccessible if resource is pasted into another folder.',	p_ctr1b => 'Grades remain inaccessible if resource is pasted into another folder.',
p_ctr2a => 'Cut',	p_ctr2a => 'Cut[_98]',
p_ctr2b => '?',	p_ctr2b => '?[_98]',
p_ctr3a => 'Cut those',	p_ctr3a => 'Cut those[_2]',
p_ctr3b => 'items?',	p_ctr3b => 'items?[_2]',
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 5846 sub editing_js {	Line 5406 sub editing_js {
noac => 'No actions selected.',	noac => 'No actions selected.',
);	);

&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'},'<>&"');
my $main_container_page;	my $main_container_page;
Line 5868 sub editing_js {	Line 5427 sub editing_js {
if (&Apache::lonnet::is_on_map($res)) {	if (&Apache::lonnet::is_on_map($res)) {
$backtourl = &HTML::Entities::encode(&Apache::lonnet::clutter($res),'<>&"').'?symb='.	$backtourl = &HTML::Entities::encode(&Apache::lonnet::clutter($res),'<>&"').'?symb='.
&HTML::Entities::encode($caller,'<>&"');	&HTML::Entities::encode($caller,'<>&"');
$backtourl = &Apache::loncommon::escape_single($backtourl);
} else {	} else {
$backtourl = '/adm/navmaps';	$backtourl = '/adm/navmaps';
}	}
Line 5891 sub editing_js {	Line 5449 sub editing_js {

return <<ENDNEWSCRIPT;	return <<ENDNEWSCRIPT;
function makenewfolder(targetform,folderseq) {	function makenewfolder(targetform,folderseq) {
var foldername=prompt('$js_lt{{"p_mnf"}','$js_lt{{"t_mnf"}');	var foldername=prompt('$lt{"p_mnf"}','$lt{"t_mnf"}');
if (foldername) {	if (foldername) {
targetform.importdetail.value=escape(foldername)+"="+folderseq;	targetform.importdetail.value=escape(foldername)+"="+folderseq;
targetform.submit();	targetform.submit();
Line 5899 function makenewfolder(targetform,folder	Line 5457 function makenewfolder(targetform,folder
}	}

function makenewpage(targetform,folderseq) {	function makenewpage(targetform,folderseq) {
var pagename=prompt('$js_lt{"p_mnp"}','$js_lt{"t_mnp"}');	var pagename=prompt('$lt{"p_mnp"}','$lt{"t_mnp"}');
if (pagename) {	if (pagename) {
targetform.importdetail.value=escape(pagename)+"="+folderseq;	targetform.importdetail.value=escape(pagename)+"="+folderseq;
targetform.submit();	targetform.submit();
Line 5907 function makenewpage(targetform,folderse	Line 5465 function makenewpage(targetform,folderse
}	}

function makeexamupload() {	function makeexamupload() {
var title=prompt('$js_lt{"p_mxu"}');	var title=prompt('$lt{"p_mxu"}');
if (title) {	if (title) {
this.document.forms.newexamupload.importdetail.value=	this.document.forms.newexamupload.importdetail.value=
escape(title)+'=/res/lib/templates/examupload.problem';	escape(title)+'=/res/lib/templates/examupload.problem';
Line 5916 function makeexamupload() {	Line 5474 function makeexamupload() {
}	}

function makesmppage() {	function makesmppage() {
var title=prompt('$js_lt{"p_msp"}');	var title=prompt('$lt{"p_msp"}');
if (title) {	if (title) {
this.document.forms.newsmppg.importdetail.value=	this.document.forms.newsmppg.importdetail.value=
escape(title)+'=/adm/$udom/$uname/new/smppg';	escape(title)+'=/adm/$udom/$uname/new/smppg';
Line 5925 function makesmppage() {	Line 5483 function makesmppage() {
}	}

function makewebpage(type) {	function makewebpage(type) {
var title=prompt('$js_lt{"p_mwp"}');	var title=prompt('$lt{"p_mwp"}');
var formname;	var formname;
if (type == 'supp') {	if (type == 'supp') {
formname = this.document.forms.supwebpage;	formname = this.document.forms.supwebpage;
Line 5933 function makewebpage(type) {	Line 5491 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 = escape(title)+'='+webpage;	formname.importdetail.value = escape(title)+'='+webpage;
formname.submit();	formname.submit();
}	}
}	}

function makesmpproblem() {	function makesmpproblem() {
var title=prompt('$js_lt{"p_msb"}');	var title=prompt('$lt{"p_msb"}');
if (title) {	if (title) {
this.document.forms.newsmpproblem.importdetail.value=	this.document.forms.newsmpproblem.importdetail.value=
escape(title)+'=/res/lib/templates/simpleproblem.problem';	escape(title)+'=/res/lib/templates/simpleproblem.problem';
Line 5949 function makesmpproblem() {	Line 5507 function makesmpproblem() {
}	}

function makedropbox() {	function makedropbox() {
var title=prompt('$js_lt{"p_mdb"}');	var title=prompt('$lt{"p_mdb"}');
if (title) {	if (title) {
this.document.forms.newdropbox.importdetail.value=	this.document.forms.newdropbox.importdetail.value=
escape(title)+'=/res/lib/templates/DropBox.problem';	escape(title)+'=/res/lib/templates/DropBox.problem';
Line 5958 function makedropbox() {	Line 5516 function makedropbox() {
}	}

function makebulboard() {	function makebulboard() {
var title=prompt('$js_lt{"p_mbb"}');	var title=prompt('$lt{"p_mbb"}');
if (title) {	if (title) {
this.document.forms.newbul.importdetail.value=	this.document.forms.newbul.importdetail.value=
escape(title)+'=/adm/$udom/$uname/new/bulletinboard';	escape(title)+'=/adm/$udom/$uname/new/bulletinboard';
Line 5967 function makebulboard() {	Line 5525 function makebulboard() {
}	}

function makeabout() {	function makeabout() {
var user=prompt("$js_lt{'p_mab'}");	var user=prompt("$lt{'p_mab'}");
if (user) {	if (user) {
var comp=new Array();	var comp=new Array();
comp=user.split(':');	comp=user.split(':');
if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) {	if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) {
if ((comp[0]) && (comp[1])) {	if ((comp[0]) && (comp[1])) {
this.document.forms.newaboutsomeone.importdetail.value=	this.document.forms.newaboutsomeone.importdetail.value=
'$js_lt{"p_mab2"}'+escape(user)+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';	'$lt{"p_mab2"}'+escape(user)+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';
this.document.forms.newaboutsomeone.submit();	this.document.forms.newaboutsomeone.submit();
} else {	} else {
alert("$js_lt{'p_mab_alrt1'}");	alert("$lt{'p_mab_alrt1'}");
}	}
} else {	} else {
alert("$js_lt{'p_mab_alrt2'}");	alert("$lt{'p_mab_alrt2'}");
}	}
}	}
}	}
Line 6018 function toggleMap(caller) {	Line 5576 function toggleMap(caller) {

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("$lt{'imsfile'}");
return;	return;
}	}
if (imsform.source.selectedIndex == 0) {	if (imsform.source.selectedIndex == 0) {
alert("$js_lt{'imscms'}");	alert("$lt{'imscms'}");
return;	return;
}	}
newWindow = window.open('', 'IMSimport',"HEIGHT=700,WIDTH=750,scrollbars=yes");	newWindow = window.open('', 'IMSimport',"HEIGHT=700,WIDTH=750,scrollbars=yes");
Line 6030 function makeims(imsform) {	Line 5588 function makeims(imsform) {
}	}

function changename(folderpath,index,oldtitle) {	function changename(folderpath,index,oldtitle) {
var title=prompt('$js_lt{"p_chn"}',oldtitle);	var title=prompt('$lt{"p_chn"}',oldtitle);
if (title) {	if (title) {
this.document.forms.renameform.markcopy.value='';	this.document.forms.renameform.markcopy.value='';
this.document.forms.renameform.title.value=title;	this.document.forms.renameform.title.value=title;
Line 6054 function updatePick(targetform,index,cal	Line 5612 function updatePick(targetform,index,cal
picknumtext = document.getElementById('randompicknum_'+index);	picknumtext = document.getElementById('randompicknum_'+index);
}	}
if (pickitem.checked) {	if (pickitem.checked) {
var picknum=prompt('$js_lt{"rpck"}',picknumitem.value);	var picknum=prompt('$lt{"rpck"}',picknumitem.value);
if (picknum == '' \|\| picknum == null) {	if (picknum == '' \|\| picknum == null) {
if (caller == 'check') {	if (caller == 'check') {
pickitem.checked=false;	pickitem.checked=false;
Line 6204 function propagateState(form,param) {	Line 5762 function propagateState(form,param) {
return;	return;
}	}

function checkForSubmit(targetform,param,context,idx,folderpath,index,oldtitle,skip_confirm,container,folder,confirm_removal) {	function checkForSubmit(targetform,param,context,idx,folderpath,index,oldtitle,skip_confirm,container,folder) {
var dosettings;	var dosettings;
var doaction;	var doaction;
var control = document.togglemultsettings;	var control = document.togglemultsettings;
Line 6242 function checkForSubmit(targetform,param	Line 5800 function checkForSubmit(targetform,param
targetform.markcopy.value=idx+':'+param;	targetform.markcopy.value=idx+':'+param;
targetform.copyfolder.value=folder+'.'+container;	targetform.copyfolder.value=folder+'.'+container;
if (param == 'remove') {	if (param == 'remove') {
var doremove = 0;	if (skip_confirm \|\| confirm('$lt{"p_rmr1"}\\n\\n$lt{"p_rmr2a"} "'+oldtitle+'" $lt{"p_rmr2b"}')) {
if (skip_confirm) {
if (confirm_removal) {
if (confirm('$js_lt{"p_rmr4"}\\n$js_lt{"p_rmr5"}\\n\\n$js_lt{"p_rmr2a"} "'+oldtitle+'"$js_lt{"p_rmr2b"}')) {
doremove = 1;
}
} else {
doremove = 1;
}
} else {
if (confirm('$js_lt{"p_rmr1"}\\n\\n$js_lt{"p_rmr2a"} "'+oldtitle+'" $js_lt{"p_rmr2b"}')) {
doremove = 1;
}
}
if (doremove) {
targetform.markcopy.value='';	targetform.markcopy.value='';
targetform.copyfolder.value='';	targetform.copyfolder.value='';
targetform.submit();	targetform.submit();
}	}
}	}
if (param == 'cut') {	if (param == 'cut') {
if (skip_confirm \|\| confirm('$js_lt{"p_ctr1a"}\\n$js_lt{"p_ctr1b"}\\n\\n$js_lt{"p_ctr2a"} "'+oldtitle+'" $js_lt{"p_ctr2b"}')) {	if (skip_confirm \|\| confirm('$lt{"p_ctr1a"}\\n$lt{"p_ctr1b"}\\n\\n$lt{"p_ctr2a"} "'+oldtitle+'" $lt{"p_ctr2b"}')) {
targetform.submit();	targetform.submit();
return;	return;
}	}
Line 6328 for (i = 0; i < currentLis.length; i++)	Line 5872 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.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);
currentDivs = currentData.getElementsByTagName('DIV');	currentDivs = currentData.getElementsByTagName('DIV');
Line 6364 function openTabs(pageId) {	Line 5906 function openTabs(pageId) {
}	}

function showPage(current, pageId, nav, data) {	function showPage(current, pageId, nav, data) {
currstate = current.className;
hideAll(current, nav, data);	hideAll(current, nav, data);
openTabs(pageId);	openTabs(pageId);
unselectInactive(nav);	unselectInactive(nav);
if ((currstate == 'active') \|\| (currstate == 'right active')) {	current.className = 'active';
if (currstate == 'active') {
current.className = '';
} else {
current.className = 'right';
}
activeTab = '';
toggleUpload();
toggleMap();
resize_scrollbox('contentscroll','1','0');
return;
} else {
current.className = 'active';
}
currentData = document.getElementById(pageId);	currentData = document.getElementById(pageId);
currentData.style.display = 'block';	currentData.style.display = 'block';
activeTab = pageId;	activeTab = pageId;
Line 6442 function togglePick(caller,value) {	Line 5970 function togglePick(caller,value) {
}	}
document.getElementById('multi'+caller).style.display=disp;	document.getElementById('multi'+caller).style.display=disp;
if (value == 1) {	if (value == 1) {
document.getElementById('more'+caller).innerHTML = '  <a href="javascript:toggleCheckUncheck(\\''+caller+'\\',1);" style="text-decoration:none;">$js_lt{'more'}</a>';	document.getElementById('more'+caller).innerHTML = '  <a href="javascript:toggleCheckUncheck(\\''+caller+'\\',1);" style="text-decoration:none;">$lt{'more'}</a>';
} else {	} else {
document.getElementById('more'+caller).innerHTML = '';	document.getElementById('more'+caller).innerHTML = '';
}	}
Line 6468 function togglePick(caller,value) {	Line 5996 function togglePick(caller,value) {

function toggleCheckUncheck(caller,more) {	function toggleCheckUncheck(caller,more) {
if (more == 1) {	if (more == 1) {
document.getElementById('more'+caller).innerHTML = '  <a href="javascript:toggleCheckUncheck(\\''+caller+'\\',0);" style="text-decoration:none;">$js_lt{'less'}</a>';	document.getElementById('more'+caller).innerHTML = '  <a href="javascript:toggleCheckUncheck(\\''+caller+'\\',0);" style="text-decoration:none;">$lt{'less'}</a>';
document.getElementById('allfields'+caller).style.display='block';	document.getElementById('allfields'+caller).style.display='block';
} else {	} else {
document.getElementById('more'+caller).innerHTML = '  <a href="javascript:toggleCheckUncheck(\\''+caller+'\\',1);" style="text-decoration:none;">$js_lt{'more'}</a>';	document.getElementById('more'+caller).innerHTML = '  <a href="javascript:toggleCheckUncheck(\\''+caller+'\\',1);" style="text-decoration:none;">$lt{'more'}</a>';
document.getElementById('allfields'+caller).style.display='none';	document.getElementById('allfields'+caller).style.display='none';
}	}
resize_scrollbox('contentscroll','1','1');	resize_scrollbox('contentscroll','1','1');
Line 6513 function checkSubmits() {	Line 6041 function checkSubmits() {
var doactions = multiActions();	var doactions = multiActions();
var cutwarnings = 0;	var cutwarnings = 0;
var remwarnings = 0;	var remwarnings = 0;
var removalinfo = 0;
if (doactions == 1) {	if (doactions == 1) {
var remidxlist = document.cumulativeactions.allremoveidx.value;	var remidxlist = document.cumulativeactions.allremoveidx.value;
if ((remidxlist != '') && (remidxlist != null)) {	if ((remidxlist != '') && (remidxlist != null)) {
Line 6528 function checkSubmits() {	Line 6055 function checkSubmits() {
remwarnings ++;	remwarnings ++;
}	}
}	}
if (document.getElementById('confirm_removal_'+remidxs[i])) {
if (document.getElementById('confirm_removal_'+remidxs[i]).value == 1) {
removalinfo ++;
}
}
}	}
}	}
}	}
Line 6631 function checkSubmits() {	Line 6153 function checkSubmits() {
}	}
if (doactions == 1) {	if (doactions == 1) {
if (numchanges > 0) {	if (numchanges > 0) {
if ((cutwarnings > 0) \|\| (remwarnings > 0) \|\| (removalinfo > 0)) {	if ((cutwarnings > 0) \|\| (remwarnings > 0)) {
if (remwarnings > 0) {	if (remwarnings > 0) {
if (!confirm('$js_lt{"p_rmr1"}\\n\\n$js_lt{"p_rmr3a"} '+remwarnings+' $js_lt{"p_rmr3b"}')) {	if (!confirm('$lt{"p_rmr1"}\\n\\n$lt{"p_rmr3a"} '+remwarnings+' $lt{"p_rmr3b"}')) {
return false;
}
}
if (removalinfo > 0) {
if (!confirm('$js_lt{"p_rmr4"}\\n$js_lt{"p_rmr5"}\\n\\n$js_lt{"p_rmr3a"} '+removalinfo+' $js_lt{"p_rmr3b"}')) {
return false;	return false;
}	}
}	}
if (cutwarnings > 0) {	if (cutwarnings > 0) {
if (!confirm('$js_lt{"p_ctr1a"}\\n$js_lt{"p_ctr1b"}\\n\\n$js_lt{"p_ctr3a"} '+cutwarnings+' $js_lt{"p_ctr3b"}')) {	if (!confirm('$lt{"p_ctr1a"}\\n$lt{"p_ctr1b"}\\n\\n$lt{"p_ctr3a"} '+cutwarnings+' $lt{"p_ctr3b"}')) {
return false;	return false;
}	}
}	}
Line 6659 function checkSubmits() {	Line 6176 function checkSubmits() {
}	}
}	}
if ((dosettings == 1) && (doactions == 1)) {	if ((dosettings == 1) && (doactions == 1)) {
alert("$js_lt{'noor'}");	alert("$lt{'noor'}");
} else {	} else {
if (dosettings == 1) {	if (dosettings == 1) {
alert("$js_lt{'noch'}");	alert("$lt{'noch'}");
} else {	} else {
alert("$js_lt{'noac'}");	alert("$lt{'noac'}");
}	}
}	}
return false;	return false;
Line 6779 ENDINJECT	Line 6296 ENDINJECT

sub dump_switchserver_js {	sub dump_switchserver_js {
my @hosts = @_;	my @hosts = @_;
my %js_lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
dump => 'Copying content to Authoring Space requires switching server.',	dump => 'Dumping to Authoring Space requires switching server.',
swit => 'Switch server?',
);
my %html_js_lt = &Apache::lonlocal::texthash(
swit => 'Switch server?',	swit => 'Switch server?',
duco => 'Copying Content to Authoring Space',	duco => 'Dump content to Authoring Space',
yone => 'You need to switch to a server housing an Authoring Space for which you are author or co-author.',	yone => 'You need to switch to a server housing an Authoring Space for which you are author or co-author.',
chos => 'Choose server',	chos => 'Choose server',
);	);
&js_escape(\%js_lt);
&html_escape(\%html_js_lt);
&js_escape(\%html_js_lt);
my $role = $env{'request.role'};	my $role = $env{'request.role'};
my $js = <<"ENDSWJS";	my $js = <<"ENDSWJS";
<script type="text/javascript">	<script type="text/javascript">
Line 6832 ENDSWJS	Line 6343 ENDSWJS

function dump_needs_switchserver(url) {	function dump_needs_switchserver(url) {
if (url!='' && url!= null) {	if (url!='' && url!= null) {
if (confirm("$js_lt{'dump'}\\n$js_lt{'swit'}")) {	if (confirm("$lt{'dump'}\\n$lt{'swit'}")) {
go(url);	go(url);
}	}
}	}
Line 6843 function choose_switchserver_window() {	Line 6354 function choose_switchserver_window() {
newWindow = window.open('','ChooseServer','height=400,width=500,scrollbars=yes')	newWindow = window.open('','ChooseServer','height=400,width=500,scrollbars=yes')
newWindow.document.open();	newWindow.document.open();
newWindow.document.writeln('$startpage');	newWindow.document.writeln('$startpage');
newWindow.document.write('<h3>$html_js_lt{'duco'}<\\/h3>\\n'+	newWindow.document.write('<h3>$lt{'duco'}<\\/h3>\\n'+
'<p>$html_js_lt{'yone'}<\\/p>\\n'+	'<p>$lt{'yone'}<\\/p>\\n'+
'<div class="LC_left_float"><fieldset><legend>$html_js_lt{'chos'}<\\/legend>\\n'+	'<div class="LC_left_float"><fieldset><legend>$lt{'chos'}<\\/legend>\\n'+
'<form name="setserver" method="post" action="" \\/>\\n'+	'<form name="setserver" method="post" action="" \\/>\\n'+
'$hostpicker\\n'+	'$hostpicker\\n'+
'<br \\/><br \\/>\\n'+	'<br \\/><br \\/>\\n'+
'<input type="button" name="makeswitch" value="$html_js_lt{'swit'}" '+	'<input type="button" name="makeswitch" value="$lt{'swit'}" '+
'onclick="write_switchserver();" \\/>\\n'+	'onclick="write_switchserver();" \\/>\\n'+
'<\\/form><\\/fieldset><\\/div><br clear="all" \\/>\\n');	'<\\/form><\\/fieldset><\\/div><br clear="all" \\/>\\n');
newWindow.document.writeln('$endpage');	newWindow.document.writeln('$endpage');

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

Removed from v.1.484.2.63
changed lines
	Added in v.1.563