Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.484.2.7 and 1.484.2.23

version 1.484.2.7, 2012/07/31 23:38:13	version 1.484.2.23, 2013/01/09 17:23:58
Line 40 use Apache::lonxml;	Line 40 use Apache::lonxml;
use Apache::lonclonecourse;	use Apache::lonclonecourse;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
use Apache::lonnavdisplay();	use Apache::lonnavdisplay();
use Apache::lonuserstate();	use Apache::lonextresedit();
use HTML::Entities;	use HTML::Entities;
use HTML::TokeParser;	use HTML::TokeParser;
use GDBM_File;	use GDBM_File;
Line 270 sub dumpcourse {	Line 270 sub dumpcourse {

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,
	%removeparam,$importuploaded,$fixuperrors);
	$allmaps = {};
while (@files) {	while (@files) {
my ($name, $url, $residx) = @{ shift(@files) };	my ($name, $url, $residx) = @{ shift(@files) };
if (($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page\|sequence)$})	if (($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page\|sequence)$})
Line 296 sub group_import {	Line 298 sub group_import {
}	}
}	}
if ($url) {	if ($url) {
	if (($caller eq 'londocs') &&
	($folder =~ /^default/)) {
	unless ($donechk) {
	my $chome = &Apache::lonnet::homeserver($coursenum,$coursedom);
	my $cid = $coursedom.'_'.$coursenum;
	$allmaps =
	&Apache::loncommon::allmaps_incourse($coursedom,$coursenum,
	$chome,$cid);
	$donechk = 1;
	}
	if ($url =~ m{^/uploaded/\Q$coursedom\E/\Q$coursenum\E/(default_\d+\.)(page\|sequence)$}) {
	&contained_map_check($url,$folder,\%removefrommap,\%removeparam,
	\%addedmaps,\%hierarchy,\%titles,$allmaps);
	$importuploaded = 1;
	} elsif ($url =~ m{^/res/.+\.(page\|sequence)$}) {
	next if ($allmaps->{$url});
	}
	}
if (!$residx	if (!$residx
\|\| defined($LONCAPA::map::zombies[$residx])) {	\|\| defined($LONCAPA::map::zombies[$residx])) {
$residx = &LONCAPA::map::getresidx($url,$residx);	$residx = &LONCAPA::map::getresidx($url,$residx);
Line 309 sub group_import {	Line 329 sub group_import {
join(':', ($name, $url, $ext, 'normal', 'res'));	join(':', ($name, $url, $ext, 'normal', 'res'));
}	}
}	}
return &storemap($coursenum, $coursedom, $folder.'.'.$container,1);	if ($importuploaded) {
}	my %import_errors;
	my %updated = (
sub breadcrumbs {	removefrommap => \%removefrommap,
my ($allowed,$crstype)=@_;	removeparam => \%removeparam,
&Apache::lonhtmlcommon::clear_breadcrumbs();	);
my (@folders);	&apply_fixups($folder,1,$coursedom,$coursenum,\%import_errors,\%updated);
if ($env{'form.pagepath'}) {	if (keys(%import_errors) > 0) {
@folders = split('&',$env{'form.pagepath'});	$fixuperrors =
} else {	'<p span class="LC_warning">'."\n".
@folders=split('&',$env{'form.folderpath'});	&mt('The following files are either dependencies of a web page or references within a folder and/or composite page for which errors occurred during import:')."\n".
}	'<ul>'."\n";
my $folderpath;	foreach my $key (sort(keys(%import_errors))) {
my $cpinfo='';	$fixuperrors .= '<li>'.$key.'</li>'."\n";
my $plain='';	}
my $randompick=-1;	$fixuperrors .= '</ul></p>'."\n";
my $isencrypted=0;	}
my $ishidden=0;	}
my $is_random_order=0;	my ($errtext,$fatal) =
while (@folders) {	&storemap($coursenum, $coursedom, $folder.'.'.$container,1);
my $folder=shift(@folders);	return ($errtext,$fatal,$fixuperrors);
my $foldername=shift(@folders);
if ($folderpath) {$folderpath.='&';}
$folderpath.=$folder.'&'.$foldername;
my $url;
if ($allowed) {
$url = '/adm/coursedocs?folderpath=';
} else {
$url = '/adm/supplemental?folderpath=';
}
$url .= &escape($folderpath);
my $name=&unescape($foldername);
# randompick number, hidden, encrypted, random order, is appended with ":"s to the foldername
$name=~s/\:(\d)\:(\w)\:(\w):(\d)$//;
if ($1 ne '') {
$randompick=$1;
} else {
$randompick=-1;
}
if ($2) { $ishidden=1; }
if ($3) { $isencrypted=1; }
if ($4 ne '') { $is_random_order = 1; }
if ($folder eq 'supplemental') {
$name = &mt('Supplemental '.$crstype.' Content');
}
&Apache::lonhtmlcommon::add_breadcrumb(
{'href'=>$url.$cpinfo,
'title'=>$name,
'text'=>$name,
'no_mt'=>1,
});
$plain.=$name.' > ';
}
$plain=~s/\&gt\;\s*$//;
return (&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp',
undef, undef, 1 ),$randompick,$ishidden,
$isencrypted,$plain,$is_random_order);
}	}

sub log_docs {	sub log_docs {
return &Apache::lonnet::instructor_log('docslog',@_);	return &Apache::lonnet::write_log('course','docslog',@_);
}	}

{	{
Line 446 sub docs_change_log {	Line 430 sub docs_change_log {
my %orderhash;	my %orderhash;
my $container='sequence';	my $container='sequence';
my $pathitem;	my $pathitem;
if ($env{'form.pagepath'}) {	if ($env{'form.folderpath'} =~ /\:1$/) {
$container='page';	$container='page';
$pathitem = '<input type="hidden" name="pagepath" value="'.
&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />';
} else {
my $folderpath=$env{'form.folderpath'};
if ($folderpath eq '') {
$folderpath = 'default&'.&escape(&mt('Main '.$crstype.' Documents'));
}
$pathitem = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
}	}
	my $folderpath=$env{'form.folderpath'};
	if ($folderpath eq '') {
	$folderpath = 'default&'.&escape(&mt('Main '.$crstype.' Documents').':::::');
	}
	$pathitem = '<input type="hidden" name="folderpath" value="'.
	&HTML::Entities::encode($folderpath,'<>&"').'" />';
my $readfile="/uploaded/$coursedom/$coursenum/$folder.$container";	my $readfile="/uploaded/$coursedom/$coursenum/$folder.$container";
my $jumpto = $readfile;	my $jumpto = $readfile;
$jumpto =~ s{^/}{};	$jumpto =~ s{^/}{};
Line 464 sub docs_change_log {	Line 446 sub docs_change_log {
if ($supplementalflag) {	if ($supplementalflag) {
$tid = 2;	$tid = 2;
}	}
my ($breadcrumbtrail) = &breadcrumbs($allowed,$crstype);	my ($breadcrumbtrail) =
	&Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
$r->print($breadcrumbtrail.	$r->print($breadcrumbtrail.
&generate_edit_table($tid,\%orderhash,undef,$iconpath,$jumpto,	&generate_edit_table($tid,\%orderhash,undef,$iconpath,$jumpto,
$readfile));	$readfile));
Line 538 sub docs_change_log {	Line 521 sub docs_change_log {
':'.$docslog{$id}{'exe_udom'}.'</tt>'.	':'.$docslog{$id}{'exe_udom'}.'</tt>'.
$send_msg_link.'</td><td>'.	$send_msg_link.'</td><td>'.
$docslog{$id}{'logentry'}{'folder'}.'</td><td>');	$docslog{$id}{'logentry'}{'folder'}.'</td><td>');
my $is_supp = 0;	my $is_supp = 0;
if ($docslog{$id}{'logentry'}{'currentfolder'} =~ /^supplemental/) {	if ($docslog{$id}{'logentry'}{'currentfolder'} =~ /^supplemental/) {
$is_supp = 1;	$is_supp = 1;
}	}
Line 561 sub docs_change_log {	Line 544 sub docs_change_log {
if ($is_supp) {	if ($is_supp) {
$shown = &Apache::loncommon::parse_supplemental_title($shown);	$shown = &Apache::loncommon::parse_supplemental_title($shown);
}	}
$r->print('<li>'.$shown.'</li>');	$r->print('<li>'.$shown.'</li>');
}	}
}	}
$r->print('</ul>');	$r->print('</ul>');
Line 707 sub print_paste_buffer {	Line 690 sub print_paste_buffer {
$is_external = 1;	$is_external = 1;
}	}

my ($canpaste,$nopaste,$othercrs,$areachange,$is_uploaded_map);	my ($canpaste,$nopaste,$othercrs,$areachange);
if ($folder =~ /^supplemental/) {	if ($folder =~ /^supplemental/) {
$canpaste = &supp_pasteable($env{'docs.markedcopy_url'});	$canpaste = &supp_pasteable($env{'docs.markedcopy_url'});
unless ($canpaste) {	unless ($canpaste) {
$nopaste = &mt('Paste into Supplemental Content unavailable for this type of content.');	$nopaste = &mt('Paste into Supplemental Content unavailable for this type of content.');
}	}
} else {	} else {
$canpaste = 1;	$canpaste = 1;
}	}
Line 726 sub print_paste_buffer {	Line 709 sub print_paste_buffer {
$othercourse = 1;	$othercourse = 1;
if ($env{"user.priv.cm./$srcdom/$srcnum"} =~ /\Q:mdc&F\E/) {	if ($env{"user.priv.cm./$srcdom/$srcnum"} =~ /\Q:mdc&F\E/) {
if ($canpaste) {	if ($canpaste) {
$othercrs = '<br />'.&mt('(from another course).');	$othercrs = '<br />'.&mt('(from another course).');
}	}
} else {	} else {
$canpaste = 0;	$canpaste = 0;
$nopaste = &mt('Paste from another course unavailable.')	$nopaste = &mt('Paste from another course unavailable.')
}	}
}	}
if ($rem =~ m{^(default\|supplemental)_?(\d*)\.(?:page\|sequence)$}) {	if ($rem =~ m{^(default\|supplemental)_?(\d*)\.(?:page\|sequence)$}) {
Line 748 sub print_paste_buffer {	Line 731 sub print_paste_buffer {
.'<legend>'.&mt('Clipboard').'</legend>');	.'<legend>'.&mt('Clipboard').'</legend>');
my ($type,$buffer);	my ($type,$buffer);
if ($is_external) {	if ($is_external) {
$type = &mt('External Resource');	$type = &mt('External Resource');
$buffer = $type.': '.	$buffer = $type.': '.
&LONCAPA::map::qtescape($env{'docs.markedcopy_title'}).' ('.	&LONCAPA::map::qtescape($env{'docs.markedcopy_title'}).' ('.
&LONCAPA::map::qtescape($env{'docs.markedcopy_url'}).')';	&LONCAPA::map::qtescape($env{'docs.markedcopy_url'}).')';
} else {	} else {
my $icon = &Apache::loncommon::icon($extension);	my $icon = &Apache::loncommon::icon($extension);
if ($extension eq 'sequence' &&	if ($extension eq 'sequence' &&
$env{'docs.markedcopy_url'} =~ m{/default_\d+\.sequence$ }x) {	$env{'docs.markedcopy_url'} =~ m{/default_\d+\.sequence$ }x) {
$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';
}	}
$icon = '<img src="'.$icon.'" alt="" class="LC_icon" />';	$icon = '<img src="'.$icon.'" alt="" class="LC_icon" />';
$buffer = $icon.$type.': '. &Apache::loncommon::parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'}));	$buffer = $icon.$type.': '. &Apache::loncommon::parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'}));
}	}
if ($canpaste) {	if ($canpaste) {
Line 773 sub print_paste_buffer {	Line 756 sub print_paste_buffer {
'<label>'.	'<label>'.
'<input type="radio" name="docs.markedcopy_options" value="new" checked="checked" />'.	'<input type="radio" name="docs.markedcopy_options" value="new" checked="checked" />'.
&mt('Copy to new folder').'</label>'.(' ' x2).	&mt('Copy to new folder').'</label>'.(' ' x2).
'<label>'.	'<label>'.
'<input type="radio" name="docs.markedcopy_options" value="move" />'.	'<input type="radio" name="docs.markedcopy_options" value="move" />'.
&mt('Move old folder').'</label><br />');	&mt('Move old folder').'</label><br />');
if ($env{'docs.markedcopy_nested'}) {	if ($env{'docs.markedcopy_nested'}) {
Line 785 sub print_paste_buffer {	Line 768 sub print_paste_buffer {
my %depths = (	my %depths = (
$lastdir => 0,	$lastdir => 0,
);	);
my (%display,%deps);	my (%display,%deps);
for (my $i=0; $i<@pastemaps; $i++) {	for (my $i=0; $i<@pastemaps; $i++) {
($lastdir,my $subfolderstr) = split(/\:/,$pastemaps[$i]);	($lastdir,my $subfolderstr) = split(/\:/,$pastemaps[$i]);
my ($namedir,$esctitlestr) = split(/\:/,$titles[$i]);	my ($namedir,$esctitlestr) = split(/\:/,$titles[$i]);
Line 797 sub print_paste_buffer {	Line 780 sub print_paste_buffer {
my $indent = (' ' x $offset);	my $indent = (' ' x $offset);
for (my $j=0; $j<@subfolders; $j++) {	for (my $j=0; $j<@subfolders; $j++) {
$depths{$subfolders[$j]} = $depth;	$depths{$subfolders[$j]} = $depth;
$display{$subfolders[$j]} =	$display{$subfolders[$j]} =
'<tr><td>'.$indent.$subfoldertitles[$j].' </td>'.	'<tr><td>'.$indent.$subfoldertitles[$j].' </td>'.
'<td><label>'.	'<td><label>'.
'<input type="radio" name="docs.markedcopy_'.$subfolders[$j].'" value="new" checked="checked" />'.&mt('Copy to new').'</label>'.(' ' x2).	'<input type="radio" name="docs.markedcopy_'.$subfolders[$j].'" value="new" checked="checked" />'.&mt('Copy to new').'</label>'.(' ' x2).
Line 814 sub print_paste_buffer {	Line 797 sub print_paste_buffer {
}	}
}	}
$r->print('<br /><input type="submit" name="pastemarked" value="'.&mt('Paste').'" />'.$othercrs);	$r->print('<br /><input type="submit" name="pastemarked" value="'.&mt('Paste').'" />'.$othercrs);
if ($container eq 'page') {	$r->print('
$r->print('
<input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />
<input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />
');
} else {
$r->print('
<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />	<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />
');	');
}
$r->print('</form>');	$r->print('</form>');
} else {	} else {
$r->print(&mt('Paste buffer contains:').' '.$buffer.	$r->print(&mt('Paste buffer contains:').' '.$buffer.
Line 902 sub do_paste_from_buffer {	Line 878 sub do_paste_from_buffer {

my ($is_map,$srcdom,$srcnum,$prefixchg,%before,%after,%mapchanges,%tomove);	my ($is_map,$srcdom,$srcnum,$prefixchg,%before,%after,%mapchanges,%tomove);
if ($url=~/\.(page\|sequence)$/) {	if ($url=~/\.(page\|sequence)$/) {
$is_map = 1;	$is_map = 1;
}	}
if ($url =~ m{^/uploaded/($match_domain)/($match_courseid)/([^/]+)}) {	if ($url =~ m{^/uploaded/($match_domain)/($match_courseid)/([^/]+)}) {
$srcdom = $1;	$srcdom = $1;
$srcnum = $2;	$srcnum = $2;
my $oldprefix = $3;	my $oldprefix = $3;
# When paste buffer was populated using an active role in a different course	# When paste buffer was populated using an active role in a different course
# check for mdc privilege in the course from which the resource was pasted	# check for mdc privilege in the course from which the resource was pasted
if (($srcdom ne $coursedom) \|\| ($srcnum ne $coursenum)) {	if (($srcdom ne $coursedom) \|\| ($srcnum ne $coursenum)) {
unless ($env{"user.priv.cm./$srcdom/$srcnum"} =~ /\Q:mdc&F\E/) {	unless ($env{"user.priv.cm./$srcdom/$srcnum"} =~ /\Q:mdc&F\E/) {
return (&mt('Paste failed: Item is from a different course which you do not have rights to edit.'));	return (&mt('Paste failed: Item is from a different course which you do not have rights to edit.'));
}	}
}	}
# When pasting content from Main Content to Supplemental Content and vice versa	# When pasting content from Main Content to Supplemental Content and vice versa
# URLs will contain different paths (which depend on whether pasted item is	# URLs will contain different paths (which depend on whether pasted item is
# a folder/page or a document.	# a folder/page or a document.
if (($folder =~ /^supplemental/) && (($oldprefix =~ /^default/) \|\| ($oldprefix eq 'docs'))) {	if (($folder =~ /^supplemental/) && (($oldprefix =~ /^default/) \|\| ($oldprefix eq 'docs'))) {
$prefixchg = 1;	$prefixchg = 1;
%before = ( map => 'default',	%before = ( map => 'default',
Line 958 sub do_paste_from_buffer {	Line 934 sub do_paste_from_buffer {
%dbcopies,%zombies,%params,%docmoves,%mapmoves,%newsubdir,%newurls);	%dbcopies,%zombies,%params,%docmoves,%mapmoves,%newsubdir,%newurls);
$oldurl = $url;	$oldurl = $url;
if ($is_map) {	if ($is_map) {
if ($folder =~ /^default/) {
my $lastchange = &Apache::lonnet::get_coursechange($coursedom,$coursenum);
if ($lastchange > $env{'request.course.tied'}) {
&reinit_role($coursedom,$coursenum,$env{"course.$env{'request.course.id'}.home"});
}
}
# If pasting a map, check if map contains other maps	# If pasting a map, check if map contains other maps
my (%allmaps,%hierarchy,%titles);	my ($allmaps,%hierarchy,%titles);
	$allmaps = {};
if ($folder =~ /^default/) {	if ($folder =~ /^default/) {
my $navmap = Apache::lonnavmaps::navmap->new();	$allmaps =
if (defined($navmap)) {	&Apache::loncommon::allmaps_incourse($coursedom,$coursenum,
foreach my $res ($navmap->retrieveResources(undef,sub { $_[0]->is_map() },1,0,1)) {	$env{"course.$env{'request.course.id'}.home"},
$allmaps{$res->src()} = 1;	$env{'request.course.id'});
}
}
}	}
&contained_map_check($url,$folder,\%removefrommap,\%removeparam,	&contained_map_check($url,$folder,\%removefrommap,\%removeparam,
\%addedmaps,\%hierarchy,\%titles,\%allmaps);	\%addedmaps,\%hierarchy,\%titles,$allmaps);
if ($url=~ m{^/uploaded/}) {	if ($url=~ m{^/uploaded/}) {
my $newurl;	my $newurl;
unless ($env{'form.docs.markedcopy_options'} eq 'move') {	unless ($env{'form.docs.markedcopy_options'} eq 'move') {
($newurl,my $error) =	($newurl,my $error) =
&get_newmap_url($url,$folder,$prefixchg,$coursedom,$coursenum,	&get_newmap_url($url,$folder,$prefixchg,$coursedom,$coursenum,
$srcdom,$srcnum,\$title,\%allmaps,\%newurls);	$srcdom,$srcnum,\$title,$allmaps,\%newurls);
if ($error) {	if ($error) {
return ($error);	return ($error);
}	}
Line 997 sub do_paste_from_buffer {	Line 966 sub do_paste_from_buffer {
if (($srcdom ne $coursedom) \|\| ($srcnum ne $coursenum) \|\| ($prefixchg) \|\|	if (($srcdom ne $coursedom) \|\| ($srcnum ne $coursenum) \|\| ($prefixchg) \|\|
(($newurl ne '') && ($newurl ne $url))) {	(($newurl ne '') && ($newurl ne $url))) {
unless (&url_paste_fixups($url,$folder,$prefixchg,$coursedom,$coursenum,	unless (&url_paste_fixups($url,$folder,$prefixchg,$coursedom,$coursenum,
\%allmaps,\%rewrites,\%retitles,\%copies,\%dbcopies,	$allmaps,\%rewrites,\%retitles,\%copies,\%dbcopies,
\%zombies,\%params,\%mapmoves,\%mapchanges,\%tomove,	\%zombies,\%params,\%mapmoves,\%mapchanges,\%tomove,
\%newsubdir,\%newurls)) {	\%newsubdir,\%newurls)) {
$mapmoves{$url} = 1;	$mapmoves{$url} = 1;
}	}
$url = $newurl;	$url = $newurl;
} elsif ($env{'docs.markedcopy_nested'}) {	} elsif ($env{'docs.markedcopy_nested'}) {
&url_paste_fixups($url,$folder,$prefixchg,$coursedom,$coursenum,\%allmaps,\%rewrites,	&url_paste_fixups($url,$folder,$prefixchg,$coursedom,$coursenum,$allmaps,\%rewrites,
\%retitles,\%copies,\%dbcopies,\%zombies,\%params,\%mapmoves,	\%retitles,\%copies,\%dbcopies,\%zombies,\%params,\%mapmoves,
\%mapchanges,\%tomove,\%newsubdir,\%newurls);	\%mapchanges,\%tomove,\%newsubdir,\%newurls);
}	}
} elsif ($url=~m {^/res/}) {	} elsif ($url=~m {^/res/}) {
# published maps can only exists once, so remove it from paste buffer when done	# published maps can only exists once, so remove it from paste buffer when done
&Apache::lonnet::delenv('docs.markedcopy');	&Apache::lonnet::delenv('docs.markedcopy');
# if pasting published map (main content are only) check map is not already in course	# if pasting published map (main content are only) check map is not already in course
if ($folder =~ /^default/) {	if ($folder =~ /^default/) {
if ($allmaps{$url}) {	if ((ref($allmaps) eq 'HASH') && ($allmaps->{$url})) {
return (&mt('Paste failed: only one instance of a particular published sequence or page is allowed within each course.'));	return (&mt('Paste failed: only one instance of a particular published sequence or page is allowed within each course.'));
}	}
}	}
}	}
}	}
if ($url=~ m{/smppg$}) {	if ($url=~ m{/smppg$}) {
my $db_name = &Apache::lonsimplepage::get_db_name($url);	my $db_name = &Apache::lonsimplepage::get_db_name($url);
if ($db_name =~ /^smppage_/) {	if ($db_name =~ /^smppage_/) {
#simple pages, need to copy the db contents to a new one.	#simple pages, need to copy the db contents to a new one.
my %contents=&Apache::lonnet::dump($db_name,$coursedom,$coursenum);	my %contents=&Apache::lonnet::dump($db_name,$coursedom,$coursenum);
my $now = time();	my $now = time();
$db_name =~ s{_\d*$ }{_$now}x;	$db_name =~ s{_\d*$ }{_$now}x;
my $dbresult=&Apache::lonnet::put($db_name,\%contents,	my $dbresult=&Apache::lonnet::put($db_name,\%contents,
$coursedom,$coursenum);	$coursedom,$coursenum);
if ($dbresult eq 'ok') {	if ($dbresult eq 'ok') {
$url =~ s{/(\d*)/smppg$ }{/$now/smppg}x;	$url =~ s{/(\d*)/smppg$ }{/$now/smppg}x;
$title=&mt('Copy of').' '.$title;	$title=&mt('Copy of').' '.$title;
} else {	} else {
return (&mt('Paste failed: An error occurred when copying the simple page.'));	return (&mt('Paste failed: An error occurred when copying the simple page.'));
}	}
}	}
}	}
$title = &LONCAPA::map::qtunescape($title);	$title = &LONCAPA::map::qtunescape($title);
my $ext='false';	my $ext='false';
Line 1077 sub do_paste_from_buffer {	Line 1046 sub do_paste_from_buffer {
}	}
}	}
}	}
# Apply any changes to maps, or copy dependencies for uploaded HTML pages	# Apply any changes to maps, or copy dependencies for uploaded HTML pages
my ($result,$save_err);	my ($result,$save_err);
	my %updated = (
	rewrites => \%rewrites,
	zombies => \%zombies,
	removefrommap => \%removefrommap,
	removeparam => \%removeparam,
	dbcopies => \%dbcopies,
	retitles => \%retitles,
	);
	my %info = (
	newsubdir => \%newsubdir,
	params => \%params,
	before => \%before,
	after => \%after,
	);
	my %moves = (
	copies => \%copies,
	docmoves => \%docmoves,
	mapmoves => \%mapmoves,
	);
$result =	$result =
&apply_fixups($folder,$is_map,$prefixchg,$coursedom,$coursenum,$oldurl,	&apply_fixups($folder,$is_map,$coursedom,$coursenum,$errors,
$url,\%removefrommap,\%removeparam,\%rewrites,\%retitles,	\%updated,\%info,\%moves,$prefixchg,$oldurl,$url,'paste');
\%copies,\%dbcopies,\%zombies,\%params,\%docmoves,
\%mapmoves,\%newsubdir,$errors,\%before,\%after);
if ($result eq 'ok') {	if ($result eq 'ok') {
if ($is_map) {	if ($is_map) {
my ($errtext,$fatal) = &mapread($coursenum,$coursedom,	my ($errtext,$fatal) = &mapread($coursenum,$coursedom,
$folder.'.'.$container);	$folder.'.'.$container);
return $errtext if ($fatal);	return $errtext if ($fatal);
Line 1109 sub do_paste_from_buffer {	Line 1095 sub do_paste_from_buffer {
$env{'user.domain'}.'___&&&___'.$title;	$env{'user.domain'}.'___&&&___'.$title;
}	}
}	}
$LONCAPA::map::resources[$newidx]= $title.':'.$url.':'.$ext.':normal:res';	$LONCAPA::map::resources[$newidx]= $title.':'.$url.':'.$ext.':normal:res';
push(@LONCAPA::map::order, $newidx);	push(@LONCAPA::map::order, $newidx);

# Store the result	# Store the result
my ($errtext,$fatal) =	my ($errtext,$fatal) =
&storemap($coursenum,$coursedom,$folder.'.'.$container,1);	&storemap($coursenum,$coursedom,$folder.'.'.$container,1);
if ($fatal) {	if ($fatal) {
$save_err = $errtext;	$save_err = $errtext;
}	}
}	}

if ($env{'form.docs.markedcopy_options'} eq 'move') {	if ($env{'form.docs.markedcopy_options'} eq 'move') {
&Apache::lonnet::delenv('docs.markedcopy');	&Apache::lonnet::delenv('docs.markedcopy');
&Apache::lonnet::delenv('docs.markedcopy_nested');	&Apache::lonnet::delenv('docs.markedcopy_nested');
Line 1258 sub contained_map_check {	Line 1244 sub contained_map_check {
if (ref($removeparam->{$url}{$token->[2]->{'to'}}) eq 'ARRAY') {	if (ref($removeparam->{$url}{$token->[2]->{'to'}}) eq 'ARRAY') {
push(@{$removeparam->{$url}{$token->[2]->{'to'}}},$token->[2]->{'name'});	push(@{$removeparam->{$url}{$token->[2]->{'to'}}},$token->[2]->{'name'});
} else {	} else {
$removeparam->{$url}{$token->[2]->{'to'}} = [$token->[2]->{'name'}];	$removeparam->{$url}{$token->[2]->{'to'}} = [$token->[2]->{'name'}];
}	}
}	}
}	}
Line 1267 sub contained_map_check {	Line 1253 sub contained_map_check {
return;	return;
}	}

sub reinit_role {
my ($cdom,$cnum,$chome) = @_;
my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
unless ($ferr) {
&Apache::loncommon::update_content_constraints($cdom,$cnum,$chome,$cdom.'_'.$cnum);
}
return;
}

sub url_paste_fixups {	sub url_paste_fixups {
my ($oldurl,$folder,$prefixchg,$cdom,$cnum,$allmaps,$rewrites,$retitles,$copies,	my ($oldurl,$folder,$prefixchg,$cdom,$cnum,$allmaps,$rewrites,$retitles,$copies,
$dbcopies,$zombies,$params,$mapmoves,$mapchanges,$tomove,$newsubdir,$newurls) = @_;	$dbcopies,$zombies,$params,$mapmoves,$mapchanges,$tomove,$newsubdir,$newurls) = @_;
Line 1310 sub url_paste_fixups {	Line 1287 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}{$ressrc} = $id;	$zombies->{$oldurl}{$ressrc} = $id;
$changed = 1;	$changed = 1;
} elsif ($ressrc =~ m{^/uploaded/($match_domain)/($match_courseid)/(.+)$}) {	} elsif ($ressrc =~ m{^/uploaded/($match_domain)/($match_courseid)/(.+)$}) {
Line 1342 sub url_paste_fixups {	Line 1319 sub url_paste_fixups {
}	}
if (($srcdom ne $cdom) \|\| ($srcnum ne $cnum) \|\| ($prefixchg) \|\|	if (($srcdom ne $cdom) \|\| ($srcnum ne $cnum) \|\| ($prefixchg) \|\|
($mapchanges->{$oldurl}) \|\| (($newurl ne '') && ($newurl ne $oldurl))) {	($mapchanges->{$oldurl}) \|\| (($newurl ne '') && ($newurl ne $oldurl))) {

if ($rem =~ /^(default\|supplemental)(_?\d*).(sequence\|page)$/) {	if ($rem =~ /^(default\|supplemental)(_?\d*).(sequence\|page)$/) {
$rewrites->{$oldurl}{$ressrc} = $id;	$rewrites->{$oldurl}{$ressrc} = $id;
$mapchanges->{$ressrc} = 1;	$mapchanges->{$ressrc} = 1;
Line 1360 sub url_paste_fixups {	Line 1337 sub url_paste_fixups {
}	}
}	}
} elsif ($ressrc =~ m{^/adm/($match_domain)/($match_courseid)/(.+)$}) {	} elsif ($ressrc =~ m{^/adm/($match_domain)/($match_courseid)/(.+)$}) {
next if ($skip);	next if ($skip);
my $srcdom = $1;	my $srcdom = $1;
my $srcnum = $2;	my $srcnum = $2;
if (($srcdom ne $cdom) \|\| ($srcnum ne $cnum)) {	if (($srcdom ne $cdom) \|\| ($srcnum ne $cnum)) {
Line 1380 sub url_paste_fixups {	Line 1357 sub url_paste_fixups {
}	}
} elsif ($token->[1] eq 'param') {	} elsif ($token->[1] eq 'param') {
next if ($skip);	next if ($skip);
my $to = $token->[2]->{'to'};	my $to = $token->[2]->{'to'};
if ($to ne '') {	if ($to ne '') {
if (ref($params->{$oldurl}{$to}) eq 'ARRAY') {	if (ref($params->{$oldurl}{$to}) eq 'ARRAY') {
push(@{$params->{$oldurl}{$to}},$token->[2]->{'name'});	push(@{$params->{$oldurl}{$to}},$token->[2]->{'name'});
Line 1394 sub url_paste_fixups {	Line 1371 sub url_paste_fixups {
}	}

sub apply_fixups {	sub apply_fixups {
my ($folder,$is_map,$prefixchg,$cdom,$cnum,$oldurl,$url,$removefrommap,	my ($folder,$is_map,$cdom,$cnum,$errors,$updated,$info,$moves,$prefixchg,
$removeparam,$rewrites,$retitles,$copies,$dbcopies,$zombies,$params,	$oldurl,$url,$caller) = @_;
$docmoves,$mapmoves,$newsubdir,$errors,$before,$after) = @_;	my (%rewrites,%zombies,%removefrommap,%removeparam,%dbcopies,%retitles,
foreach my $key (keys(%{$copies}),keys(%{$docmoves})) {	%params,%newsubdir,%before,%after,%copies,%docmoves,%mapmoves);
	if (ref($updated) eq 'HASH') {
	if (ref($updated->{'rewrites'}) eq 'HASH') {
	%rewrites = %{$updated->{'rewrites'}};
	}
	if (ref($updated->{'zombies'}) eq 'HASH') {
	%zombies = %{$updated->{'zombies'}};
	}
	if (ref($updated->{'removefrommap'}) eq 'HASH') {
	%removefrommap = %{$updated->{'removefrommap'}};
	}
	if (ref($updated->{'removeparam'}) eq 'HASH') {
	%removeparam = %{$updated->{'removeparam'}};
	}
	if (ref($updated->{'dbcopies'}) eq 'HASH') {
	%dbcopies = %{$updated->{'dbcopies'}};
	}
	if (ref($updated->{'retitles'}) eq 'HASH') {
	%retitles = %{$updated->{'retitles'}};
	}
	}
	if (ref($info) eq 'HASH') {
	if (ref($info->{'newsubdir'}) eq 'HASH') {
	%newsubdir = %{$info->{'newsubdir'}};
	}
	if (ref($info->{'params'}) eq 'HASH') {
	%params = %{$info->{'params'}};
	}
	if (ref($info->{'before'}) eq 'HASH') {
	%before = %{$info->{'before'}};
	}
	if (ref($info->{'after'}) eq 'HASH') {
	%after = %{$info->{'after'}};
	}
	}
	if (ref($moves) eq 'HASH') {
	if (ref($moves->{'copies'}) eq 'HASH') {
	%copies = %{$moves->{'copies'}};
	}
	if (ref($moves->{'docmoves'}) eq 'HASH') {
	%docmoves = %{$moves->{'docmoves'}};
	}
	if (ref($moves->{'mapmoves'}) eq 'HASH') {
	%mapmoves = %{$moves->{'mapmoves'}};
	}
	}
	foreach my $key (keys(%copies),keys(%docmoves)) {
my @allcopies;	my @allcopies;
if (ref($copies->{$key}) eq 'HASH') {	if (exists($copies{$key})) {
my %added;	if (ref($copies{$key}) eq 'HASH') {
foreach my $innerkey (keys(%{$copies->{$key}})) {	my %added;
if (($innerkey ne '') && (!$added{$innerkey})) {	foreach my $innerkey (keys(%{$copies{$key}})) {
push(@allcopies,$innerkey);	if (($innerkey ne '') && (!$added{$innerkey})) {
$added{$innerkey} = 1;	push(@allcopies,$innerkey);
	$added{$innerkey} = 1;
	}
}	}
	undef(%added);
}	}
undef(%added);
}	}
if ($key eq $oldurl) {	if ($key eq $oldurl) {
if ((exists($docmoves->{$key}))) {	if ((exists($docmoves{$key}))) {
unless (grep(/^\Q$oldurl\E/,@allcopies)) {	unless (grep(/^\Q$oldurl\E/,@allcopies)) {
push(@allcopies,$oldurl);	push(@allcopies,$oldurl);
}	}
Line 1418 sub apply_fixups {	Line 1443 sub apply_fixups {
}	}
if (@allcopies > 0) {	if (@allcopies > 0) {
foreach my $item (@allcopies) {	foreach my $item (@allcopies) {
my ($relpath,$oldsubdir,$fname) =	my ($relpath,$oldsubdir,$fname) =
($item =~ m{^(/uploaded/$match_domain/$match_courseid/(?:docs\|supplemental)/(default\|\d+)/.*/)([^/]+)$});	($item =~ m{^(/uploaded/$match_domain/$match_courseid/(?:docs\|supplemental)/(default\|\d+)/.*/)([^/]+)$});
if ($fname ne '') {	if ($fname ne '') {
my $content = &Apache::lonnet::getfile($item);	my $content = &Apache::lonnet::getfile($item);
unless ($content eq '-1') {	unless ($content eq '-1') {
my $storefn;	my $storefn;
if (($key eq $oldurl) && (ref($docmoves) eq 'HASH') && (exists($docmoves->{$key}))) {	if (($key eq $oldurl) && (exists($docmoves{$key}))) {
$storefn = $docmoves->{$key};	$storefn = $docmoves{$key};
} else {	} else {
$storefn = $relpath;	$storefn = $relpath;
$storefn =~s{^/uploaded/$match_domain/$match_courseid/}{};	$storefn =~s{^/uploaded/$match_domain/$match_courseid/}{};
if ($prefixchg) {	if ($prefixchg && $before{'doc'} && $after{'doc'}) {
$storefn =~ s/^\Q$before->{'doc'}\E/$after->{'doc'}/;	$storefn =~ s/^\Q$before{'doc'}\E/$after{'doc'}/;
}	}
if ($newsubdir->{$key}) {	if ($newsubdir{$key}) {
$storefn =~ s#^(docs\|supplemental)/\Q$oldsubdir\E/#$1/$newsubdir->{$key}#;	$storefn =~ s#^(docs\|supplemental)/\Q$oldsubdir\E/#$1/$newsubdir{$key}#;
}	}
}	}
&copy_dependencies($item,$storefn,$relpath,$errors,\$content);	&copy_dependencies($item,$storefn,$relpath,$errors,\$content);
my $copyurl =	my $copyurl =
&Apache::lonclonecourse::writefile($env{'request.course.id'},	&Apache::lonclonecourse::writefile($env{'request.course.id'},
$storefn.$fname,$content);	$storefn.$fname,$content);
if ($copyurl eq '/adm/notfound.html') {	if ($copyurl eq '/adm/notfound.html') {
if ((ref($docmoves) eq 'HASH') && (exists($docmoves->{$oldurl}))) {	if (exists($docmoves{$oldurl})) {
return &mt('Paste failed: an error occurred copying the file.');	return &mt('Paste failed: an error occurred copying the file.');
} elsif (ref($errors) eq 'HASH') {	} elsif (ref($errors) eq 'HASH') {
$errors->{$item} = 1;	$errors->{$item} = 1;
Line 1452 sub apply_fixups {	Line 1477 sub apply_fixups {
}	}
}	}
}	}
foreach my $key (keys(%{$mapmoves})) {	foreach my $key (keys(%mapmoves)) {
my $storefn=$key;	my $storefn=$key;
$storefn=~s{^/uploaded/$match_domain/$match_courseid/}{};	$storefn=~s{^/uploaded/$match_domain/$match_courseid/}{};
if ($prefixchg) {	if ($prefixchg && $before{'map'} && $after{'map'}) {
$storefn =~ s/^\Q$before->{'map'}\E/$after->{'map'}/;	$storefn =~ s/^\Q$before{'map'}\E/$after{'map'}/;
}	}
if ($newsubdir->{$key}) {	if ($newsubdir{$key}) {
$storefn =~ s/^((?:default\|supplemental)_)(\d+)/$1$newsubdir->{$key}/;	$storefn =~ s/^((?:default\|supplemental)_)(\d+)/$1$newsubdir{$key}/;
}	}
my $mapcontent = &Apache::lonnet::getfile($key);	my $mapcontent = &Apache::lonnet::getfile($key);
if ($mapcontent eq '-1') {	if ($mapcontent eq '-1') {
Line 1479 sub apply_fixups {	Line 1504 sub apply_fixups {
}	}
my %updates;	my %updates;
if ($is_map) {	if ($is_map) {
foreach my $key (keys(%{$rewrites})) {	if (ref($updated) eq 'HASH') {
$updates{$key} = 1;	foreach my $type (keys(%{$updated})) {
}	if (ref($updated->{$type}) eq 'HASH') {
foreach my $key (keys(%{$zombies})) {	foreach my $key (keys(%{$updated->{$type}})) {
$updates{$key} = 1;	$updates{$key} = 1;
}	}
foreach my $key (keys(%{$removefrommap})) {	}
$updates{$key} = 1;	}
}
foreach my $key (keys(%{$removeparam})) {
$updates{$key} = 1;
}
foreach my $key (keys(%{$dbcopies})) {
$updates{$key} = 1;
}
foreach my $key (keys(%{$retitles})) {
$updates{$key} = 1;
}	}
foreach my $key (keys(%updates)) {	foreach my $key (keys(%updates)) {
my (%torewrite,%toretitle,%toremove,%remparam,%currparam,%zombie,%newdb);	my (%torewrite,%toretitle,%toremove,%remparam,%currparam,%zombie,%newdb);
if (ref($rewrites->{$key}) eq 'HASH') {	if (ref($rewrites{$key}) eq 'HASH') {
%torewrite = %{$rewrites->{$key}};	%torewrite = %{$rewrites{$key}};
}	}
if (ref($retitles->{$key}) eq 'HASH') {	if (ref($retitles{$key}) eq 'HASH') {
%toretitle = %{$retitles->{$key}};	%toretitle = %{$retitles{$key}};
}	}
if (ref($removefrommap->{$key}) eq 'HASH') {	if (ref($removefrommap{$key}) eq 'HASH') {
%toremove = %{$removefrommap->{$key}};	%toremove = %{$removefrommap{$key}};
}	}
if (ref($removeparam->{$key}) eq 'HASH') {	if (ref($removeparam{$key}) eq 'HASH') {
%remparam = %{$removeparam->{$key}};	%remparam = %{$removeparam{$key}};
}	}
if (ref($zombies->{$key}) eq 'HASH') {	if (ref($zombies{$key}) eq 'HASH') {
%zombie = %{$zombies->{$key}};	%zombie = %{$zombies{$key}};
}	}
if (ref($dbcopies->{$key}) eq 'HASH') {	if (ref($dbcopies{$key}) eq 'HASH') {
foreach my $item (keys(%{$dbcopies->{$key}})) {	foreach my $item (keys(%{$dbcopies{$key}})) {
$newdb{$item} = &dbcopy($item);	$newdb{$item} = &dbcopy($item);
}	}
}	}
if (ref($params->{$key}) eq 'HASH') {	if (ref($params{$key}) eq 'HASH') {
%currparam = %{$params->{$key}};	%currparam = %{$params{$key}};
}	}
my ($errtext,$fatal) = &LONCAPA::map::mapread($key);	my ($errtext,$fatal) = &LONCAPA::map::mapread($key);
if ($fatal) {	if ($fatal) {
Line 1534 sub apply_fixups {	Line 1550 sub apply_fixups {
}	}
}	}
}	}
for (my $i=0; $i<@LONCAPA::map::resources; $i++) {	for (my $i=0; $i<@LONCAPA::map::order; $i++) {
if (defined($LONCAPA::map::resources[$i])) {	my $idx = $LONCAPA::map::order[$i];
	if (defined($LONCAPA::map::resources[$idx])) {
my $changed;	my $changed;
my ($title,$src,$ext,$type)=split(/\:/,$LONCAPA::map::resources[$i]);	my ($title,$src,$ext,$type)=split(/\:/,$LONCAPA::map::resources[$idx]);
if ($toremove{$src} eq $i) {	if ((exists($toremove{$idx})) && ($toremove{$idx} eq $src)) {
splice(@LONCAPA::map::order,$i,1);	splice(@LONCAPA::map::order,$i,1);
if (ref($currparam{$i}) eq 'ARRAY') {	if (ref($currparam{$idx}) eq 'ARRAY') {
foreach my $name (@{$currparam{$i}}) {	foreach my $name (@{$currparam{$idx}}) {
&LONCAPA::map::delparameter($i,'parameter_'.$name);	&LONCAPA::map::delparameter($idx,'parameter_'.$name);
}	}
}	}
next;	next;
}	}
my $origsrc = $src;	my $origsrc = $src;
if ((exists($toretitle{$src})) && ($toretitle{$src} eq $i)) {	if ((exists($toretitle{$src})) && ($toretitle{$src} eq $idx)) {
if ($title =~ m{^\d+\Q___&&&___\E$match_username\Q___&&&___\E$match_domain\Q___&&&___\E(.+)$}) {	if ($title =~ m{^\d+\Q___&&&___\E$match_username\Q___&&&___\E$match_domain\Q___&&&___\E(.+)$}) {
$changed = 1;	$changed = 1;
}	}
}	}
if ((exists($torewrite{$src})) && ($torewrite{$src} eq $i)) {	if ((exists($torewrite{$src})) && ($torewrite{$src} eq $idx)) {
$src =~ s{^/(uploaded\|adm\|public)/$match_domain/$match_courseid/}{/$1/$cdom/$cnum/};	$src =~ s{^/(uploaded\|adm\|public)/$match_domain/$match_courseid/}{/$1/$cdom/$cnum/};
if ($origsrc =~ m{^/uploaded/}) {	if ($origsrc =~ m{^/uploaded/}) {
if ($prefixchg) {	if ($prefixchg && $before{'map'} && $after{'map'}) {
if ($src =~ /\.(page\|sequence)$/) {	if ($src =~ /\.(page\|sequence)$/) {
$src =~ s#^(/uploaded/$match_domain/$match_courseid/)\Q$before->{'map'}\E#$1$after->{'map'}#;	$src =~ s#^(/uploaded/$match_domain/$match_courseid/)\Q$before{'map'}\E#$1$after{'map'}#;
} else {	} else {
$src =~ s#^(/uploaded/$match_domain/$match_courseid/)\Q$before->{'doc'}\E#$1$after->{'doc'}#;	$src =~ s#^(/uploaded/$match_domain/$match_courseid/)\Q$before{'doc'}\E#$1$after{'doc'}#;
}	}
}	}
if ($newsubdir->{$origsrc}) {	if ($newsubdir{$origsrc}) {
if ($src =~ /\.(page\|sequence)$/) {	if ($src =~ /\.(page\|sequence)$/) {
$src =~ s#^(/uploaded/$match_domain/$match_courseid/(?:default\|supplemental)_)(\d+)#$1$newsubdir->{$origsrc}#;	$src =~ s#^(/uploaded/$match_domain/$match_courseid/(?:default\|supplemental)_)(\d+)#$1$newsubdir{$origsrc}#;
} else {	} else {
$src =~ s#^(/uploaded/$match_domain/$match_courseid/\w+/)(\d+)#$1$newsubdir->{$origsrc}#;	$src =~ s#^(/uploaded/$match_domain/$match_courseid/\w+/)(\d+)#$1$newsubdir{$origsrc}#;
}	}
}	}
}	}
Line 1577 sub apply_fixups {	Line 1594 sub apply_fixups {
$changed = 1;	$changed = 1;
}	}
if ($changed) {	if ($changed) {
$LONCAPA::map::resources[$i] = join(':',($title,$src,$ext,$type));	$LONCAPA::map::resources[$idx] = join(':',($title,$src,$ext,$type));
}	}
}	}
}	}
foreach my $idx (keys(%remparam)) {	foreach my $idx (keys(%remparam)) {
if (ref($remparam{$idx}) eq 'ARRAY') {	if (ref($remparam{$idx}) eq 'ARRAY') {
foreach my $name (@{$remparam{$idx}}) {	foreach my $name (@{$remparam{$idx}}) {
&LONCAPA::map::delparameter($idx,'parameter_'.$name);	&LONCAPA::map::delparameter($idx,'parameter_'.$name);
}	}
}	}
Line 1595 sub apply_fixups {	Line 1612 sub apply_fixups {
} else {	} else {
$storefn = $key;	$storefn = $key;
$storefn=~s{^/uploaded/$match_domain/$match_courseid/}{};	$storefn=~s{^/uploaded/$match_domain/$match_courseid/}{};
if ($prefixchg) {	if ($prefixchg && $before{'map'} && $after{'map'}) {
$storefn =~ s/^\Q$before->{'map'}\E/$after->{'map'}/;	$storefn =~ s/^\Q$before{'map'}\E/$after{'map'}/;
}	}
if ($newsubdir->{$key}) {	if ($newsubdir{$key}) {
$storefn =~ s/^((?:default\|supplemental)_)(\d+)/$1$newsubdir->{$key}/;	$storefn =~ s/^((?:default\|supplemental)_)(\d+)/$1$newsubdir{$key}/;
}	}
}	}
my $report;	my $report;
if ($folder !~ /^supplemental/) {	if ($folder !~ /^supplemental/) {
$report = 1;	$report = 1;
}	}
my ($outtext,$errtext) =	(my $outtext,$errtext) =
&LONCAPA::map::storemap("/uploaded/$cdom/$cnum/$storefn",1,$report);	&LONCAPA::map::storemap("/uploaded/$cdom/$cnum/$storefn",1,$report);
if ($errtext) {	if ($errtext) {
return &mt('Paste failed: an error occurred saving the folder or page.');	if ($caller eq 'paste') {
	return &mt('Paste failed: an error occurred saving the folder or page.');
	}
}	}
}	}
}	}
Line 1744 sub handle_edit_cmd {	Line 1763 sub handle_edit_cmd {

sub editor {	sub editor {
my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$crstype,	my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$crstype,
$supplementalflag,$orderhash,$iconpath)=@_;	$supplementalflag,$orderhash,$iconpath,$pathitem)=@_;
my $container= ($env{'form.pagepath'}) ? 'page'	my ($randompick,$ishidden,$isencrypted,$plain,$is_random_order,$container);
: 'sequence';	if ($allowed) {
	(my $breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,
my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order) =	$is_random_order,$container) =
&breadcrumbs($allowed,$crstype);	&Apache::lonhtmlcommon::docs_breadcrumbs($allowed,$crstype,1);
$r->print($breadcrumbtrail);	$r->print($breadcrumbtrail);
	} elsif ($env{'form.folderpath'} =~ /\:1$/) {
	$container = 'page';
	} else {
	$container = 'sequence';
	}

my $jumpto = "uploaded/$coursedom/$coursenum/$folder.$container";	my $jumpto;

	unless ($supplementalflag) {
	$jumpto = "'uploaded/$coursedom/$coursenum/$folder.$container'";
	}

unless ($allowed) {	unless ($allowed) {
$randompick = -1;	$randompick = -1;
Line 1796 sub editor {	Line 1824 sub editor {
&do_paste_from_buffer($coursenum,$coursedom,$folder,$container,	&do_paste_from_buffer($coursenum,$coursedom,$folder,$container,
\%paste_errors);	\%paste_errors);
if ($save_error ne '') {	if ($save_error ne '') {
return $save_error;	return $save_error;
}	}
if ($paste_res ne 'ok') {	if ($paste_res ne 'ok') {
$r->print('<p><span class="LC_error">'.$paste_res.'</span></p>');	$r->print('<p><span class="LC_error">'.$paste_res.'</span></p>');
Line 1829 sub editor {	Line 1857 sub editor {
if (defined($item)) {	if (defined($item)) {
my ($name,$url,$residx)=	my ($name,$url,$residx)=
map {&unescape($_)} split(/\=/,$item);	map {&unescape($_)} split(/\=/,$item);
	if ($url=~ m{^\Q/uploaded/$coursedom/$coursenum/\E(default\|supplemental)_new\.(sequence\|page)$}) {
	my ($suffix,$errortxt,$locknotfreed) =
	&newmap_suffix($1,$2,$coursedom,$coursenum);
	if ($locknotfreed) {
	$r->print($locknotfreed);
	}
	if ($suffix) {
	$url =~ s/_new\./_$suffix./;
	} else {
	return $errortxt;
	}
	}
push(@imports, [$name, $url, $residx]);	push(@imports, [$name, $url, $residx]);
}	}
}	}
($errtext,$fatal)=&group_import($coursenum, $coursedom, $folder,	($errtext,$fatal,my $fixuperrors) =
$container,'londocs',@imports);	&group_import($coursenum, $coursedom, $folder,$container,
	'londocs',@imports);
return $errtext if ($fatal);	return $errtext if ($fatal);
	if ($fixuperrors) {
	$r->print($fixuperrors);
	}
}	}
# Loading a complete map	# Loading a complete map
if ($env{'form.loadmap'}) {	if ($env{'form.loadmap'}) {
Line 1900 sub editor {	Line 1944 sub editor {
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { $idx++; next; }	unless ($name) { $idx++; next; }
$output .= &entryline($idx,$name,$url,$folder,$allowed,$res,	$output .= &entryline($idx,$name,$url,$folder,$allowed,$res,
$coursenum,$crstype);	$coursenum,$coursedom,$crstype,
	$pathitem,$supplementalflag,$container);
$idx++;	$idx++;
$shown++;	$shown++;
}	}
&Apache::loncommon::end_data_table_count();	&Apache::loncommon::end_data_table_count();

if ($shown) {	if (($allowed) \|\| ($supplementalflag && $folder eq 'supplemental')) {
$to_show = &Apache::loncommon::start_scrollbox('900px','880px','400px','contentscroll')	my $toolslink = '<table><tr><td>'
.&Apache::loncommon::start_data_table(undef,'contentlist');	.&Apache::loncommon::help_open_menu('Navigation Screen',
if ($allowed) {	'Navigation_Screen',undef,'RAT')
$to_show .= &Apache::loncommon::start_data_table_header_row()	.'</td><td class="LC_middle">'.&mt('Tools:').'</td>'
.'<th colspan="2">'.&mt('Move').'</th>'	.'<td align="left"><ul id="LC_toolbar">'
.'<th>'.&mt('Actions').'</th>'	.'<li><a href="/adm/coursedocs?forcesupplement=1&command=editsupp" '
.'<th colspan="2">'.&mt('Document').'</th>';	.'id="LC_content_toolbar_edittoplevel" '
if ($folder !~ /^supplemental/) {	.'class="LC_toolbarItem" '
$to_show .= '<th colspan="4">'.&mt('Settings').'</th>';	.'title="'.&mt('Supplemental Content Editor').'">'
	.'</a></li></ul></td></tr></table><br />';
	if ($shown) {
	if ($allowed) {
	$to_show = &Apache::loncommon::start_scrollbox('900px','880px','400px','contentscroll')
	.&Apache::loncommon::start_data_table(undef,'contentlist')
	.&Apache::loncommon::start_data_table_header_row()
	.'<th colspan="2">'.&mt('Move').'</th>'
	.'<th>'.&mt('Actions').'</th>'
	.'<th colspan="2">'.&mt('Document').'</th>';
	if ($folder !~ /^supplemental/) {
	$to_show .= '<th colspan="4">'.&mt('Settings').'</th>';
	}
	$to_show .= &Apache::loncommon::end_data_table_header_row()
	.$output.' '
	.&Apache::loncommon::end_data_table()
	.'<br style="line-height:2px;" />'
	.&Apache::loncommon::end_scrollbox();
	} else {
	$to_show .= $toolslink
	.&Apache::loncommon::start_data_table('LC_tableOfContent')
	.$output.' '
	.&Apache::loncommon::end_data_table();
}	}
$to_show .= &Apache::loncommon::end_data_table_header_row();	} else {
	if (!$allowed) {
	$to_show .= $toolslink;
	}
	$to_show .= &Apache::loncommon::start_scrollbox('400px','380px','200px','contentscroll')
	.'<div class="LC_info" id="contentlist">'
	.&mt('Currently no documents.')
	.'</div>'
	.&Apache::loncommon::end_scrollbox();
}	}
$to_show .= $output.' '
.&Apache::loncommon::end_data_table()
.'<br style="line-height:2px;" />'
.&Apache::loncommon::end_scrollbox();
} else {	} else {
$to_show .= &Apache::loncommon::start_scrollbox('400px','380px','200px','contentscroll')	if ($shown) {
.'<div class="LC_info" id="contentlist">'	$to_show = '<div>'
.&mt('Currently no documents.')	.&Apache::loncommon::start_data_table('LC_tableOfContent')
.'</div>'	.$output
.&Apache::loncommon::end_scrollbox();	.&Apache::loncommon::end_data_table()
	.'</div>';
	} else {
	$to_show = '<div class="LC_info" id="contentlist">'
	.&mt('Currently no documents.')
	.'</div>'
	}
}	}
my $tid = 1;	my $tid = 1;
if ($supplementalflag) {	if ($supplementalflag) {
Line 1940 sub editor {	Line 2017 sub editor {
$readfile));	$readfile));
&print_paste_buffer($r,$container,$folder,$coursedom,$coursenum);	&print_paste_buffer($r,$container,$folder,$coursedom,$coursenum);
} else {	} else {
if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
#Function Box for Supplemental Content for users with mdc priv.
my $funcname = &mt('Folder Editor');
$r->print(
&Apache::loncommon::head_subbox(
&Apache::lonhtmlcommon::start_funclist().
&Apache::lonhtmlcommon::add_item_funclist(
'<a href="/adm/coursedocs?command=direct&forcesupplement=1&'.
'supppath='.&HTML::Entities::encode($env{'form.folderpath'}).'">'.
'<img src="/res/adm/pages/docs.png" alt="'.$funcname.'" class="LC_icon" />'.
'<span class="LC_menubuttons_inline_text">'.$funcname.'</span></a>').
&Apache::lonhtmlcommon::end_funclist()));
}
$r->print($to_show);	$r->print($to_show);
}	}
return;	return;
Line 1973 sub process_file_upload {	Line 2037 sub process_file_upload {
my $errtext='';	my $errtext='';
my $fatal=0;	my $fatal=0;
my $container='sequence';	my $container='sequence';
if ($env{'form.pagepath'}) {	if ($env{'form.folderpath'} =~ /:1$/) {
$container='page';	$container='page';
}	}
($errtext,$fatal)=	($errtext,$fatal)=
Line 2063 sub process_file_upload {	Line 2127 sub process_file_upload {
my $archiveurl = &HTML::Entities::encode($url,'<>&"');	my $archiveurl = &HTML::Entities::encode($url,'<>&"');
my %archiveitems = (	my %archiveitems = (
folderpath => $env{'form.folderpath'},	folderpath => $env{'form.folderpath'},
pagepath => $env{'form.pagepath'},
cmd => $nextphase,	cmd => $nextphase,
newidx => $newidx,	newidx => $newidx,
position => $position,	position => $position,
Line 2117 sub is_supplemental_title {	Line 2180 sub is_supplemental_title {
# --------------------------------------------------------------- An entry line	# --------------------------------------------------------------- An entry line

sub entryline {	sub entryline {
my ($index,$title,$url,$folder,$allowed,$residx,$coursenum,$crstype)=@_;	my ($index,$title,$url,$folder,$allowed,$residx,$coursenum,$coursedom,
my ($foldertitle,$pagetitle,$renametitle);	$crstype,$pathitem,$supplementalflag,$container)=@_;
	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);
$pagetitle = $foldertitle;
} else {	} else {
$title=&HTML::Entities::encode($title,'"<>&\'');	$title=&HTML::Entities::encode($title,'"<>&\'');
$renametitle=$title;	$renametitle=$title;
$foldertitle=$title;	$foldertitle=$title;
$pagetitle=$title;
}	}

my $orderidx=$LONCAPA::map::order[$index];	my $orderidx=$LONCAPA::map::order[$index];


$renametitle=~s/\\/\\\\/g;	$renametitle=~s/\\/\\\\/g;
$renametitle=~s/\&quot\;/\\\"/g;	$renametitle=~s/\&quot\;/\\\"/g;
$renametitle=~s/ /%20/g;	$renametitle=~s/ /%20/g;
my $line=&Apache::loncommon::start_data_table_row();	my $line=&Apache::loncommon::start_data_table_row();
my ($form_start,$form_end,$form_common);	my ($form_start,$form_end,$form_common);
# Edit commands	# Edit commands
my ($container, $type, $esc_path, $path, $symb);	my ($type, $esc_path, $path, $symb);
	if ($container eq 'page') {
	$type = 'page';
	} else {
	$type = 'folder';
	}
if ($env{'form.folderpath'}) {	if ($env{'form.folderpath'}) {
$type = 'folder';
$container = 'sequence';
$esc_path=&escape($env{'form.folderpath'});	$esc_path=&escape($env{'form.folderpath'});
$path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');	$path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
# $htmlfoldername=&HTML::Entities::encode($env{'form.foldername'},'<>&"');	# $htmlfoldername=&HTML::Entities::encode($env{'form.foldername'},'<>&"');
}	}
if ($env{'form.pagepath'}) {	my $isexternal;
$type = $container = 'page';	if ($residx) {
$esc_path=&escape($env{'form.pagepath'});	my $currurl = $url;
$path = &HTML::Entities::encode($env{'form.pagepath'},'<>&"');	$currurl =~ s{^http(\|s)(&colon;\|:)//}{/adm/wrapper/ext/};
$symb=&escape($env{'form.pagesymb'});	if ($currurl =~ m{^/adm/wrapper/ext/}) {
	$isexternal = 1;
	}
	if (!$supplementalflag) {
	my $path = 'uploaded/'.
	$env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.
	$env{'course.'.$env{'request.course.id'}.'.num'}.'/';
	$symb = &Apache::lonnet::encode_symb($path.$folder.".$container",
	$residx,
	&Apache::lonnet::declutter($currurl));
	}
}	}
my $cpinfo='';	my ($renamelink,%lt);
if ($allowed) {	if ($allowed) {
my $incindex=$index+1;	my $incindex=$index+1;
my $selectbox='';	my $selectbox='';
Line 2175 sub entryline {	Line 2249 sub entryline {
}	}
$selectbox.='</select>';	$selectbox.='</select>';
}	}
my %lt=&Apache::lonlocal::texthash(	%lt=&Apache::lonlocal::texthash(
'up' => 'Move Up',	'up' => 'Move Up',
'dw' => 'Move Down',	'dw' => 'Move Down',
'rm' => 'Remove',	'rm' => 'Remove',
'ct' => 'Cut',	'ct' => 'Cut',
'rn' => 'Rename',	'rn' => 'Rename',
'cp' => 'Copy');	'cp' => 'Copy',
	'ex' => 'External Resource',
	'ed' => 'Edit',
	'pr' => 'Preview',
	'sv' => 'Save',
	'ul' => 'URL',
	'ti' => 'Title',
	);
my $nocopy=0;	my $nocopy=0;
my $nocut=0;	my $nocut=0;
	my $noremove=0;
if ($url=~ m{^/res/.+\.(page\|sequence)$}) {	if ($url=~ m{^/res/.+\.(page\|sequence)$}) {
# no copy for published maps	# no copy for published maps
$nocopy=1;	$nocopy=1;
}	}
if ($url=~/^\/res\/lib\/templates\//) {	if ($url=~/^\/res\/lib\/templates\//) {
$nocopy=1;	$nocopy=1;
$nocut=1;	$nocut=1;
}	}
my $copylink=' ';	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cutlink=' ';	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	if ($url eq "/uploaded/$cdom/$cnum/group_allfolders.sequence") {
	if ($env{'form.folderpath'} =~ /^default&[^\&]+$/) {
	my %curr_groups = &Apache::longroup::coursegroups();
	if (keys(%curr_groups) > 0) {
	$noremove=1;
	}
	$nocut=1;
	$nocopy=1;
	}
	} elsif ($url =~ m{^\Q/uploaded/$cdom/$cnum/group_folder_\E(\w+)\.sequence$}) {
	my $group = $1;
	if ($env{'form.folderpath'} =~ /^default&[^\&]+\&group_allfolders\&[^\&]+$/) {
	my %curr_group = &Apache::longroup::coursegroups($cdom,$cnum,$group);
	if (keys(%curr_group) > 0) {
	$noremove=1;
	}
	}
	$nocut=1;
	$nocopy=1;
	} elsif ($url =~ m{^\Q/adm/$cdom/$cnum/\E(\w+)/smppg$}) {
	my $group = $1;
	if ($env{'form.folderpath'} =~ /^default&[^\&]+\&group_allfolders\&[^\&]+\&\Qgroup_folder_$group\E\&[^\&]+$/) {
	my %curr_group = &Apache::longroup::coursegroups($cdom,$cnum,$group);
	my %groupsettings = &Apache::longroup::get_group_settings($curr_group{$group});
	if (keys(%groupsettings) > 0) {
	$noremove=1;
	}
	$nocut=1;
	$nocopy=1;
	}
	} elsif ($env{'form.folderpath'} =~ /^default&[^\&]+\&group_allfolders\&[^\&]+\&group_folder_(\w+)\&/) {
	my $group = $1;
	my %curr_group = &Apache::longroup::coursegroups($cdom,$cnum,$group);
	if ($url =~ /group_boards_\Q$group\E/) {
	my %curr_group = &Apache::longroup::coursegroups($cdom,$cnum,$group);
	my %groupsettings = &Apache::longroup::get_group_settings($curr_group{$group});
	if (keys(%groupsettings) > 0) {
	if (ref($groupsettings{'functions'}) eq 'HASH') {
	if ($groupsettings{'functions'}{'discussion'} eq 'on') {
	$noremove=1;
	}
	}
	}
	$nocut=1;
	$nocopy=1;
	}
	}
	my ($copylink,$cutlink,$removelink);
my $skip_confirm = 0;	my $skip_confirm = 0;
if ( $folder =~ /^supplemental/	if ( $folder =~ /^supplemental/
\|\| ($url =~ m{( /smppg$	\|\| ($url =~ m{( /smppg$
Line 2202 sub entryline {	Line 2331 sub entryline {
\|/aboutme$	\|/aboutme$
\|/navmaps$	\|/navmaps$
\|/bulletinboard$	\|/bulletinboard$
\|\.html$	\|\.html$)}x)
\|^/adm/wrapper/ext)}x)) {	\|\| $isexternal) {
$skip_confirm = 1;	$skip_confirm = 1;
}	}

if (!$nocopy) {	if ($nocopy) {
	$copylink=(<<ENDCOPY);
	<span style="visibility: hidden;">$lt{'cp'}</span>
	ENDCOPY
	} else {
$copylink=(<<ENDCOPY);	$copylink=(<<ENDCOPY);
<a href="javascript:markcopy('$esc_path','$index','$renametitle','$container','$symb','$folder');" class="LC_docs_copy">$lt{'cp'}</a>	<a href="javascript:markcopy('$esc_path','$index','$renametitle','$container','$folder');" class="LC_docs_copy">$lt{'cp'}</a>
ENDCOPY	ENDCOPY
}	}
if (!$nocut) {	if ($nocut) {
	$cutlink=(<<ENDCUT);
	<span style="visibility: hidden;">$lt{'ct'}</span>
	ENDCUT
	} else {
$cutlink=(<<ENDCUT);	$cutlink=(<<ENDCUT);
<a href="javascript:cutres('$esc_path','$index','$renametitle','$container','$symb','$folder',$skip_confirm);" class="LC_docs_cut">$lt{'ct'}</a>	<a href="javascript:cutres('$esc_path','$index','$renametitle','$container','$folder',$skip_confirm);" class="LC_docs_cut">$lt{'ct'}</a>
ENDCUT	ENDCUT
}	}
	if ($noremove) {
	$removelink=(<<ENDREM);
	<span style="visibility: hidden;">$lt{'rm'}</a>
	ENDREM
	} else {
	$removelink=(<<ENDREM);
	<a href='javascript:removeres("$esc_path","$index","$renametitle",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>
	ENDREM
	}
	unless ($isexternal) {
	$renamelink=(<<ENDREN);
	<a href='javascript:changename("$esc_path","$index","$renametitle");' class="LC_docs_rename">$lt{'rn'}</a>
	ENDREN
	}
$form_start = '	$form_start = '
<form action="/adm/coursedocs" method="post">	<form action="/adm/coursedocs" method="post">
';	';
Line 2230 END	Line 2381 END
$line.=(<<END);	$line.=(<<END);
<td>	<td>
<div class="LC_docs_entry_move">	<div class="LC_docs_entry_move">
<a href='/adm/coursedocs?cmd=up_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'>	<a href='/adm/coursedocs?cmd=up_$index&${type}path=$esc_path&${type}symb=$symb'>
<img src="${iconpath}move_up.gif" alt='$lt{'up'}' class="LC_icon" />	<img src="${iconpath}move_up.gif" alt="$lt{'up'}" class="LC_icon" />
</a>	</a>
</div>	</div>
<div class="LC_docs_entry_move">	<div class="LC_docs_entry_move">
<a href='/adm/coursedocs?cmd=down_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'>	<a href='/adm/coursedocs?cmd=down_$index&${type}path=$esc_path&${type}symb=$symb'>
<img src="${iconpath}move_down.gif" alt='$lt{'dw'}' class="LC_icon" />	<img src="${iconpath}move_down.gif" alt="$lt{'dw'}" class="LC_icon" />
</a>	</a>
</div>	</div>
</td>	</td>
Line 2246 END	Line 2397 END
$selectbox	$selectbox
$form_end	$form_end
</td>	</td>
<td class="LC_docs_entry_commands">	<td class="LC_docs_entry_commands"><span class="LC_nobreak">
<a href='javascript:removeres("$esc_path","$index","$renametitle","$container","$symb",$skip_confirm);' class="LC_docs_remove">$lt{'rm'}</a>	$removelink
$cutlink	$cutlink
<a href='javascript:changename("$esc_path","$index","$renametitle","$container","$symb");' class="LC_docs_rename">$lt{'rn'}</a>
$copylink	$copylink
	</span>
</td>	</td>
END	END

Line 2259 END	Line 2410 END
my ($extension)=($url=~/\.(\w+)$/);	my ($extension)=($url=~/\.(\w+)$/);
my $uploaded=($url=~/^\/*uploaded\//);	my $uploaded=($url=~/^\/*uploaded\//);
my $icon=&Apache::loncommon::icon($url);	my $icon=&Apache::loncommon::icon($url);
my $isfolder=0;	my $isfolder;
my $ispage=0;	my $ispage;
my $folderarg;	my $containerarg;
my $pagearg;
my $pagefile;
if ($uploaded) {	if ($uploaded) {
if (($extension eq 'sequence') \|\| ($extension eq 'page')) {	if (($extension eq 'sequence') \|\| ($extension eq 'page')) {
$url=~/\Q$coursenum\E\/([\/\w]+)\.\Q$extension\E$/;	$url=~/\Q$coursenum\E\/([\/\w]+)\.\Q$extension\E$/;
my $containerarg = $1;	$containerarg = $1;
if ($extension eq 'sequence') {	if ($extension eq 'sequence') {
$icon=$iconpath.'navmap.folder.closed.gif';	$icon=$iconpath.'navmap.folder.closed.gif';
$folderarg=$containerarg;
$isfolder=1;	$isfolder=1;
} else {	} else {
$icon=$iconpath.'page.gif';	$icon=$iconpath.'page.gif';
$pagearg=$containerarg;
$ispage=1;	$ispage=1;
}	}
if ($allowed) {	if ($allowed) {
Line 2287 END	Line 2434 END
}	}
}	}

	my ($editlink,$extresform);
my $orig_url = $url;	my $orig_url = $url;
$orig_url=~s{http(&colon;\|:)//https(&colon;\|:)//}{https$2//};	$orig_url=~s{http(&colon;\|:)//https(&colon;\|:)//}{https$2//};
my $external = ($url=~s{^http(\|s)(&colon;\|:)//}{/adm/wrapper/ext/});	$url=~s{^http(\|s)(&colon;\|:)//}{/adm/wrapper/ext/};
if ((!$isfolder) && ($residx) && ($folder!~/supplemental/) && (!$ispage)) {	if (!$supplementalflag && $residx && $symb) {
my $symb=&Apache::lonnet::symbclean(	if ((!$isfolder) && (!$ispage)) {
&Apache::lonnet::declutter('uploaded/'.	(undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
$env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.	$url=&Apache::lonnet::clutter($url);
$env{'course.'.$env{'request.course.id'}.'.num'}.'/'.$folder.	if ($url=~/^\/*uploaded\//) {
'.sequence').	$url=~/\.(\w+)$/;
'___'.$residx.'___'.	my $embstyle=&Apache::loncommon::fileembstyle($1);
&Apache::lonnet::declutter($url));	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {
(undef,undef,$url)=&Apache::lonnet::decode_symb($symb);	$url='/adm/wrapper'.$url;
$url=&Apache::lonnet::clutter($url);	} elsif ($embstyle eq 'ssi') {
if ($url=~/^\/*uploaded\//) {	#do nothing with these
$url=~/\.(\w+)$/;	} elsif ($url!~/\.(sequence\|page)$/) {
my $embstyle=&Apache::loncommon::fileembstyle($1);	$url='/adm/coursedocs/showdoc'.$url;
if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {	}
$url='/adm/wrapper'.$url;	} elsif ($url=~m\|^/ext/\|) {
} elsif ($embstyle eq 'ssi') {	$url='/adm/wrapper'.$url;
#do nothing with these
} elsif ($url!~/\.(sequence\|page)$/) {
$url='/adm/coursedocs/showdoc'.$url;
}	}
} elsif ($url=~m\|^/ext/\|) {	if (&Apache::lonnet::symbverify($symb,$url)) {
$url='/adm/wrapper'.$url;	$url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
$external = 1;	} else {
}	$url='';
if (&Apache::lonnet::symbverify($symb,$url)) {	}
$url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
} else {
$url='';
}
if ($container eq 'page') {
my $symb=$env{'form.pagesymb'};

$url=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($symb))[2]);
$url.=(($url=~/\?/)?'&':'?').'symb='.&escape($symb);
}	}
}	}
my ($rand_pick_text,$rand_order_text);	my ($rand_pick_text,$rand_order_text);
if ($isfolder \|\| $extension eq 'sequence') {	if ($isfolder \|\| $ispage \|\| $extension eq 'sequence' \|\| $extension eq 'page') {
my $foldername=&escape($foldertitle);	my $foldername=&escape($foldertitle);
my $folderpath=$env{'form.folderpath'};	my $folderpath=$env{'form.folderpath'};
if ($folderpath) { $folderpath.='&' };	if ($folderpath) { $folderpath.='&' };
	if (!$allowed && $supplementalflag) {
	$folderpath.=$containerarg.'&'.$foldername;
	$url.='folderpath='.&escape($folderpath);
	} else {
# Append randompick number, hidden, and encrypted with ":" to foldername,	# Append randompick number, hidden, and encrypted with ":" to foldername,
# so it gets transferred between levels	# so it gets transferred between levels
$folderpath.=$folderarg.'&'.$foldername.':'.(&LONCAPA::map::getparameter($orderidx,	$folderpath.=$containerarg.'&'.$foldername.
	':'.(&LONCAPA::map::getparameter($orderidx,
'parameter_randompick'))[0]	'parameter_randompick'))[0]
.':'.((&LONCAPA::map::getparameter($orderidx,	.':'.((&LONCAPA::map::getparameter($orderidx,
'parameter_hiddenresource'))[0]=~/^yes$/i)	'parameter_hiddenresource'))[0]=~/^yes$/i)
.':'.((&LONCAPA::map::getparameter($orderidx,	.':'.((&LONCAPA::map::getparameter($orderidx,
'parameter_encrypturl'))[0]=~/^yes$/i)	'parameter_encrypturl'))[0]=~/^yes$/i)
.':'.((&LONCAPA::map::getparameter($orderidx,	.':'.((&LONCAPA::map::getparameter($orderidx,
'parameter_randomorder'))[0]=~/^yes$/i);	'parameter_randomorder'))[0]=~/^yes$/i)
$url.='folderpath='.&escape($folderpath).$cpinfo;	.':'.$ispage;
my $rpicknum = (&LONCAPA::map::getparameter($orderidx,	$url.='folderpath='.&escape($folderpath);
'parameter_randompick'))[0];	my $rpicknum = (&LONCAPA::map::getparameter($orderidx,
my $rpckchk;	'parameter_randompick'))[0];
if ($rpicknum) {	my $rpckchk;
$rpckchk = ' checked="checked"';	if ($rpicknum) {
}	$rpckchk = ' checked="checked"';
my $formname = 'edit_rpick_'.$orderidx;	}
$rand_pick_text =	my $formname = 'edit_rpick_'.$orderidx;
	$rand_pick_text =
'<form action="/adm/coursedocs" method="post" name="'.$formname.'">'."\n".	'<form action="/adm/coursedocs" method="post" name="'.$formname.'">'."\n".
$form_common."\n".	$form_common."\n".
'<span class="LC_nobreak"><label><input type="checkbox" name="randpickon_'.$orderidx.'" id="rpick_'.$orderidx.'" onclick="'."updatePick(this.form,'$orderidx','check');".'"'.$rpckchk.' /> '.&mt('Randomly Pick').'</label><input type="hidden" name="randompick_'.$orderidx.'" id="rpicknum_'.$orderidx.'" value="'.$rpicknum.'" />';	'<span class="LC_nobreak"><label><input type="checkbox" name="randpickon_'.$orderidx.'" id="rpick_'.$orderidx.'" onclick="'."updatePick(this.form,'$orderidx','check');".'"'.$rpckchk.' /> '.&mt('Randomly Pick').'</label><input type="hidden" name="randompick_'.$orderidx.'" id="rpicknum_'.$orderidx.'" value="'.$rpicknum.'" />';
if ($rpicknum ne '') {	if ($rpicknum ne '') {
$rand_pick_text .= ': <a href="javascript:updatePick('."document.$formname,'$orderidx','link'".')">'.$rpicknum.'</a>';	$rand_pick_text .= ': <a href="javascript:updatePick('."document.$formname,'$orderidx','link'".')">'.$rpicknum.'</a>';
}	}
$rand_pick_text .= '</span></form>';	$rand_pick_text .= '</span></form>';
my $ro_set=	my $ro_set=
((&LONCAPA::map::getparameter($orderidx,'parameter_randomorder'))[0]=~/^yes$/i?' checked="checked"':'');	((&LONCAPA::map::getparameter($orderidx,'parameter_randomorder'))[0]=~/^yes$/i?' checked="checked"':'');
$rand_order_text =	$rand_order_text =
$form_start.	$form_start.
$form_common.'	$form_common.'
<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" onclick="'."this.form.changeparms.value='randomorder';this.form.submit()".'" '.$ro_set.' /> '.&mt('Random Order').' </label></span></form>';	<span class="LC_nobreak"><label><input type="checkbox" name="randomorder_'.$orderidx.'" onclick="'."this.form.changeparms.value='randomorder';this.form.submit()".'" '.$ro_set.' /> '.&mt('Random Order').' </label></span></form>';
	}
	} elsif ($supplementalflag && !$allowed) {
	$url .= ($url =~ /\?/) ? '&':'?';
	$url .= 'folderpath='.&HTML::Entities::encode($esc_path,'<>&"');
	if ($title) {
	$url .= '&title='.&HTML::Entities::encode($renametitle,'<>&"');
	}
	if ($isexternal && $orderidx) {
	$url .= '&idx='.$orderidx;
	}
}	}
if ($ispage) {	my ($tdalign,$tdwidth);
my $pagename=&escape($pagetitle);	if ($allowed) {
my $pagepath;	my $fileloc =
my $folderpath=$env{'form.folderpath'};	&Apache::lonnet::declutter(&Apache::lonnet::filelocation('',$orig_url));
if ($folderpath) { $pagepath = $folderpath.'&' };	if ($isexternal) {
$pagepath.=$pagearg.'&'.$pagename;	($editlink,$extresform) =
my $symb=$env{'form.pagesymb'};	&Apache::lonextresedit::extedit_form(0,$residx,$orig_url,$title,$pathitem);
if (!$symb) {	} elsif (!$isfolder && !$ispage) {
my $path='uploaded/'.	my ($cfile,$home,$switchserver,$forceedit,$forceview) =
$env{'course.'.$env{'request.course.id'}.'.domain'}.'/'.	&Apache::lonnet::can_edit_resource($fileloc,$coursenum,$coursedom,$orig_url);
$env{'course.'.$env{'request.course.id'}.'.num'}.'/';	if (($cfile ne '') && ($symb ne '' \|\| $supplementalflag)) {
$symb=&Apache::lonnet::encode_symb($path.$folder.'.sequence',	my $jscall =
$residx,	&Apache::lonhtmlcommon::jump_to_editres($cfile,$home,
$path.$pagearg.'.page');	$switchserver,
}	$forceedit,
$url.='pagepath='.&escape($pagepath).	undef,$symb,
'&pagesymb='.&escape($symb).$cpinfo;	&escape($env{'form.folderpath'}),
}	$renametitle,'','',1);
if (($external) && ($allowed)) {	if ($jscall) {
my $form = ($folder =~ /^default/)? 'newext' : 'supnewext';	$editlink = '<a class="LC_docs_ext_edit" href="javascript:'.
$external = ' <a class="LC_docs_ext_edit" href="javascript:edittext(\''.$form.'\',\''.$residx.'\',\''.&escape($title).'\',\''.&escape($orig_url).'\');" >'.&mt('Edit').'</a>';	$jscall.'" >'.&mt('Edit').'</a> '."\n";
} else {	}
undef($external);	}
	}
	$tdalign = ' align="right" valign="top"';
	$tdwidth = ' width="80%"';
}	}
my $reinit;	my $reinit;
if ($crstype eq 'Community') {	if ($crstype eq 'Community') {
$reinit = &mt('(re-initialize community to access)');	$reinit = &mt('(re-initialize community to access)');
} else {	} else {
$reinit = &mt('(re-initialize course to access)');	$reinit = &mt('(re-initialize course to access)');
}	}
$line.='<td>';	$line.='<td class="LC_docs_entry_commands"'.$tdalign.'><span class="LC_nobreak">'.$editlink.$renamelink;
if (($url=~m{/adm/(coursedocs\|supplemental)}) \|\| (!$allowed && $url)) {	if (($url=~m{/adm/(coursedocs\|supplemental)}) \|\| (!$allowed && $url)) {
$line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';	$line.='<a href="'.$url.'"><img src="'.$icon.'" alt="" class="LC_icon" /></a>';
} elsif ($url) {	} elsif ($url) {
Line 2403 $form_common.'	Line 2558 $form_common.'
} else {	} else {
$line.='<img src="'.$icon.'" alt="" class="LC_icon" />';	$line.='<img src="'.$icon.'" alt="" class="LC_icon" />';
}	}
$line.='</td><td>';	$line.='</span></td><td'.$tdwidth.'>';
if (($url=~m{/adm/(coursedocs\|supplemental)}) \|\| (!$allowed && $url)) {	if (($url=~m{/adm/(coursedocs\|supplemental)}) \|\| (!$allowed && $url)) {
$line.='<a href="'.$url.'">'.$title.'</a>';	$line.='<a href="'.$url.'">'.$title.'</a>';
} elsif ($url) {	} elsif ($url) {
Line 2412 $form_common.'	Line 2567 $form_common.'
} else {	} else {
$line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';	$line.=$title.' <span class="LC_docs_reinit_warn">'.$reinit.'</span>';
}	}
$line.=$external."</td>";	$line.="$extresform</td>";
$rand_pick_text = ' ' if ($rand_pick_text eq '');	$rand_pick_text = ' ' if ($rand_pick_text eq '');
$rand_order_text = ' ' if ($rand_order_text eq '');	$rand_order_text = ' ' if ($rand_order_text eq '');
if (($allowed) && ($folder!~/^supplemental/)) {	if (($allowed) && ($folder!~/^supplemental/)) {
Line 2443 ENDPARMS	Line 2598 ENDPARMS
return $line;	return $line;
}	}

	sub newmap_suffix {
	my ($area,$container,$coursedom,$coursenum) = @_;
	my ($prefix,$idtype,$errtext,$locknotfreed);
	$prefix = 'docs';
	if ($area eq 'supplemental') {
	$prefix = 'supp';
	}
	$prefix .= $container;
	$idtype = 'concat';
	my ($suffix,$freedlock,$error) =
	&Apache::lonnet::get_timebased_id($prefix,'num','uploadedmaps',
	$coursedom,$coursenum);
	if (!$suffix) {
	$errtext = &mt('Failed to acquire a unique timestamp-based suffix for the new folder/page.');
	if ($error) {
	$errtext .= '<br />'.$error;
	}
	}
	if ($freedlock ne 'ok') {
	$locknotfreed = '<div class="LC_error">'.&mt('There was a problem removing a lockfile. This will prevent creation of additional folders or composite pages in this course. Please contact the domain coordinator for your LON-CAPA domain.').'</div>';
	}
	return ($suffix,$errtext,$locknotfreed);
	}

=pod	=pod

=item tiehash()	=item tiehash()
Line 2538 sub checkonthis {	Line 2717 sub checkonthis {
$r->print('<span class="LC_error">'.&mt('connection down').'</span>');	$r->print('<span class="LC_error">'.&mt('connection down').'</span>');
} elsif ($result eq 'not_found') {	} elsif ($result eq 'not_found') {
unless ($url=~/\$/) {	unless ($url=~/\$/) {
$r->print('<span class="LC_error">'.&mt('not found').'</b></span>');	$r->print('<span class="LC_error">'.&mt('not found').'</span>');
} else {	} else {
$r->print('<span class="LC_error">'.&mt('unable to verify variable URL').'</span>');	$r->print('<span class="LC_error">'.&mt('unable to verify variable URL').'</span>');
}	}
Line 2584 sub list_symbs {	Line 2763 sub list_symbs {
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
'<td>'.$res->compTitle().'</td>'.	'<td>'.$res->compTitle().'</td>'.
'<td>'.$res->symb().'</td>'.	'<td>'.$res->symb().'</td>'.
&Apache::loncommon::start_data_table_row());	&Apache::loncommon::end_data_table_row());
$count ++;	$count ++;
}	}
if (!$count) {	if (!$count) {
Line 2594 sub list_symbs {	Line 2773 sub list_symbs {
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
}	}
	$r->print(&endContentScreen());
}	}


Line 2624 sub verifycontent {	Line 2804 sub verifycontent {
}	}
&untiehash();	&untiehash();
$r->print('<p class="LC_success">'.&mt('Done').'</p>');	$r->print('<p class="LC_success">'.&mt('Done').'</p>');
	$r->print(&endContentScreen());
}	}


Line 2703 sub checkversions {	Line 2884 sub checkversions {
if ($env{'form.timerange'} eq 'all') {	if ($env{'form.timerange'} eq 'all') {
# show all documents	# show all documents
$header=&mt('All Documents in '.$crstype);	$header=&mt('All Documents in '.$crstype);
$allsel=1;	$allsel=' selected="selected"';
foreach my $key (keys(%hash)) {	foreach my $key (keys(%hash)) {
if ($key=~/^ids\_(\/res\/.+)$/) {	if ($key=~/^ids\_(\/res\/.+)$/) {
my $src=$1;	my $src=$1;
Line 2724 sub checkversions {	Line 2905 sub checkversions {
.&mt('seconds');	.&mt('seconds');
if ($env{'form.timerange'}==-1) {	if ($env{'form.timerange'}==-1) {
$seltext='since start of course';	$seltext='since start of course';
$startsel='selected';	$startsel=' selected="selected"';
$env{'form.timerange'}=time;	$env{'form.timerange'}=time;
}	}
$starttime=time-$env{'form.timerange'};	$starttime=time-$env{'form.timerange'};
if ($env{'form.timerange'}==2592000) {	if ($env{'form.timerange'}==2592000) {
$seltext=&mt('during the last month').' ('.&Apache::lonlocal::locallocaltime($starttime).')';	$seltext=&mt('during the last month').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
$monthsel='selected';	$monthsel=' selected="selected"';
} elsif ($env{'form.timerange'}==604800) {	} elsif ($env{'form.timerange'}==604800) {
$seltext=&mt('during the last week').' ('.&Apache::lonlocal::locallocaltime($starttime).')';	$seltext=&mt('during the last week').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
$weeksel='selected';	$weeksel=' selected="selected"';
} elsif ($env{'form.timerange'}==86400) {	} elsif ($env{'form.timerange'}==86400) {
$seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')';	$seltext=&mt('since yesterday').' ('.&Apache::lonlocal::locallocaltime($starttime).')';
$daysel='selected';	$daysel=' selected="selected"';
}	}
$header=&mt('Content changed').' '.$seltext;	$header=&mt('Content changed').' '.$seltext;
} else {	} else {
Line 2774 sub checkversions {	Line 2955 sub checkversions {
<fieldset>	<fieldset>
<legend>$lt{'cd'}</legend>	<legend>$lt{'cd'}</legend>
<select name="timerange">	<select name="timerange">
<option value='all' $allsel>$lt{'al'}</option>	<option value='all'$allsel>$lt{'al'}</option>
<option value="-1" $startsel>$lt{'st'}</option>	<option value="-1"$startsel>$lt{'st'}</option>
<option value="2592000" $monthsel>$lt{'lm'}</option>	<option value="2592000"$monthsel>$lt{'lm'}</option>
<option value="604800" $weeksel>$lt{'lw'}</option>	<option value="604800"$weeksel>$lt{'lw'}</option>
<option value="86400" $daysel>$lt{'sy'}</option>	<option value="86400"$daysel>$lt{'sy'}</option>
</select>	</select>
<input type="submit" name="display" value="$lt{'sd'}" />	<input type="submit" name="display" value="$lt{'sd'}" />
</fieldset>	</fieldset>
Line 2794 $lt{'sc'}: <input type="submit" name="se	Line 2975 $lt{'sc'}: <input type="submit" name="se
<hr />	<hr />
<h4>$lt{'vers'}</h4>	<h4>$lt{'vers'}</h4>
<input type="submit" name="setversions" value="$lt{'save'}" />	<input type="submit" name="setversions" value="$lt{'save'}" />
<table border="0">
ENDHEADERS	ENDHEADERS
#number of columns for version history	#number of columns for version history
my $num_ver_col = 1;
$r->print(	$r->print(
&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>'.
"<th>$lt{'mr'}</th>".	"<th>$lt{'mr'}</th>".
"<th>$lt{'ve'}</th>".	"<th>$lt{'ve'}</th>".
"<th>$lt{'vu'}</th>".	"<th>$lt{'vu'}</th>".
'<th colspan="'.$num_ver_col.'">'.&mt('History').'</th>'.	'<th>'.&mt('History').'</th>'.
'</b>');	&Apache::loncommon::end_data_table_header_row()
	);
foreach my $key (sort(keys(%changes))) {	foreach my $key (sort(keys(%changes))) {
if ($changes{$key}>$starttime) {	#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);	}
	my $linkurl=&Apache::lonnet::clutter($key);
$r->print(	$r->print(
&Apache::loncommon::end_data_table_header_row().
&Apache::loncommon::start_data_table_row().	&Apache::loncommon::start_data_table_row().
'<td><b>'.&Apache::lonnet::gettitle($linkurl).'</b><br>'.	'<td><b>'.&Apache::lonnet::gettitle($linkurl).'</b><br />'.
'<a href="'.$linkurl.'" target="cat">'.$linkurl.'</a></td>'.	'<a href="'.$linkurl.'" target="cat">'.$linkurl.'</a></td>'.
'<td align="right">'.$currentversion.'<span class="LC_fontsize_medium"><br>('.	'<td align="right">'.$currentversion.'<span class="LC_fontsize_medium"><br />('.
&Apache::lonlocal::locallocaltime(&Apache::lonnet::metadata($root.'.'.$extension,'lastrevisiondate')).')</span></td>'.	&Apache::lonlocal::locallocaltime(&Apache::lonnet::metadata($root.'.'.$extension,'lastrevisiondate')).')</span></td>'.
'<td align="right">');	'<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 != $currentversion){	if (($usedversion) && ($usedversion ne 'mostrecent')) {
	if ($usedversion != $currentversion) {
$r->print('<span class="LC_warning">'.$usedversion.'</span>');	$r->print('<span class="LC_warning">'.$usedversion.'</span>');
}else{	} else {
$r->print($usedversion);	$r->print($usedversion);
}	}
} else {
$r->print($currentversion);
}
$r->print('</td><td title="'.$lt{'vu'}.'">');
# Set version
$r->print(&Apache::loncommon::select_form($setversions{$linkurl},
'set_version_'.$linkurl,
{'select_form_order' =>
['',1..$currentversion,'mostrecent'],
'' => '',
'mostrecent' => &mt('most recent'),
map {$_,$_} (1..$currentversion)}));
my $lastold=1;
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
my $url=$root.'.'.$prevvers.'.'.$extension;
if (&Apache::lonnet::metadata($url,'lastrevisiondate')<
$starttime) {
$lastold=$prevvers;
}
}
#
# Code to figure out how many version entries should go in
# each of the four columns
my $entries_per_col = 0;
my $num_entries = ($currentversion-$lastold);
if ($num_entries % $num_ver_col == 0) {
$entries_per_col = $num_entries/$num_ver_col;
} else {	} else {
$entries_per_col = $num_entries/$num_ver_col + 1;	$r->print($currentversion);
}	}
my $entries_count = 0;	$r->print('</td><td title="'.$lt{'vu'}.'">');
$r->print('<td valign="top"><span class="LC_fontsize_medium">');	# Set version
my $cols_output = 1;	$r->print(&Apache::loncommon::select_form(
for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {	$setversions{$linkurl},
my $url=$root.'.'.$prevvers.'.'.$extension;	'set_version_'.$linkurl,
$r->print('<span class="LC_nobreak"><a href="'.&Apache::lonnet::clutter($url).	{'select_form_order' => ['',1..$currentversion,'mostrecent'],
'">'.&mt('Version').' '.$prevvers.'</a> ('.	'' => '',
&Apache::lonlocal::locallocaltime(	'mostrecent' => &mt('most recent'),
&Apache::lonnet::metadata($url,	map {$_,$_} (1..$currentversion)}));
'lastrevisiondate')	my $lastold=1;
).	for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
')');	my $url=$root.'.'.$prevvers.'.'.$extension;
if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {	if (&Apache::lonnet::metadata($url,'lastrevisiondate')<$starttime) {
$r->print(' <a href="/adm/diff?filename='.	$lastold=$prevvers;
&Apache::lonnet::clutter($root.'.'.$extension).	}
'&versionone='.$prevvers.	}
'" target="diffs">'.&mt('Diffs').'</a>');	$r->print('</td>');
}	# List all available versions
$r->print('</span><br />');	$r->print('<td valign="top"><span class="LC_fontsize_medium">');
if (++$entries_count % $entries_per_col == 0) {	for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
$r->print('</span></td>');	my $url=$root.'.'.$prevvers.'.'.$extension;
if ($cols_output != $num_ver_col) {	$r->print(
$r->print('<td valign="top"><span class="LC_fontsize_medium">');	'<span class="LC_nobreak">'
$cols_output++;	.'<a href="'.&Apache::lonnet::clutter($url).'">'
}	.&mt('Version [_1]',$prevvers).'</a>'
}	.' ('.&Apache::lonlocal::locallocaltime(
}	&Apache::lonnet::metadata($url,'lastrevisiondate'))
while($cols_output++ < $num_ver_col) {	.')');
$r->print('</span></td><td>');	if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') {
	$r->print(
	' <a href="/adm/diff?filename='.
	&Apache::lonnet::clutter($root.'.'.$extension).
	&HTML::Entities::encode('&versionone='.$prevvers,'"<>&').
	'" target="diffs">'.&mt('Diffs').'</a>');
}	}
}	$r->print('</span><br />');
	}
	$r->print('</span></td>'.&Apache::loncommon::end_data_table_row());
}	}
$r->print('</td>'.&Apache::loncommon::end_data_table_row().	$r->print(
&Apache::loncommon::end_data_table().	&Apache::loncommon::end_data_table().
'<input type="submit" name="setversions" value="'.$lt{'save'}.'" />');	'<input type="submit" name="setversions" value="'.$lt{'save'}.'" />'.
	'</form>'
	);

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

sub mark_hash_old {	sub mark_hash_old {
Line 2929 sub changewarning {	Line 3093 sub changewarning {
my $pathvar='folderpath';	my $pathvar='folderpath';
my $path=&escape($env{'form.folderpath'});	my $path=&escape($env{'form.folderpath'});
if (!defined($url)) {	if (!defined($url)) {
if (defined($env{'form.pagepath'})) {
$pathvar='pagepath';
$path=&escape($env{'form.pagepath'});
$path.='&pagesymb='.&escape($env{'form.pagesymb'});
}
$url='/adm/coursedocs?'.$pathvar.'='.$path;	$url='/adm/coursedocs?'.$pathvar.'='.$path;
}	}
my $course_type = &Apache::loncommon::course_type();	my $course_type = &Apache::loncommon::course_type();
Line 2974 sub init_breadcrumbs {	Line 3133 sub init_breadcrumbs {
sub create_list_elements {	sub create_list_elements {
my @formarr = @_;	my @formarr = @_;
my $list = '';	my $list = '';
for my $button (@formarr){	foreach my $button (@formarr){
for my $picture(keys %$button) {	foreach my $picture (keys(%{$button})) {
$list .= &Apache::lonhtmlcommon::htmltag('li', $picture.' '.$button->{$picture}, {class => 'LC_menubuttons_inline_text'});	$list .= &Apache::lonhtmlcommon::htmltag('li', $picture.' '.$button->{$picture}, {class => 'LC_menubuttons_inline_text', id => ''});
}	}
}	}
return $list;	return $list;
Line 3045 sub handler {	Line 3204 sub handler {
'Adding_External_Resource','Navigate_Content',	'Adding_External_Resource','Navigate_Content',
'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','Uploading_From_Harddrive',	'Importing_LON-CAPA_Resource','Importing_IMS_Course',
	'Uploading_From_Harddrive',
'Check_Resource_Versions','Verify_Content') {	'Check_Resource_Versions','Verify_Content') {
$help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);	$help{$topic}=&Apache::loncommon::help_open_topic('Docs_'.$topic);
}	}
Line 3105 sub handler {	Line 3265 sub handler {
# Get the parameters that may be needed	# Get the parameters that may be needed
#	#
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folderpath','pagepath',	['folderpath',
'pagesymb','forcesupplement','forcestandard',	'forcesupplement','forcestandard',
'tools','symb','command']);	'tools','symb','command','supppath']);

# standard=1: this is a "new-style" course with an uploaded map as top level	# standard=1: this is a "new-style" course with an uploaded map as top level
# standard=2: this is a "old-style" course, and there is nothing we can do	# standard=2: this is a "old-style" course, and there is nothing we can do
Line 3121 sub handler {	Line 3281 sub handler {


my $supplementalflag=($env{'form.folderpath'}=~/^supplemental/);	my $supplementalflag=($env{'form.folderpath'}=~/^supplemental/);
if (($env{'form.folderpath'}=~/^default/) \|\| $env{'form.folderpath'} eq "" \|\| ($env{'form.pagepath'})) {	if (($env{'form.folderpath'}=~/^default/) \|\| ($env{'form.folderpath'} eq "")) {
$supplementalflag=0;	$supplementalflag=0;
}	}
if ($env{'form.forcesupplement'}) { $supplementalflag=1; }	if ($env{'form.forcesupplement'}) { $supplementalflag=1; }
Line 3136 sub handler {	Line 3296 sub handler {
my $addentries = {};	my $addentries = {};
my $container;	my $container;
my $containertag;	my $containertag;
my $uploadtag;	my $pathitem;

# Do we directly jump somewhere?	# Do we directly jump somewhere?

if ($env{'form.command'} eq 'direct') {	if (($env{'form.command'} eq 'direct') \|\| ($env{'form.command'} eq 'directnav')) {
my ($mapurl,$id,$resurl);
if ($env{'form.symb'} ne '') {	if ($env{'form.symb'} ne '') {
($mapurl,$id,$resurl) = &Apache::lonnet::decode_symb($env{'form.symb'});	$env{'form.folderpath'}=
if ($resurl=~/\.(sequence\|page)$/) {	&Apache::loncommon::symb_to_docspath($env{'form.symb'});
$mapurl=$resurl;	&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>
} elsif ($resurl eq 'adm/navmaps') {	$env{'form.command'}.'_'.$env{'form.symb'}});
$mapurl=$env{'course.'.$env{'request.course.id'}.'.url'};
}
my $mapresobj;
my $navmap = Apache::lonnavmaps::navmap->new();
if (ref($navmap)) {
$mapresobj = $navmap->getResourceByUrl($mapurl);
}
$mapurl=~s{^.*/([^/]+)\.(\w+)$}{$1};
my $type=$2;
my $path;
if (ref($mapresobj)) {
my $pcslist = $mapresobj->map_hierarchy();
if ($pcslist ne '') {
foreach my $pc (split(/,/,$pcslist)) {
next if ($pc <= 1);
my $res = $navmap->getByMapPc($pc);
if (ref($res)) {
my $thisurl = $res->src();
$thisurl=~s{^.*/([^/]+)\.\w+$}{$1};
my $thistitle = $res->title();
$path .= '&'.
&Apache::lonhtmlcommon::entity_encode($thisurl).'&'.
&Apache::lonhtmlcommon::entity_encode($thistitle).
':'.$res->randompick().
':'.$res->randomout().
':'.$res->encrypted().
':'.$res->randomorder();
}
}
}
$path .= '&'.&Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
&Apache::lonhtmlcommon::entity_encode($mapresobj->title()).
':'.$mapresobj->randompick().
':'.$mapresobj->randomout().
':'.$mapresobj->encrypted().
':'.$mapresobj->randomorder();
} else {
my $maptitle = &Apache::lonnet::gettitle($mapurl);
$path = '&default&...::::'.
'&'.&Apache::lonhtmlcommon::entity_encode($mapurl).'&'.
&Apache::lonhtmlcommon::entity_encode($maptitle).'::::';
}
$path = 'default&'.
&Apache::lonhtmlcommon::entity_encode('Main Course Documents').
$path;
if ($type eq 'sequence') {
$env{'form.folderpath'}=$path;
$env{'form.pagepath'}='';
} else {
$env{'form.pagepath'}=$path;
$env{'form.folderpath'}='';
}
} elsif ($env{'form.supppath'} ne '') {	} elsif ($env{'form.supppath'} ne '') {
$env{'form.folderpath'}=$env{'form.supppath'};	$env{'form.folderpath'}=$env{'form.supppath'};
	&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} =>
	$env{'form.command'}.'_'.$env{'form.supppath'}});
}	}
} elsif ($env{'form.command'} eq 'editdocs') {	} elsif ($env{'form.command'} eq 'editdocs') {
$env{'form.folderpath'} = 'default&'.	$env{'form.folderpath'} = 'default&'.
&Apache::lonhtmlcommon::entity_encode('Main Course Content');	&Apache::lonhtmlcommon::entity_encode('Main Course Content').
$env{'form.pagepath'}='';	':::::';
	&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} => $env{'form.command'}});
} elsif ($env{'form.command'} eq 'editsupp') {	} elsif ($env{'form.command'} eq 'editsupp') {
$env{'form.folderpath'} = 'default&'.	$env{'form.folderpath'} = 'supplemental&'.
&Apache::lonhtmlcommon::entity_encode('Supplemental Content');	&Apache::lonhtmlcommon::entity_encode('Supplemental Content');
$env{'form.pagepath'}='';	&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} => '/adm/supplemental'});
	} elsif ($env{'form.command'} eq 'contents') {
	&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} => '/adm/navmaps'});
	} elsif ($env{'form.command'} eq 'home') {
	&Apache::lonnet::appenv({'docs.exit.'.$env{'request.course.id'} => '/adm/menu'});
}	}


# Where do we store these for when we come back?	# Where do we store these for when we come back?
my $stored_folderpath='docs_folderpath';	my $stored_folderpath='docs_folderpath';
if ($supplementalflag) {	if ($supplementalflag) {
$stored_folderpath='docs_sup_folderpath';	$stored_folderpath='docs_sup_folderpath';
}	}

# No folderpath, no pagepath, see if we have something stored	# No folderpath, and in edit mode, see if we have something stored
if ((!$env{'form.folderpath'}) && (!$env{'form.pagepath'})) {	if ((!$env{'form.folderpath'}) && $allowed) {
&Apache::loncommon::restore_course_settings($stored_folderpath,	&Apache::loncommon::restore_course_settings($stored_folderpath,
{'folderpath' => 'scalar'});	{'folderpath' => 'scalar'});
	unless (&unescape($env{'form.folderpath'}) =~ m{^(default\|supplemental)&}) {
	undef($env{'form.folderpath'});
	}
}	}

# If we are not allowed to make changes, all we can see are supplemental docs	# If we are not allowed to make changes, all we can see are supplemental docs
if (!$allowed) {	if (!$allowed) {
$env{'form.pagepath'}='';
unless ($env{'form.folderpath'} =~ /^supplemental/) {	unless ($env{'form.folderpath'} =~ /^supplemental/) {
$env{'form.folderpath'} = &supplemental_base();	$env{'form.folderpath'} = &supplemental_base();
}	}
}	}
# If we still not have a folderpath, see if we can resurrect at pagepath
if (!$env{'form.folderpath'} && $allowed) {
&Apache::loncommon::restore_course_settings($stored_folderpath,
{'pagepath' => 'scalar'});
}
# Make the zeroth entry in supplemental docs page paths, so we can get to top level	# Make the zeroth entry in supplemental docs page paths, so we can get to top level
if ($env{'form.folderpath'} =~ /^supplemental_\d+/) {	if ($env{'form.folderpath'} =~ /^supplemental_\d+/) {
$env{'form.folderpath'} = &supplemental_base()	$env{'form.folderpath'} = &supplemental_base()
Line 3243 sub handler {	Line 3355 sub handler {
$env{'form.folderpath'};	$env{'form.folderpath'};
}	}
# If after all of this, we still don't have any paths, make them	# If after all of this, we still don't have any paths, make them
unless (($env{'form.pagepath'}) \|\| ($env{'form.folderpath'})) {	unless ($env{'form.folderpath'}) {
if ($supplementalflag) {	if ($supplementalflag) {
$env{'form.folderpath'}=&supplemental_base();	$env{'form.folderpath'}=&supplemental_base();
} else {	} else {
$env{'form.folderpath'}='default';	$env{'form.folderpath'}='default'.&escape(&mt('Main '.$crstype.' Documents')).
	':::::';
}	}
}	}

# Store this	# Store this
unless ($toolsflag) {	unless ($toolsflag) {
&Apache::loncommon::store_course_settings($stored_folderpath,	if ($allowed) {
{'pagepath' => 'scalar',	&Apache::loncommon::store_course_settings($stored_folderpath,
'folderpath' => 'scalar'});	{'folderpath' => 'scalar'});
	}
	my $folderpath;
if ($env{'form.folderpath'}) {	if ($env{'form.folderpath'}) {
my (@folderpath)=split('&',$env{'form.folderpath'});	$folderpath = $env{'form.folderpath'};
$env{'form.foldername'}=&unescape(pop(@folderpath));	my (@folders)=split('&',$env{'form.folderpath'});
$env{'form.folder'}=pop(@folderpath);	$env{'form.foldername'}=&unescape(pop(@folders));
$container='sequence';	if ($env{'form.foldername'} =~ /\:1$/) {
}	$container = 'page';
if ($env{'form.pagepath'}) {	} else {
my (@pagepath)=split('&',$env{'form.pagepath'});	$container = 'sequence';
$env{'form.pagename'}=&unescape(pop(@pagepath));	}
$env{'form.folder'}=pop(@pagepath);	$env{'form.folder'}=pop(@folders);
$container='page';
$containertag = '<input type="hidden" name="pagepath" value="" />'.
'<input type="hidden" name="pagesymb" value="" />';
$uploadtag =
'<input type="hidden" name="pagepath" value="'.&HTML::Entities::encode($env{'form.pagepath'},'<>&"').'" />'.
'<input type="hidden" name="pagesymb" value="'.&HTML::Entities::encode($env{'form.pagesymb'},'<>&"').'" />'.
'<input type="hidden" name="folderpath" value="" />';
} else {	} else {
my $folderpath=$env{'form.folderpath'};	if ($env{'form.folder'} eq '' \|\|
if (!$folderpath) {	$env{'form.folder'} eq 'supplemental') {
if ($env{'form.folder'} eq '' \|\|	$folderpath='default&'.
$env{'form.folder'} eq 'supplemental') {	&escape(&mt('Main '.$crstype.' Documents')).
$folderpath='default&'.	':::::';
&escape(&mt('Main '.$crstype.' Documents'));
}
}	}
$containertag = '<input type="hidden" name="folderpath" value="" />';
$uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
}	}
	$containertag = '<input type="hidden" name="folderpath" value="" />';
	$pathitem = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {	if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
$showdoc='/'.$1;	$showdoc='/'.$1;
}	}
Line 3322 sub handler {	Line 3428 sub handler {
@tabids = ('002','ee2','ff2');	@tabids = ('002','ee2','ff2');
} else {	} else {
@tabids = ('aa1','bb1','cc1','ff1');	@tabids = ('aa1','bb1','cc1','ff1');
unless ($env{'form.pagepath'}) {	unless ($env{'form.folderpath'} =~ /\:1$/) {
unshift(@tabids,'001');	unshift(@tabids,'001');
push(@tabids,('dd1','ee1'));	push(@tabids,('dd1','ee1'));
}	}
Line 3331 sub handler {	Line 3437 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);	&Apache::lonhtmlcommon::resize_scrollbox_js('docs',$tabidstr).
	&Apache::lonextresedit::extedit_javascript();
$addentries = {	$addentries = {
onload => "javascript:resize_scrollbox('contentscroll','1','1');",	onload => "javascript:resize_scrollbox('contentscroll','1','1');",
};	};
}	}
if ($env{'docs.markedcopy_url'}) {	if ($env{'docs.markedcopy_url'}) {
$script .= &paste_popup_js();	$script .= &paste_popup_js();
}	}
	my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
	&mt('Switch server?');


}	}
# -------------------------------------------------------------------- Body tag	# -------------------------------------------------------------------- Body tag
$script = '<script type="text/javascript">'."\n"	$script = '<script type="text/javascript">'."\n"
Line 3349 sub handler {	Line 3460 sub handler {

# Breadcrumbs	# Breadcrumbs
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
unless ($showdoc) {
	if ($showdoc) {
	$r->print(&Apache::loncommon::start_page("$crstype documents",undef,
	{'force_register' => $showdoc,}));
	} elsif ($r->uri eq '/adm/supplemental') {
	my $brcrum = &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype);
	$r->print(&Apache::loncommon::start_page("Supplemental $crstype Content",undef,
	{'bread_crumbs' => $brcrum,}));
	} else {
&Apache::lonhtmlcommon::add_breadcrumb({	&Apache::lonhtmlcommon::add_breadcrumb({
href=>"/adm/coursedocs",text=>"$crstype Contents"});	href=>"/adm/coursedocs",text=>"$crstype Contents"});

$r->print(&Apache::loncommon::start_page("$crstype Contents", $script,	$r->print(&Apache::loncommon::start_page("$crstype Contents", $script,
{'force_register' => $showdoc,	{'add_entries' => $addentries}
'add_entries' => $addentries,	)
})
.&Apache::loncommon::help_open_menu('','',273,'RAT')	.&Apache::loncommon::help_open_menu('','',273,'RAT')
.&Apache::lonhtmlcommon::breadcrumbs(	.&Apache::lonhtmlcommon::breadcrumbs(
'Editing '.$crstype.' Contents',	'Editing '.$crstype.' Contents',
'Docs_Adding_Course_Doc')	'Docs_Adding_Course_Doc')
);	);
} else {
$r->print(&Apache::loncommon::start_page("$crstype documents",undef,
{'force_register' => $showdoc,}));
}	}

my %allfiles = ();	my %allfiles = ();
Line 3427 sub handler {	Line 3542 sub handler {
} elsif ((!$showdoc) && (!$uploadphase)) {	} elsif ((!$showdoc) && (!$uploadphase)) {
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'uplm' => 'Upload a new main '.lc($crstype).' document',
'upls' => 'Upload a new supplemental '.lc($crstype).' document',
'impp' => 'Import a document',
'copm' => 'All documents out of a published map into this folder',	'copm' => 'All documents out of a published map into this folder',
'upld' => 'Import Document',	'upfi' => 'Upload File',
	'upld' => 'Import Content',
'srch' => 'Search',	'srch' => 'Search',
'impo' => 'Import',	'impo' => 'Import',
'lnks' => 'Import from Stored Links',	'lnks' => 'Import from Stored Links',
	'impm' => 'Import from Assembled Map',
'selm' => 'Select Map',	'selm' => 'Select Map',
'load' => 'Load Map',	'load' => 'Load Map',
'reco' => 'Recover Deleted Documents',
'newf' => 'New Folder',	'newf' => 'New Folder',
'newp' => 'New Composite Page',	'newp' => 'New Composite Page',
'extr' => 'External Resource',
'syll' => 'Syllabus',	'syll' => 'Syllabus',
'navc' => 'Table of Contents',	'navc' => 'Table of Contents',
'sipa' => 'Simple Course Page',	'sipa' => 'Simple Course Page',
Line 3451 sub handler {	Line 3563 sub handler {
'mypi' => 'My Personal Information Page',	'mypi' => 'My Personal Information Page',
'grpo' => 'Group Portfolio',	'grpo' => 'Group Portfolio',
'rost' => 'Course Roster',	'rost' => 'Course Roster',
'abou' => 'Personal Information Page for a User',	'abou' => 'Personal Information Page for a User',
'imsf' => 'IMS Import',	'imsf' => 'IMS Import',
'imsl' => 'Import IMS package',	'imsl' => 'Import IMS package',
	'cms' => 'Origin of IMS package',
	'se' => 'Select',
'file' => 'File',	'file' => 'File',
'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',
'nd' => 'Upload Document',
'pm' => 'Published Map',
'sd' => 'Special Document',
'mo' => 'More Options',
);	);
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
my $fileupload=(<<FIUP);	my $fileupload=(<<FIUP);
Line 3477 FIUP	Line 3587 FIUP
<input type="checkbox" name="parserflag" checked="checked" /> $lt{'parse'}	<input type="checkbox" name="parserflag" checked="checked" /> $lt{'parse'}
</label>	</label>
CHBO	CHBO
	my $imsfolder = $env{'form.folder'};
	if ($imsfolder eq '') {
	$imsfolder = 'default';
	}
	my $imspform=(<<IMSFORM);
	<a class="LC_menubuttons_link" href="javascript:toggleUpload('ims');">
	$lt{'imsf'}</a> $help{'Importing_IMS_Course'}
	<form name="uploadims" action="/adm/imsimportdocs" method="post" enctype="multipart/form-data" target="IMSimport">
	<fieldset id="uploadimsform" style="display: none;">
	<legend>$lt{'imsf'}</legend>
	$fileupload
	<br />
	<p>
	$lt{'cms'}:
	<select name="source">
	<option value="-1" selected="selected">$lt{'se'}</option>
	<option value="bb5">Blackboard 5</option>
	<option value="bb6">Blackboard 6</option>
	<option value="angel5">ANGEL 5.5</option>
	<option value="webctce4">WebCT 4 Campus Edition</option>
	</select>
	<input type="hidden" name="folder" value="$imsfolder" />
	</p>
	<input type="hidden" name="phase" value="one" />
	<input type="button" value="$lt{'imsl'}" onclick="makeims(this.form);" />
	</fieldset>
	</form>
	IMSFORM

my $fileuploada = "<br clear='all' /><input type='submit' value='".$lt{'upld'}."' /> $help{'Uploading_From_Harddrive'}";
my $fileuploadform=(<<FUFORM);	my $fileuploadform=(<<FUFORM);
<form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<a class="LC_menubuttons_link" href="javascript:toggleUpload('doc');">
	$lt{'upfi'}</a> $help{'Uploading_From_Harddrive'}
	<form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">
	<fieldset id="uploaddocform" style="display: none;">
	<legend>$lt{'upfi'}</legend>
<input type="hidden" name="active" value="aa" />	<input type="hidden" name="active" value="aa" />
$fileupload	$fileupload
<br />	<br />
$lt{'title'}:<br />	$lt{'title'}:<br />
<input type="text" size="60" name="comment" />	<input type="text" size="60" name="comment" />
$uploadtag	$pathitem
<input type="hidden" name="cmd" value="upload_default" />	<input type="hidden" name="cmd" value="upload_default" />
<br />	<br />
<span class="LC_nobreak" style="float:left">	<span class="LC_nobreak" style="float:left">
$checkbox	$checkbox
</span>	</span>
	<br clear="all" />
	<input type="submit" value="$lt{'upld'}" />
	</fieldset>
	</form>
FUFORM	FUFORM
$fileuploadform .= $fileuploada.'</form>';

my $simpleeditdefaultform=(<<SEDFFORM);	my $importpubform=(<<SEDFFORM);
<form action="/adm/coursedocs" method="post" name="simpleeditdefault">	<a class="LC_menubuttons_link" href="javascript:toggleMap('map');">
	$lt{'impm'}</a>$help{'Load_Map'}
	<form action="/adm/coursedocs" method="post" name="mapimportform">
	<fieldset id="importmapform" style="display: none;">
	<legend>$lt{'impm'}</legend>
<input type="hidden" name="active" value="bb" />	<input type="hidden" name="active" value="bb" />
	$lt{'copm'}<br />
	<span class="LC_nobreak">
	<input type="text" name="importmap" size="40" value=""
	onfocus="this.blur();openbrowser('mapimportform','importmap','sequence,page','');" />
	<a href="javascript:openbrowser('mapimportform','importmap','sequence,page','');">$lt{'selm'}</a></span><br />
	<input type="submit" name="loadmap" value="$lt{'load'}" />
	</fieldset>
	</form>

SEDFFORM	SEDFFORM
my @simpleeditdefaultforma = (	my @importpubforma = (
{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'" onclick="javascript:groupsearch()" />' => "$uploadtag<a class='LC_menubuttons_link' href='javascript:groupsearch()'>$lt{'srch'}</a>" },	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/src.png" alt="'.$lt{srch}.'" onclick="javascript:groupsearch()" />' => $pathitem."<a class='LC_menubuttons_link' href='javascript:groupsearch()'>$lt{'srch'}</a>" },
{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'" onclick="javascript:groupimport();"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/res.png" alt="'.$lt{impo}.'" onclick="javascript:groupimport();"/>' => "<a class='LC_menubuttons_link' href='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },
{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/wishlist.png" alt="'.$lt{lnks}.'" onclick="javascript:open_StoredLinks_Import();" />' => "<a class='LC_menubuttons_link' href='javascript:open_StoredLinks_Import();'>$lt{'lnks'}</a>" },	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/wishlist.png" alt="'.$lt{lnks}.'" onclick="javascript:open_StoredLinks_Import();" />' => "<a class='LC_menubuttons_link' href='javascript:open_StoredLinks_Import();'>$lt{'lnks'}</a>" },
	{ '<img class="LC_noBorder LC_middle" src="/res/adm/pages/sequence.png" alt="'.$lt{impm}.'" onclick="javascript:toggleMap(\'map\');" />' => $importpubform }
);	);
$simpleeditdefaultform .= &create_form_ul(&create_list_elements(@simpleeditdefaultforma));	$importpubform = &create_form_ul(&create_list_elements(@importpubforma));
$simpleeditdefaultform .=(<<SEDFFORM);	my $extresourcesform =
<hr id="bb_hrule" style="width:0px;text-align:left;margin-left:0" />	&Apache::lonextresedit::extedit_form(0,0,undef,undef,$pathitem,
$lt{'copm'}<br />	$help{'Adding_External_Resource'});
<input type="text" size="40" name="importmap" /><br />
<span class="LC_nobreak" style="float:left"><input type="button"
onclick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
value="$lt{'selm'}" /> <input type="submit" name="loadmap" value="$lt{'load'}" />
$help{'Load_Map'}</span>
</form>
SEDFFORM

my $extresourcesform=(<<ERFORM);
<form action="/adm/coursedocs" method="post" name="newext">
$uploadtag
<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makenewext('newext');">$lt{'extr'}</a>$help{'Adding_External_Resource'}
</form>
ERFORM


if ($allowed) {	if ($allowed) {
my $folder = $env{'form.folder'};	my $folder = $env{'form.folder'};
if ($folder eq '') {	if ($folder eq '') {
Line 3541 ERFORM	Line 3682 ERFORM
</form>	</form>

HIDDENFORM	HIDDENFORM
$r->print(&makesimpleeditform($uploadtag)."\n".	$r->print(&makesimpleeditform($pathitem)."\n".
&makedocslogform($uploadtag."\n".	&makedocslogform($pathitem."\n".
'<input type="hidden" name="folder" value="'.	'<input type="hidden" name="folder" value="'.
$env{'form.folder'}.'" />'."\n"));	$env{'form.folder'}.'" />'."\n"));
}	}

# Generate the tabs	# Generate the tabs
my $mode;	my ($mode,$needs_end);
if (($supplementalflag) && (!$allowed)) {	if (($supplementalflag) && (!$allowed)) {
&Apache::lonnavdisplay::startContentScreen($r,'supplemental');	my @folders = split('&',$env{'form.folderpath'});
	unless (@folders > 2) {
	&Apache::lonnavdisplay::startContentScreen($r,'supplemental');
	$needs_end = 1;
	}
} else {	} else {
$r->print(&startContentScreen(($supplementalflag?'suppdocs':'docs')));	$r->print(&startContentScreen(($supplementalflag?'suppdocs':'docs')));
	$needs_end = 1;
}	}

#	#
Line 3565 HIDDENFORM	Line 3711 HIDDENFORM
$folder='default';	$folder='default';
$savefolderpath = $env{'form.folderpath'};	$savefolderpath = $env{'form.folderpath'};
$env{'form.folderpath'}='default&'.&escape(&mt('Content'));	$env{'form.folderpath'}='default&'.&escape(&mt('Content'));
$uploadtag = '<input type="hidden" name="folderpath" value="'.	$pathitem = '<input type="hidden" name="folderpath" value="'.
&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';	&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
}	}
my $postexec='';	my $postexec='';
Line 3579 HIDDENFORM	Line 3725 HIDDENFORM
} else {	} else {
#$postexec='self.close();';	#$postexec='self.close();';
}	}
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.	my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_new.sequence';
'.sequence';	my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_new.page';
my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.page';
my $container='sequence';
if ($env{'form.pagepath'}) {
$container='page';
}
my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;	my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;

my $imspform=(<<IMSPFORM);
<form action="/adm/imsimportdocs" method="post" name="ims">
<input type="hidden" name="folder" value="$folder" />
<a class="LC_menubuttons_link" href="javascript:makeims();">$lt{'imsf'}</a>
</form>
IMSPFORM

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="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'navc'}=/adm/navmaps" />	value="$lt{'navc'}=/adm/navmaps" />
<a class="LC_menubuttons_link" href="javascript:document.newnav.submit()">$lt{'navc'}</a>	<a class="LC_menubuttons_link" href="javascript:document.newnav.submit()">$lt{'navc'}</a>
Line 3609 NNFORM	Line 3742 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="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$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>
$help{'Simple Page'}	$help{'Simple Page'}
Line 3619 NSPFORM	Line 3752 NSPFORM
my $newsmpproblemform=(<<NSPROBFORM);	my $newsmpproblemform=(<<NSPROBFORM);
<form action="/adm/coursedocs" method="post" name="newsmpproblem">	<form action="/adm/coursedocs" method="post" name="newsmpproblem">
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$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'}
Line 3630 NSPROBFORM	Line 3763 NSPROBFORM
my $newdropboxform=(<<NDBFORM);	my $newdropboxform=(<<NDBFORM);
<form action="/adm/coursedocs" method="post" name="newdropbox">	<form action="/adm/coursedocs" method="post" name="newdropbox">
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makedropbox();">$lt{'drbx'}</a>	<a class="LC_menubuttons_link" href="javascript:makedropbox();">$lt{'drbx'}</a>
</form>	</form>
Line 3639 NDBFORM	Line 3772 NDBFORM
my $newexuploadform=(<<NEXUFORM);	my $newexuploadform=(<<NEXUFORM);
<form action="/adm/coursedocs" method="post" name="newexamupload">	<form action="/adm/coursedocs" method="post" name="newexamupload">
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makeexamupload();">$lt{'scuf'}</a>	<a class="LC_menubuttons_link" href="javascript:makeexamupload();">$lt{'scuf'}</a>
$help{'Score_Upload_Form'}	$help{'Score_Upload_Form'}
Line 3649 NEXUFORM	Line 3782 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="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$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>
$help{'Bulletin Board'}	$help{'Bulletin Board'}
Line 3659 NBFORM	Line 3792 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="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme" />	value="$plainname=/adm/$udom/$uname/aboutme" />
<a class="LC_menubuttons_link" href="javascript:document.newaboutme.submit()">$lt{'mypi'}</a>	<a class="LC_menubuttons_link" href="javascript:document.newaboutme.submit()">$lt{'mypi'}</a>
Line 3670 NAMFORM	Line 3803 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="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$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>
</form>	</form>
Line 3680 NASOFORM	Line 3813 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="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'rost'}=/adm/viewclasslist" />	value="$lt{'rost'}=/adm/viewclasslist" />
<a class="LC_menubuttons_link" href="javascript:document.newroster.submit()">$lt{'rost'}</a>	<a class="LC_menubuttons_link" href="javascript:document.newroster.submit()">$lt{'rost'}</a>
Line 3712 NPFORM	Line 3845 NPFORM

$newfolderform=(<<NFFORM);	$newfolderform=(<<NFFORM);
<form action="/adm/coursedocs" method="post" name="newfolder">	<form action="/adm/coursedocs" method="post" name="newfolder">
<input type="hidden" name="folderpath" value="$path" />	$pathitem
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<input type="hidden" name="active" value="aa" />	<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'}
Line 3722 NFFORM	Line 3855 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="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$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" />
<a class="LC_menubuttons_link" href="javascript:document.newsyl.submit()">$lt{'syll'}</a>	<a class="LC_menubuttons_link" href="javascript:document.newsyl.submit()">$lt{'syll'}</a>
Line 3734 NSYLFORM	Line 3867 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="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$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" />
<a class="LC_menubuttons_link" href="javascript:document.newgroupfiles.submit()">$lt{'grpo'}</a>	<a class="LC_menubuttons_link" href="javascript:document.newgroupfiles.submit()">$lt{'grpo'}</a>
Line 3751 NGFFORM	Line 3884 NGFFORM


my @importdoc = (	my @importdoc = (
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="javascript:makenewext(\'newext\');" />'=>$extresourcesform},	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="toggleUpload(\'ext\');" />'=>$extresourcesform}
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/ims.png" alt="'.$lt{imsf}.'" onclick="javascript:makeims();" />'=>$imspform},);	);
$fileuploadform = &create_form_ul(&create_list_elements(@importdoc)) . '<hr id="cc_hrule" style="width:0px;text-align:left;margin-left:0" />' . $fileuploadform;	unless ($container eq 'page') {
	push(@importdoc,
	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/ims.png" alt="'.$lt{imsf}.'" onclick="javascript:toggleUpload(\'ims\');" />'=>$imspform}
	);
	}
	push(@importdoc,
	{'<img class="LC_noBorder_LC_middle" src="/res/adm/pages/pdfupload.png" alt="'.$lt{upl}.'" onclick="javascript:toggleUpload(\'doc\');" />'=>$fileuploadform}
	);
	$fileuploadform = &create_form_ul(&create_list_elements(@importdoc));

@gradingforma=(	@gradingforma=(
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{sipr}.'" onclick="javascript:makesmpproblem();" />'=>$newsmpproblemform},	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/simpprob.png" alt="'.$lt{sipr}.'" onclick="javascript:makesmpproblem();" />'=>$newsmpproblemform},
Line 3774 NGFFORM	Line 3915 NGFFORM

my %orderhash = (	my %orderhash = (
'aa' => ['Import Content',$fileuploadform],	'aa' => ['Import Content',$fileuploadform],
'bb' => ['Published Content',$simpleeditdefaultform],	'bb' => ['Published Content',$importpubform],
'cc' => ['Grading Resources',$gradingform],	'cc' => ['Grading Resources',$gradingform],
);	);
unless ($env{'form.pagepath'}) {	unless ($container eq 'page') {
$orderhash{'00'} = ['Newfolder',$newfolderform];	$orderhash{'00'} = ['Newfolder',$newfolderform];
$orderhash{'dd'} = ['Collaboration',$communityform];	$orderhash{'dd'} = ['Collaboration',$communityform];
$orderhash{'ee'} = ['Special Documents',$specialdocumentsform];	$orderhash{'ee'} = ['Special Pages',$specialdocumentsform];
}	}

$hadchanges=0;	$hadchanges=0;
unless (($supplementalflag \|\| $toolsflag)) {	unless (($supplementalflag \|\| $toolsflag)) {
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
$supplementalflag,\%orderhash,$iconpath);	$supplementalflag,\%orderhash,$iconpath,$pathitem);
if ($error) {	if ($error) {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}	}
Line 3810 unless ($env{'form.pagepath'}) {	Line 3951 unless ($env{'form.pagepath'}) {
} elsif ($allowed) {	} elsif ($allowed) {
$env{'form.folderpath'} = $savefolderpath;	$env{'form.folderpath'} = $savefolderpath;
}	}
$env{'form.pagepath'} = '';	$pathitem = '<input type="hidden" name="folderpath" value="'.
	&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
if ($allowed) {	if ($allowed) {
my $folderseq=	my $folderseq=
'/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_'.time.	'/uploaded/'.$coursedom.'/'.$coursenum.'/supplemental_new.sequence';
'.sequence';

my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');

my $supupdocformbtn = "<input type='submit' value='".$lt{'upld'}."' />$help{'Uploading_From_Harddrive'}";
my $supupdocform=(<<SUPDOCFORM);	my $supupdocform=(<<SUPDOCFORM);
	<a class="LC_menubuttons_link" href="javascript:toggleUpload('suppdoc');">
	$lt{'upfi'}</a> $help{'Uploading_From_Harddrive'}
<form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">	<form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">
	<fieldset id="uploadsuppdocform" style="display: none;">
	<legend>$lt{'upfi'}</legend>
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="ee" />
$fileupload	$fileupload
<br />	<br />
Line 3832 unless ($env{'form.pagepath'}) {	Line 3974 unless ($env{'form.pagepath'}) {
$lt{'comment'}:<br />	$lt{'comment'}:<br />
<textarea cols="50" rows="4" name="comment"></textarea>	<textarea cols="50" rows="4" name="comment"></textarea>
<br />	<br />
<input type="hidden" name="folderpath" value="$path" />	$pathitem
<input type="hidden" name="cmd" value="upload_supplemental" />	<input type="hidden" name="cmd" value="upload_supplemental" />
	<input type='submit' value="$lt{'upld'}" />
	</form>
SUPDOCFORM	SUPDOCFORM
$supupdocform .= &create_form_ul(&Apache::lonhtmlcommon::htmltag('li',$supupdocformbtn,{class => 'LC_menubuttons_inline_text'}))."</form>";

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="ee" />	<input type="hidden" name="active" value="ee" />
<input type="hidden" name="folderpath" value="$path" />	$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>
$help{'Adding_Folders'}	$help{'Adding_Folders'}
</form>	</form>
SNFFORM	SNFFORM

	my $supextform =
my $supnewextform=(<<SNEFORM);	&Apache::lonextresedit::extedit_form(1,0,undef,undef,$pathitem,
<form action="/adm/coursedocs" method="post" name="supnewext">	$help{'Adding_External_Resource'});
<input type="hidden" name="active" value="ff" />
<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="importdetail" value="" />
<a class="LC_menubuttons_link" href="javascript:makenewext('supnewext');">$lt{'extr'}</a> $help{'Adding_External_Resource'}
</form>
SNEFORM

my $supnewsylform=(<<SNSFORM);	my $supnewsylform=(<<SNSFORM);
<form action="/adm/coursedocs" method="post" name="supnewsyl">	<form action="/adm/coursedocs" method="post" name="supnewsyl">
<input type="hidden" name="active" value="ff" />	<input type="hidden" name="active" value="ff" />
<input type="hidden" name="folderpath" value="$path" />	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="Syllabus=/public/$coursedom/$coursenum/syllabus" />	value="Syllabus=/public/$coursedom/$coursenum/syllabus" />
<a class="LC_menubuttons_link" href="javascript:document.supnewsyl.submit()">$lt{'syll'}</a>	<a class="LC_menubuttons_link" href="javascript:document.supnewsyl.submit()">$lt{'syll'}</a>
Line 3871 SNSFORM	Line 4008 SNSFORM
my $supnewaboutmeform=(<<SNAMFORM);	my $supnewaboutmeform=(<<SNAMFORM);
<form action="/adm/coursedocs" method="post" name="supnewaboutme">	<form action="/adm/coursedocs" method="post" name="supnewaboutme">
<input type="hidden" name="active" value="ff" />	<input type="hidden" name="active" value="ff" />
<input type="hidden" name="folderpath" value="$path" />	$pathitem
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme" />	value="$plainname=/adm/$udom/$uname/aboutme" />
<a class="LC_menubuttons_link" href="javascript:document.supnewaboutme.submit()">$lt{'mypi'}</a>	<a class="LC_menubuttons_link" href="javascript:document.supnewaboutme.submit()">$lt{'mypi'}</a>
Line 3887 my @specialdocs = (	Line 4024 my @specialdocs = (
=>$supnewaboutmeform},	=>$supnewaboutmeform},
);	);
my @supimportdoc = (	my @supimportdoc = (
{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="javascript:makenewext(\'supnewext\');" />'	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/extres.png" alt="'.$lt{extr}.'" onclick="javascript:toggleUpload(\'suppext\')" />'
=>$supnewextform},	=>$supextform},
);	{'<img class="LC_noBorder LC_middle" src="/res/adm/pages/pdfupload.png" alt="'.$lt{upl}.'" onclick="javascript:toggleUpload(\'suppdoc\');" />'
$supupdocform = &create_form_ul(&create_list_elements(@supimportdoc)) . '<hr id="ee_hrule" style="width:0px;text-align:left;margin-left:0" />' . $supupdocform;	=>$supupdocform},
	);

	$supupdocform = &create_form_ul(&create_list_elements(@supimportdoc));
my %suporderhash = (	my %suporderhash = (
'00' => ['Supnewfolder', $supnewfolderform],	'00' => ['Supnewfolder', $supnewfolderform],
'ee' => ['Import Content',$supupdocform],	'ee' => ['Import Content',$supupdocform],
'ff' => ['Special Documents',&create_form_ul(&create_list_elements(@specialdocs))]	'ff' => ['Special Pages',&create_form_ul(&create_list_elements(@specialdocs))]
);	);
if ($supplementalflag) {	if ($supplementalflag) {
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
$supplementalflag,\%suporderhash,$iconpath);	$supplementalflag,\%suporderhash,$iconpath,$pathitem);
if ($error) {	if ($error) {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}	}
}	}
} elsif ($supplementalflag) {	} elsif ($supplementalflag) {
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype,
$supplementalflag,'',$iconpath);	$supplementalflag,'',$iconpath,$pathitem);
if ($error) {	if ($error) {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}	}
}	}

$r->print(&endContentScreen());	if ($needs_end) {
	$r->print(&endContentScreen());
	}

if ($allowed) {	if ($allowed) {
$r->print('	$r->print('
Line 3925 my %suporderhash = (	Line 4067 my %suporderhash = (
} elsif ($showdoc) {	} elsif ($showdoc) {
# -------------------------------------------------------- This is showdoc mode	# -------------------------------------------------------- This is showdoc mode
$r->print("<h1>".&mt('Uploaded Document').' - '.	$r->print("<h1>".&mt('Uploaded Document').' - '.
&Apache::lonnet::gettitle($r->uri).'</h1><p>'.	&Apache::lonnet::gettitle($r->uri).'</h1><p class="LC_warning">'.
&mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><table>".	&mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><table>".
&entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table>');	&entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table>');
}	}
Line 3977 sub decompression_info {	Line 4119 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');	my @hiddens = ('newidx','comment','position','folderpath');
if ($env{'form.pagepath'}) {	if ($env{'form.folderpath'} =~ /\:1$/) {
$container='page';	$container='page';
$pathitem = 'pagepath';
} else {
$pathitem = 'folderpath';
}	}
unshift(@hiddens,$pathitem);	unshift(@hiddens,$pathitem);
foreach my $item (@hiddens) {	foreach my $item (@hiddens) {
Line 4172 sub generate_edit_table {	Line 4311 sub generate_edit_table {
my $form;	my $form;
my $activetab;	my $activetab;
my $active;	my $active;
if($env{'form.active'} ne ''){	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';
my $backtext = &mt('To Overview');	my $backtext = &mt('Exit Editor');
$form = '<div class="LC_Box" style="margin:0;">'.	$form = '<div class="LC_Box" style="margin:0;">'.
'<ul id="navigation'.$tid.'" class="LC_TabContent">'."\n".	'<ul id="navigation'.$tid.'" class="LC_TabContent">'."\n".
'<li class="goback">'.	'<li class="goback">'.
'<a href="javascript:toContents('."'$jumpto'".');">'.	'<a href="javascript:toContents('.$jumpto.');">'.
'<img src="'.$backicon.'" class="LC_icon" style="border: none; vertical-align: top;"'.	'<img src="'.$backicon.'" class="LC_icon" style="border: none; vertical-align: top;"'.
' alt="'.$backtext.'" />'.$backtext.'</a></li>'."\n".	' alt="'.$backtext.'" />'.$backtext.'</a></li>'."\n".
'<li>'.	'<li>'.
'<a href="javascript:groupopen('."'$readfile'".',1);">'.	'<a href="javascript:groupopen('."'$readfile'".',1);">'.
&mt('Undo Delete').'</a></li>'."\n";	&mt('Undo Delete').'</a></li>'."\n";
if ($env{'form.docslog'}) {	if ($env{'form.docslog'}) {
$form .= '<li class="active">';	$form .= '<li class="active">';
} else {	} else {
Line 4205 sub generate_edit_table {	Line 4344 sub generate_edit_table {
$active = 'class="active"';	$active = 'class="active"';
}	}
$form .= '<li style="float:right" '.$active	$form .= '<li style="float:right" '.$active
.' onmouseover="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');"'
.' 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 '.$active.' style="float:right">'.${$orderhash{$name}}[1].'</li>'."\n";	$form .= '<li '.$active.' style="float:right">'.${$orderhash{$name}}[1].'</li>'."\n";
Line 4262 sub editing_js {	Line 4400 sub editing_js {
p_ctr2a => 'Cut[_98]',	p_ctr2a => 'Cut[_98]',
p_ctr2b => '?[_98]',	p_ctr2b => '?[_98]',
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',
	imscms => 'You must select which Course Management System was the source of the IMS package',
	invurl => 'Invalid URL',
	titbl => 'Title is blank',
);	);

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 $docs_pagepath = &HTML::Entities::encode($env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.pagepath'},'<>&"');
my $main_container_page;	my $main_container_page;
if ($docs_folderpath eq '') {	if (&HTML::Entities::decode($env{'environment.internal.'.$env{'request.course.id'}.'.docs_folderpath.folderpath'}) =~ /\:1$/) {
if ($docs_pagepath ne '') {	$main_container_page = 1;
$main_container_page = 1;
}
}	}
my $toplevelmain = 'default&Main%20'.$crstype.'%20Documents';	my $toplevelmain = 'default&Main%20'.$crstype.'%20Documents%3A%3A%3A%3A%3A';
my $toplevelsupp = &supplemental_base();	my $toplevelsupp = &supplemental_base();

my $backtourl = '/adm/navmaps';	my $backtourl;
if ($supplementalflag) {	if ($env{'docs.exit.'.$env{'request.course.id'}} =~ /^direct_(.+)$/) {
	my $caller = $1;
	if ($caller =~ /^supplemental/) {
	$backtourl = '/adm/supplemental?folderpath='.&escape($caller);
	} else {
	my ($map,$id,$res)=&Apache::lonnet::decode_symb($caller);
	$res = &Apache::lonnet::clutter($res);
	if (&Apache::lonnet::is_on_map($res)) {
	$backtourl = &HTML::Entities::encode(&Apache::lonnet::clutter($res),'<>&"').'?symb='.
	&HTML::Entities::encode($caller,'<>&"');
	}
	}
	} elsif ($env{'docs.exit.'.$env{'request.course.id'}} eq '/adm/menu') {
	$backtourl = '/adm/menu';
	} elsif ($supplementalflag) {
$backtourl = '/adm/supplemental';	$backtourl = '/adm/supplemental';
	} else {
	$backtourl = '/adm/navmaps';
	}

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

return <<ENDNEWSCRIPT;	return <<ENDNEWSCRIPT;
Line 4298 function makenewpage(targetform,folderse	Line 4461 function makenewpage(targetform,folderse
}	}
}	}

function makenewext(targetname) {
this.document.forms.extimport.useform.value=targetname;
this.document.forms.extimport.title.value='';
this.document.forms.extimport.url.value='';
this.document.forms.extimport.residx.value='';
window.open('/adm/rat/extpickframe.html');
}

function edittext(targetname,residx,title,url) {
this.document.forms.extimport.useform.value=targetname;
this.document.forms.extimport.residx.value=residx;
this.document.forms.extimport.url.value=url;
this.document.forms.extimport.title.value=title;
window.open('/adm/rat/extpickframe.html');
}

function makeexamupload() {	function makeexamupload() {
var title=prompt('$lt{"p_mxu"}');	var title=prompt('$lt{"p_mxu"}');
if (title) {	if (title) {
Line 4378 function makeabout() {	Line 4525 function makeabout() {
}	}
}	}

function makeims() {	function toggleUpload(caller) {
var caller = document.forms.ims.folder.value;	var blocks = Array($fieldsets);
var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one";	for (var i=0; i<blocks.length; i++) {
newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes");	var disp = 'none';
newWindow.location.href = newlocation;	if (caller == blocks[i]) {
}	var curr = document.getElementById('upload'+caller+'form').style.display;
	if (curr == 'none') {
function finishpick() {	disp='block';
var title=this.document.forms.extimport.title.value;	}
var url=this.document.forms.extimport.url.value;	}
var form=this.document.forms.extimport.useform.value;	document.getElementById('upload'+blocks[i]+'form').style.display=disp;
var residx=this.document.forms.extimport.residx.value;	}
eval('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+'='+residx+'";this.document.forms.'+form+'.submit();');	resize_scrollbox('contentscroll','1','1');
	return;
	}

	function toggleMap(caller) {
	var disp = 'none';
	if (document.getElementById('importmapform')) {
	if (caller == 'map') {
	var curr = document.getElementById('importmapform').style.display;
	if (curr == 'none') {
	disp='block';
	}
	}
	document.getElementById('importmapform').style.display=disp;
	resize_scrollbox('contentscroll','1','1');
	}
	return;
	}

	function makeims(imsform) {
	if ((imsform.uploaddoc.value == '') \|\| (!imsform.uploaddoc.value)) {
	alert("$lt{'imsfile'}");
	return;
	}
	if (imsform.source.selectedIndex == 0) {
	alert("$lt{'imscms'}");
	return;
	}
	newWindow = window.open('', 'IMSimport',"HEIGHT=700,WIDTH=750,scrollbars=yes");
	imsform.submit();
}	}

function changename(folderpath,index,oldtitle,container,pagesymb) {	function changename(folderpath,index,oldtitle) {
var title=prompt('$lt{"p_chn"}',oldtitle);	var title=prompt('$lt{"p_chn"}',oldtitle);
if (title) {	if (title) {
this.document.forms.renameform.markcopy.value=-1;	this.document.forms.renameform.markcopy.value=-1;
this.document.forms.renameform.title.value=title;	this.document.forms.renameform.title.value=title;
this.document.forms.renameform.cmd.value='rename_'+index;	this.document.forms.renameform.cmd.value='rename_'+index;
if (container == 'sequence') {	this.document.forms.renameform.folderpath.value=folderpath;
this.document.forms.renameform.folderpath.value=folderpath;
}
if (container == 'page') {
this.document.forms.renameform.pagepath.value=folderpath;
this.document.forms.renameform.pagesymb.value=pagesymb;
}
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
}	}
}	}

function removeres(folderpath,index,oldtitle,container,pagesymb,skip_confirm) {	function removeres(folderpath,index,oldtitle,skip_confirm) {
if (skip_confirm \|\| confirm('$lt{"p_rmr1"}\\n\\n$lt{"p_rmr2a"} "'+oldtitle+'" $lt{"p_rmr2b"}')) {	if (skip_confirm \|\| confirm('$lt{"p_rmr1"}\\n\\n$lt{"p_rmr2a"} "'+oldtitle+'" $lt{"p_rmr2b"}')) {
this.document.forms.renameform.markcopy.value=-1;	this.document.forms.renameform.markcopy.value=-1;
this.document.forms.renameform.cmd.value='del_'+index;	this.document.forms.renameform.cmd.value='del_'+index;
if (container == 'sequence') {	this.document.forms.renameform.folderpath.value=folderpath;
this.document.forms.renameform.folderpath.value=folderpath;
}
if (container == 'page') {
this.document.forms.renameform.pagepath.value=folderpath;
this.document.forms.renameform.pagesymb.value=pagesymb;
}
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
}	}
}	}

function cutres(folderpath,index,oldtitle,container,pagesymb,folder,skip_confirm) {	function cutres(folderpath,index,oldtitle,container,folder,skip_confirm) {
if (skip_confirm \|\| confirm('$lt{"p_ctr1a"}\\n$lt{"p_ctr1b"}\\n\\n$lt{"p_ctr2a"} "'+oldtitle+'" $lt{"p_ctr2b"}')) {	if (skip_confirm \|\| confirm('$lt{"p_ctr1a"}\\n$lt{"p_ctr1b"}\\n\\n$lt{"p_ctr2a"} "'+oldtitle+'" $lt{"p_ctr2b"}')) {
this.document.forms.renameform.cmd.value='cut_'+index;	this.document.forms.renameform.cmd.value='cut_'+index;
this.document.forms.renameform.markcopy.value=index;	this.document.forms.renameform.markcopy.value=index;
this.document.forms.renameform.copyfolder.value=folder+'.'+container;	this.document.forms.renameform.copyfolder.value=folder+'.'+container;
if (container == 'sequence') {	this.document.forms.renameform.folderpath.value=folderpath;
this.document.forms.renameform.folderpath.value=folderpath;
}
if (container == 'page') {
this.document.forms.renameform.pagepath.value=folderpath;
this.document.forms.renameform.pagesymb.value=pagesymb;
}
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
}	}
}	}

function markcopy(folderpath,index,oldtitle,container,pagesymb,folder) {	function markcopy(folderpath,index,oldtitle,container,folder) {
this.document.forms.renameform.markcopy.value=index;	this.document.forms.renameform.markcopy.value=index;
this.document.forms.renameform.copyfolder.value=folder+'.'+container;	this.document.forms.renameform.copyfolder.value=folder+'.'+container;
if (container == 'sequence') {
this.document.forms.renameform.folderpath.value=folderpath;	this.document.forms.renameform.folderpath.value=folderpath;
}
if (container == 'page') {
this.document.forms.renameform.pagepath.value=folderpath;
this.document.forms.renameform.pagesymb.value=pagesymb;
}
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
}	}

Line 4544 function showPage(current, pageId, nav,	Line 4696 function showPage(current, pageId, nav,
currentData = document.getElementById(pageId);	currentData = document.getElementById(pageId);
currentData.style.display = 'block';	currentData.style.display = 'block';
activeTab = pageId;	activeTab = pageId;
	toggleUpload();
	toggleMap();
if (nav == 'mainnav') {	if (nav == 'mainnav') {
var storedpath = "$docs_folderpath";	var storedpath = "$docs_folderpath";
if (storedpath == '') {
storedpath = "$docs_pagepath";
}
var storedpage = "$main_container_page";	var storedpage = "$main_container_page";
var reg = new RegExp("^supplemental");	var reg = new RegExp("^supplemental");
if (pageId == 'mainCourseDocuments') {	if (pageId == 'mainCourseDocuments') {
Line 4584 function showPage(current, pageId, nav,	Line 4735 function showPage(current, pageId, nav,

function toContents(jumpto) {	function toContents(jumpto) {
var newurl = '$backtourl';	var newurl = '$backtourl';
if (jumpto != '') {	if ((newurl == '/adm/navmaps') && (jumpto != '')) {
newurl = newurl+'?postdata='+jumpto;	newurl = newurl+'?postdata='+jumpto;
;
}	}
location.href=newurl;	location.href=newurl;
}	}
Line 4778 Return hash with valid author names	Line 4928 Return hash with valid author names

=item contained_map_check()	=item contained_map_check()

=item reinit_role()

=item url_paste_fixups()	=item url_paste_fixups()

=item apply_fixups()	=item apply_fixups()

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

500 Internal Server Error

Internal Server Error

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

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

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

Removed from v.1.484.2.7
changed lines
	Added in v.1.484.2.23