loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.325.2.9 and 1.351

version 1.325.2.9, 2010/05/23 20:44:10	version 1.351, 2009/03/03 17:45:15
Line 59 my $hadchanges;	Line 59 my $hadchanges;
my %help=();	my %help=();



sub mapread {	sub mapread {
my ($coursenum,$coursedom,$map)=@_;	my ($coursenum,$coursedom,$map)=@_;
return	return
Line 117 sub authorhosts {	Line 116 sub authorhosts {

sub dumpbutton {	sub dumpbutton {
my ($home,$other,%outhash)=&authorhosts();	my ($home,$other,%outhash)=&authorhosts();
my $crstype = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
if ($home+$other==0) { return ''; }	if ($home+$other==0) { return ''; }
if ($home) {	if ($home) {
return '<div>'.	return '<input type="submit" name="dumpcourse" value="'.
'<input type="submit" name="dumpcourse" value="'.	&mt('Dump '.$type.' DOCS to Construction Space').'" />'.
&mt('Dump '.$crstype.' DOCS to Construction Space').'" />'.	&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs');
&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs').
'</div>';
} else {	} else {
return '<div>'.	return '<div>'.
&mt('Dump '.$crstype.	&mt('Dump '.$type.
' DOCS to Construction Space: available on other servers').	' DOCS to Construction Space: available on other servers').
'</div>';	'</div>';
}	}
Line 136 sub dumpbutton {	Line 133 sub dumpbutton {
sub clean {	sub clean {
my ($title)=@_;	my ($title)=@_;
$title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\\|\`\~]+/\_/gs;	$title=~s/[^\w\/\!\$\%\^\*\-\_\=\+\;\:\,\\\\|\`\~]+/\_/gs;
return $title;	return $title;
}	}



sub dumpcourse {	sub dumpcourse {
my ($r) = @_;	my ($r) = @_;
my $crstype = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
$r->print(&Apache::loncommon::start_page('Dump '.$crstype.' DOCS to Construction Space').	$r->print(&Apache::loncommon::start_page('Dump '.$type.' DOCS to Construction Space').
'<form name="dumpdoc" action="" method="post">');	'<form name="dumpdoc" method="post">');
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Dump '.$crstype.' DOCS to Construction Space'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Dump '.$type.' DOCS to Construction Space'));
my ($home,$other,%outhash)=&authorhosts();	my ($home,$other,%outhash)=&authorhosts();
unless ($home) { return ''; }	unless ($home) { return ''; }
my $origcrsid=$env{'request.course.id'};	my $origcrsid=$env{'request.course.id'};
Line 178 sub dumpcourse {	Line 175 sub dumpcourse {
my $fail=0;	my $fail=0;
for (my $i=0;$i<$#dirs;$i++) {	for (my $i=0;$i<$#dirs;$i++) {
$makepath.='/'.$dirs[$i];	$makepath.='/'.$dirs[$i];
unless (-e $makepath) {	unless (-e $makepath) {
unless(mkdir($makepath,0777)) { $fail=1; }	unless(mkdir($makepath,0777)) { $fail=1; }
}	}
}	}
$r->print('<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ');	$r->print('<br /><tt>'.$item.'</tt> => <tt>'.$newfilename.'</tt>: ');
Line 257 sub dumpcourse {	Line 254 sub dumpcourse {
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
&untiehash();	&untiehash();
$r->print(	$r->print(
'<p><input type="submit" name="dumpcourse" value="'.&mt("Dump $crstype DOCS").'" /></p></form>');	'<p><input type="submit" name="dumpcourse" value="'.&mt("Dump $type DOCS").'" /></p></form>');
}	}
}	}



sub exportbutton {	sub exportbutton {
my $crstype = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
return '<div><input type="submit" name="exportcourse"'	return '<input type="submit" name="exportcourse" value="'.
.' value="'.&mt('IMS Export').'"'	&mt('Export '.$type.' to IMS').'" />'.
.' title="'.&mt('Export '.$crstype.' to IMS Package').'" />'.	&Apache::loncommon::help_open_topic('Docs_Export_Course_Docs');
&Apache::loncommon::help_open_topic('Docs_Export_Course_Docs').'</div>';
}	}



sub exportcourse {	sub exportcourse {
my $r=shift;	my $r=shift;
my $crstype = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
my %discussiontime = &Apache::lonnet::dump('discussiontimes',	my %discussiontime = &Apache::lonnet::dump('discussiontimes',
$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});
my $numdisc = keys(%discussiontime);	my $numdisc = keys(%discussiontime);
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
if (!defined($navmap)) {	if (!defined($navmap)) {
$r->print(&Apache::loncommon::start_page('Export '.$crstype.' to IMS Package').	$r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package').
'<h2>'.&mt('IMS Export Failed').'</h2>'.	'<h2>IMS Export Failed</h2>'.
'<div class="LC_error">');	'<div class="LC_error">'.
if ($crstype eq 'Community') {	&mt('Unable to retrieve information about course contents').
$r->print(&mt('Unable to retrieve information about community contents'));	'</div><a href="/adm/coursedocs">'.&mt('Return to Course Editor').'</a>');
} else {	&Apache::lonnet::logthis('IMS export failed - could not create navmap object in '.lc($type).':'.$env{'request.course.id'});
$r->print(&mt('Unable to retrieve information about course contents'));
}
$r->print('</div><a href="/adm/coursedocs">');
if ($crstype eq 'Community') {
$r->print(&mt('Return to Community Editor'));
} else {
$r->print(&mt('Return to Course Editor'));
}
$r->print('</a>');
&Apache::lonnet::logthis('IMS export failed - could not create navmap object in '.lc($crstype).':'.$env{'request.course.id'});
return;	return;
}	}
my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);	my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
Line 312 sub exportcourse {	Line 298 sub exportcourse {
my @exportitems = &Apache::loncommon::get_env_multiple('form.archive');	my @exportitems = &Apache::loncommon::get_env_multiple('form.archive');
my @discussions = &Apache::loncommon::get_env_multiple('form.discussion');	my @discussions = &Apache::loncommon::get_env_multiple('form.discussion');
if (@exportitems == 0 && @discussions == 0) {	if (@exportitems == 0 && @discussions == 0) {
$outcome =	$outcome = '<br />As you did not select any content items or discussions for export, an IMS package has not been created. Please <a href="javascript:history.go(-1)">go back</a> to select either content items or discussions for export';
'<p class="LC_warning">'
.&mt('As you did not select any content items or discussions'
.' for export, an IMS package has not been created.')
.'</p>'
.'<p>'
.&mt('Please [_1]go back[_2] to select either content items'
.' or discussions for export.'
,'<a href="javascript:history.go(-1)">'
,'</a>')
.'</p>';
} else {	} else {
my $now = time;	my $now = time;
my %symbs;	my %symbs;
Line 345 sub exportcourse {	Line 321 sub exportcourse {
open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");	open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");
close(OUTPUT);	close(OUTPUT);
chdir $cwd;	chdir $cwd;
$outcome .= '<p>'	$outcome .= &mt('Download the zip file from <a href="[_1]">IMS '.lc($type).' archive</a><br />',$imszipfile,);
.&mt('[_1]Your IMS package[_2] is ready for download.'
,'<a href="'.$imszipfile.'">','</a>')
.'</p>';
if ($copyresult) {	if ($copyresult) {
$outcome .= '<p class="LC_error">'	$outcome .= &mt('The following errors occurred during export - [_1]',$copyresult);
.&mt('The following errors occurred during export - [_1]'
,$copyresult)
.'</p>';
}	}
} else {	} else {
$outcome = '<p class="LC_error">'	$outcome = '<br />'.&mt('Unfortunately you will not be able to retrieve an IMS archive of this posts at this time, because there was a problem creating a manifest file.').'<br />';
.&mt('Unfortunately you will not be able to retrieve'
.' an IMS archive of this posts at this time,'
.' because there was a problem creating a'
.' manifest file.')
.'</p>'
.'<p><a href="javascript:history.go(-1)">'
.&mt('Go Back')
.'</a></p>';
}	}
}	}
$r->print(&Apache::loncommon::start_page('Export '.$crstype.' to IMS Package'));	$r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('IMS Export'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package'));
$r->print($outcome);	$r->print($outcome);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} else {	} else {
my $display='<form name="exportdoc" action="" method="post">'."\n".	my $display;
'<p>'.	$display = '<form name="exportdoc" method="post">'."\n";
&mt('Choose which items you wish to export from your '.$crstype.'.').	$display .= &mt('Choose which items you wish to export from your '.$type.'.<br /><br />');
'</p>'.	$display .= '<table border="0" cellspacing="0" cellpadding="3">'.
'<div class="LC_columnSection"><fieldset>'.	'<tr><td><fieldset><legend> <b>Content items</b></legend>'.
'<legend>'.&mt('Content items').'</legend>'.	'<input type="button" value="check all" '.
'<input type="button" value="'.&mt('check all').'" '.
'onclick="javascript:checkAll(document.exportdoc.archive)" />'.	'onclick="javascript:checkAll(document.exportdoc.archive)" />'.
'  <input type="button" value="'.&mt('uncheck all').'"'.	'  <input type="button" value="uncheck all"'.
' onclick="javascript:uncheckAll(document.exportdoc.archive)" /></fieldset>';	' onclick="javascript:uncheckAll(document.exportdoc.archive)" /></fieldset></td>'.
if ($numdisc > 0) {	'<td> </td><td> </td>'.
$display .= '<fieldset>'.	'<td align="right"><fieldset><legend> <b>Discussion posts'.
'<legend>'.&mt('Discussion posts').'</legend>'.	'</b></legend><input type="button" value="check all"'.
'<input type="button" value="'.&mt('check all').'"'.	' onclick="javascript:checkAll(document.exportdoc.discussion)" />'.
' onclick="javascript:checkAll(document.exportdoc.discussion)" />'.	'  <input type="button" value="uncheck all"'.
'  <input type="button" value="'.&mt('uncheck all').'"'.	' onclick="javascript:uncheckAll(document.exportdoc.discussion)" /></fieldset></td>'.
' onclick="javascript:uncheckAll(document.exportdoc.discussion)" />'.	'</tr></table>';
'</fieldset>';
}
$display .= '</div>';
my $curRes;	my $curRes;
my $depth = 0;	my $depth = 0;
my $count = 0;	my $count = 0;
Line 400 sub exportcourse {	Line 358 sub exportcourse {
my %parent = ();	my %parent = ();
my %children = ();	my %children = ();
my $lastcontainer = $startcount;	my $lastcontainer = $startcount;
$display .= &Apache::loncommon::start_data_table()	my @bgcolors = ('#F6F6F6','#FFFFFF');
.&Apache::loncommon::start_data_table_header_row()	$display .= '<table cellspacing="0"><tr>'.
.'<th>'.&mt('Export content item?').'</th>';	'<td><b>Export content item?<br /></b></td><td> </td><td align="right">'."\n";
if ($numdisc > 0) {	if ($numdisc > 0) {
$display .= '<th>'.&mt('Export discussion posts?').'</th>';	$display.='<b>Export discussion posts?</b>'."\n";
}	}
$display .= &Apache::loncommon::end_data_table_header_row();	$display.=' </td></tr>';
while ($curRes = $it->next()) {	while ($curRes = $it->next()) {
if (ref($curRes)) {	if (ref($curRes)) {
$count ++;	$count ++;
Line 427 sub exportcourse {	Line 385 sub exportcourse {
$ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';	$ressymb = 'bulletin___'.$3.'___adm/wrapper/adm/'.$1.'/'.$2.'/'.$3.'/bulletinboard';
}	}
}	}
my $currelem = $count+$boards+$startcount;	my $color = $count%2;
$display .= &Apache::loncommon::start_data_table_row()	$display .='<tr bgcolor='.$bgcolors[$color].'><td>'."\n".
.'<td>'."\n"	'<input type="checkbox" name="archive" value="'.$count.'" ';
.'<input type="checkbox" name="archive" value="'.$count.'" ';
if (($curRes->is_sequence()) \|\| ($curRes->is_page())) {	if (($curRes->is_sequence()) \|\| ($curRes->is_page())) {
$lastcontainer = $currelem;	my $checkitem = $count + $boards + $startcount;
$display .= 'onclick="javascript:propagateCheck('."'$currelem'".')"';	$display .= 'onClick="javascript:propagateCheck('."'$checkitem'".')"';
}	}
$display .= ' />'."\n";	$display .= ' />'."\n";
for (my $i=0; $i<$depth; $i++) {	for (my $i=0; $i<$depth; $i++) {
$display .= ('<img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" />' x2)."\n";	$display .= '<img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" /><img src="/adm/lonIcons/whitespace1.gif" class="LC_docs_spacer" />'."\n";
}	}
if ($curRes->is_sequence()) {	if ($curRes->is_sequence()) {
$display .= '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" /> '."\n";	$display .= '<img src="/adm/lonIcons/navmap.folder.open.gif"> '."\n";
	$lastcontainer = $count + $startcount + $boards;
} elsif ($curRes->is_page()) {	} elsif ($curRes->is_page()) {
$display .= '<img src="/adm/lonIcons/navmap.page.open.gif" alt="" /> '."\n";	$display .= '<img src="/adm/lonIcons/navmap.page.open.gif"> '."\n";
	$lastcontainer = $count + $startcount + $boards;
}	}
	my $currelem = $count+$boards+$startcount;
$children{$parent{$depth}} .= $currelem.':';	$children{$parent{$depth}} .= $currelem.':';
$display .= ' '.$curRes->title().'</td>'."\n";	$display .= ' '.$curRes->title().'</td>';

# Existing discussion posts?

if ($discussiontime{$ressymb} > 0) {	if ($discussiontime{$ressymb} > 0) {
$boards ++;	$boards ++;
$display .= '<td align="right">'	$currelem = $count+$boards+$startcount;
.'<input type="checkbox" name="discussion" value="'.$count.'" />'	$display .= '<td> </td><td align="right"><input type="checkbox" name="discussion" value="'.$count.'" /> </td>'."\n";
.'</td>'."\n";
} else {	} else {
$display .= '<td> </td>'."\n";	$display .= '<td colspan="2"> </td>'."\n";
}	}
$display .= &Apache::loncommon::end_data_table_row();
}	}
}	}
$display .= &Apache::loncommon::end_data_table();
my $scripttag = qq\|	my $scripttag = qq\|
<script type="text/javascript">	<script>
// <![CDATA[

function checkAll(field) {	function checkAll(field) {
if (field.length > 0) {	if (field.length > 0) {
Line 515 function containerCheck(item) {	Line 468 function containerCheck(item) {
}	}
}	}

// ]]>
</script>	</script>
\|;	\|;
$r->print(&Apache::loncommon::start_page('Export '.$crstype.' to IMS Package',	$r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package',
$scripttag));	$scripttag));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($crstype).' to IMS content package'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package'));
$r->print($display.	$r->print($display.'</table>'.
'<p><input type="hidden" name="finishexport" value="1" />'.	'<p><input type="hidden" name="finishexport" value="1">'.
'<input type="submit" name="exportcourse" value="'.	'<input type="submit" name="exportcourse" value="'.
&mt('Export').'" /></p></form>');	&mt('Export '.$type.' DOCS').'" /></p></form>');
}	}
}	}

Line 551 sub create_ims_store {	Line 503 sub create_ims_store {
my $manifestfilename = $$tempexport.$manifest;	my $manifestfilename = $$tempexport.$manifest;
if ($ims_manifest = Apache::File->new('>'.$manifestfilename)) {	if ($ims_manifest = Apache::File->new('>'.$manifestfilename)) {
$$manifestok=1;	$$manifestok=1;
print $ims_manifest	print $ims_manifest
'<?xml version="1.0" encoding="UTF-8"?>'."\n".	'<?xml version="1.0" encoding="UTF-8"?>'."\n".
'<manifest xmlns="http://www.imsglobal.org/xsd/imscp_v1p1"'.	'<manifest xmlns="http://www.imsglobal.org/xsd/imscp_v1p1"'.
' xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2"'.	' xmlns:imsmd="http://www.imsglobal.org/xsd/imsmd_v1p2"'.
Line 807 sub replicate_content {	Line 759 sub replicate_content {
if ($caller eq 'templateupload') {	if ($caller eq 'templateupload') {
$url = $symb;	$url = $symb;
$url =~ s#//#/#g;	$url =~ s#//#/#g;
} else {	} else {
($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);	($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
}	}
my $content;	my $content;
Line 847 sub replicate_content {	Line 799 sub replicate_content {
$$message = 'Could not render '.$url.' server message - '.$rtncode."<br />\n";	$$message = 'Could not render '.$url.' server message - '.$rtncode."<br />\n";
}	}
} elsif ($caller eq 'noedit') {	} elsif ($caller eq 'noedit') {
# Need to render the resource without the LON-CAPA Internal header and the Post discussion footer, and then set $content equal to this.	# Need to render the resource without the LON-CAPA Internal header and the Post discussion footer, and then set $content equal to this.
$repstatus = 'ok';	$repstatus = 'ok';
$content = 'Not the owner of this resource';	$content = 'Not the owner of this resource';
}	}
if ($repstatus eq 'ok') {	if ($repstatus eq 'ok') {
print $copiedfile $content;	print $copiedfile $content;
Line 900 sub extract_media {	Line 852 sub extract_media {
}	}
}	}
if ($caller eq 'resource') {	if ($caller eq 'resource') {
my $respath = $Apache::lonnet::perlvar{'lonDocRoot'}.'/res';	my $respath = $Apache::lonnet::perlvar{'lonDocRoot'}.'/res';
my $embed_path = &Apache::lonnet::filelocation($respath,$embed_url);	my $embed_path = &Apache::lonnet::filelocation($respath,$embed_url);
$embed_content = &Apache::lonnet::getfile($embed_path);	$embed_content = &Apache::lonnet::getfile($embed_path);
unless ($embed_content eq -1) {	unless ($embed_content eq -1) {
$repstatus = 'ok';	$repstatus = 'ok';
Line 969 sub group_import {	Line 921 sub group_import {

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)$})
&& ($caller eq 'londocs')	&& ($caller eq 'londocs')
&& (!&Apache::lonnet::stat_file($url))) {	&& (!&Apache::lonnet::stat_file($url))) {

Line 992 sub group_import {	Line 944 sub group_import {
}	}
}	}
if ($url) {	if ($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);
push(@LONCAPA::map::order, $residx);	push(@LONCAPA::map::order, $residx);
Line 1001 sub group_import {	Line 953 sub group_import {
if ($url=~m{^http://} \|\| $url=~m{^https://}) { $ext = 'true'; }	if ($url=~m{^http://} \|\| $url=~m{^https://}) { $ext = 'true'; }
$url = &LONCAPA::map::qtunescape($url);	$url = &LONCAPA::map::qtunescape($url);
$name = &LONCAPA::map::qtunescape($name);	$name = &LONCAPA::map::qtunescape($name);
$LONCAPA::map::resources[$residx] =	$LONCAPA::map::resources[$residx] =
join(':', ($name, $url, $ext, 'normal', 'res'));	join(':', ($name, $url, $ext, 'normal', 'res'));
}	}
}	}
Line 1009 sub group_import {	Line 961 sub group_import {
}	}

sub breadcrumbs {	sub breadcrumbs {
my ($allowed,$crstype)=@_;	my ($where,$allowed,$type)=@_;
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
my (@folders);	my (@folders);
if ($env{'form.pagepath'}) {	if ($env{'form.pagepath'}) {
Line 1032 sub breadcrumbs {	Line 984 sub breadcrumbs {
my $url='/adm/coursedocs?folderpath='.	my $url='/adm/coursedocs?folderpath='.
&escape($folderpath);	&escape($folderpath);
my $name=&unescape($foldername);	my $name=&unescape($foldername);
# randompick number, hidden, encrypted, random order, is appended with ":"s to the foldername	# randompick number, hidden, encrypted, random order, is appended with ":"s to the foldername
$name=~s/\:(\d)\:(\w)\:(\w):(\d)$//;	$name=~s/\:(\d)\:(\w)\:(\w):(\d)$//;
if ($1 ne '') {	if ($1 ne '') {
$randompick=$1;	$randompick=$1;
} else {	} else {
$randompick=-1;	$randompick=-1;
Line 1044 sub breadcrumbs {	Line 996 sub breadcrumbs {
if ($4 ne '') { $is_random_order = 1; }	if ($4 ne '') { $is_random_order = 1; }
if ($folder eq 'supplemental') {	if ($folder eq 'supplemental') {
if ($allowed) {	if ($allowed) {
$name = &mt('Supplemental '.$crstype.' Documents');	$name = &mt('Supplemental '.$type.' Documents');
} else {	} else {
$name = &mt($crstype.' Documents');	$name = &mt($type.' Documents');
}	}
}	}
&Apache::lonhtmlcommon::add_breadcrumb(	&Apache::lonhtmlcommon::add_breadcrumb(
Line 1173 sub docs_change_log {	Line 1125 sub docs_change_log {
foreach my $key (@changes) {	foreach my $key (@changes) {
$wholeentry.=':'.$docslog{$id}{'logentry'}{$key};	$wholeentry.=':'.$docslog{$id}{'logentry'}{$key};
}	}
if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }	if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }
}	}
my $count = 0;	my $count = 0;
my $time =	my $time =
Line 1386 sub do_paste_from_buffer {	Line 1338 sub do_paste_from_buffer {
$db_name =~ s{_\d*$ }{_$now}x;	$db_name =~ s{_\d*$ }{_$now}x;
my $result=&Apache::lonnet::put($db_name,\%contents,	my $result=&Apache::lonnet::put($db_name,\%contents,
$coursedom,$coursenum);	$coursedom,$coursenum);
$url =~ s{/(\d*)/smppg$ }{/$now/smppg}x;	$url =~ s{/(\d*)/smppg$ }{/$now/smppg}x;
$title=&mt('Copy of').' '.$title;	$title=&mt('Copy of').' '.$title;
}	}
}	}
Line 1400 sub do_paste_from_buffer {	Line 1352 sub do_paste_from_buffer {
if ($folder =~ /^supplemental/) {	if ($folder =~ /^supplemental/) {
$title = $env{'docs.markedcopy_supplemental'};	$title = $env{'docs.markedcopy_supplemental'};
} else {	} else {
(undef,undef,$title) =	(undef,undef,$title) =
&parse_supplemental_title($env{'docs.markedcopy_supplemental'});	&parse_supplemental_title($env{'docs.markedcopy_supplemental'});
}	}
} else {	} else {
Line 1424 sub uniqueness_check {	Line 1376 sub uniqueness_check {
$url=&LONCAPA::map::qtescape($url);	$url=&LONCAPA::map::qtescape($url);
if ($newurl eq $url) {	if ($newurl eq $url) {
$unique = 0;	$unique = 0;
last;	last;
}	}
}	}
return $unique;	return $unique;
Line 1478 sub handle_edit_cmd {	Line 1430 sub handle_edit_cmd {
&LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);	&LONCAPA::map::makezombie($LONCAPA::map::order[$idx]);
splice(@LONCAPA::map::order, $idx, 1);	splice(@LONCAPA::map::order, $idx, 1);

} elsif ($cmd eq 'up'	} elsif ($cmd eq 'up'
&& ($idx) && (defined($LONCAPA::map::order[$idx-1]))) {	&& ($idx) && (defined($LONCAPA::map::order[$idx-1]))) {
@LONCAPA::map::order[$idx-1,$idx] = @LONCAPA::map::order[$idx,$idx-1];	@LONCAPA::map::order[$idx-1,$idx] = @LONCAPA::map::order[$idx,$idx-1];

Line 1503 sub handle_edit_cmd {	Line 1455 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,$type)=@_;

my $container= ($env{'form.pagepath'}) ? 'page'	my $container= ($env{'form.pagepath'}) ? 'page'
: 'sequence';	: 'sequence';
Line 1520 sub editor {	Line 1472 sub editor {
}	}

my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order)=	my ($breadcrumbtrail,$randompick,$ishidden,$isencrypted,$plain,$is_random_order)=
&breadcrumbs($allowed,$crstype);	&breadcrumbs($folder,$allowed,$type);
$r->print($breadcrumbtrail);	$r->print($breadcrumbtrail);

# ------------------------------------------------------------ Process commands	# ------------------------------------------------------------ Process commands
Line 1545 sub editor {	Line 1497 sub editor {
}	}

if ($env{'form.pastemarked'}) {	if ($env{'form.pastemarked'}) {
my $paste_res =	my $paste_res =
&do_paste_from_buffer($coursenum,$coursedom,$folder);	&do_paste_from_buffer($coursenum,$coursedom,$folder);
if ($paste_res eq 'ok') {	if ($paste_res eq 'ok') {
($errtext,$fatal) = &storemap($coursenum,$coursedom,$folder.'.'.$container);	($errtext,$fatal) = &storemap($coursenum,$coursedom,$folder.'.'.$container);
Line 1619 sub editor {	Line 1571 sub editor {
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { $idx++; next; }	unless ($name) { $idx++; next; }
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$res,	$r->print(&entryline($idx,$name,$url,$folder,$allowed,$res,
$coursenum,$crstype));	$coursenum));
$idx++;	$idx++;
$shown++;	$shown++;
}	}
Line 1697 sub process_file_upload {	Line 1649 sub process_file_upload {
return 'failed';	return 'failed';
} else {	} else {
if ($parseaction eq 'parse') {	if ($parseaction eq 'parse') {
my $total_embedded = scalar(keys(%{$allfiles}));	my $total_embedded = keys(%{$allfiles});
if ($total_embedded > 0) {	if ($total_embedded > 0) {
my $num = 0;	my $num = 0;
my $state = '	my $state = '
Line 1708 sub process_file_upload {	Line 1660 sub process_file_upload {
<input type="hidden" name="phasetwo" value="'.$total_embedded.'" />';	<input type="hidden" name="phasetwo" value="'.$total_embedded.'" />';
$phase_status = 'phasetwo';	$phase_status = 'phasetwo';

$$upload_output .=	$$upload_output .=
'This file contains embedded multimedia objects, which need to be uploaded to LON-CAPA.<br />'.	'This file contains embedded multimedia objects, which need to be uploaded to LON-CAPA.<br />'.
&Apache::loncommon::ask_for_embedded_content(	&Apache::loncommon::ask_for_embedded_content(
'/adm/coursedocs',$state,$allfiles,$codebase);	'/adm/coursedocs',$state,$allfiles,$codebase);
Line 1758 sub parse_supplemental_title {	Line 1710 sub parse_supplemental_title {
$foldertitle=&Apache::lontexconvert::msgtexconverted($4);	$foldertitle=&Apache::lontexconvert::msgtexconverted($4);
my $name = &Apache::loncommon::plainname($uname,$udom);	my $name = &Apache::loncommon::plainname($uname,$udom);
$name = &HTML::Entities::encode($name,'"<>&\'');	$name = &HTML::Entities::encode($name,'"<>&\'');
$renametitle = &HTML::Entities::encode($renametitle,'"<>&\'');
$title='<i>'.&Apache::lonlocal::locallocaltime($time).'</i> '.	$title='<i>'.&Apache::lonlocal::locallocaltime($time).'</i> '.
$name.': <br />'.$foldertitle;	$name.': <br />'.$foldertitle;
}	}
Line 1771 sub parse_supplemental_title {	Line 1722 sub parse_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)=@_;

my ($foldertitle,$pagetitle,$renametitle);	my ($foldertitle,$pagetitle,$renametitle);
if (&is_supplemental_title($title)) {	if (&is_supplemental_title($title)) {
Line 1812 sub entryline {	Line 1763 sub entryline {
my $incindex=$index+1;	my $incindex=$index+1;
my $selectbox='';	my $selectbox='';
if (($folder!~/^supplemental/) &&	if (($folder!~/^supplemental/) &&
($#LONCAPA::map::order>0) &&	($#LONCAPA::map::order>0) &&
((split(/\:/,	((split(/\:/,
$LONCAPA::map::resources[$LONCAPA::map::order[0]]))[1]	$LONCAPA::map::resources[$LONCAPA::map::order[0]]))[1]
ne '') &&	ne '') &&
((split(/\:/,	((split(/\:/,
$LONCAPA::map::resources[$LONCAPA::map::order[1]]))[1]	$LONCAPA::map::resources[$LONCAPA::map::order[1]]))[1]
ne '')) {	ne '')) {
$selectbox=	$selectbox=
'<input type="hidden" name="currentpos" value="'.$incindex.'" />'.	'<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
'<select name="newpos" onChange="this.form.submit()">';	'<select name="newpos" onChange="this.form.submit()">';
for (my $i=1;$i<=$#LONCAPA::map::order+1;$i++) {	for (my $i=1;$i<=$#LONCAPA::map::order+1;$i++) {
if ($i==$incindex) {	if ($i==$incindex) {
$selectbox.='<option value="" selected="selected">('.$i.')</option>';	$selectbox.='<option value="" selected="1">('.$i.')</option>';
} else {	} else {
$selectbox.='<option value="'.$i.'">'.$i.'</option>';	$selectbox.='<option value="'.$i.'">'.$i.'</option>';
}	}
Line 1854 sub entryline {	Line 1805 sub entryline {
}	}
}	}
}	}
if ($url=~/^\/res\/lib\/templates\//) {	if ($url=~/^\/res\/lib\/templates\//) {
$nocopy=1;	$nocopy=1;
$nocut=1;	$nocut=1;
}	}
my $copylink=' ';	my $copylink=' ';
Line 1970 END	Line 1921 END
} elsif ($url!~/\.(sequence\|page)$/) {	} elsif ($url!~/\.(sequence\|page)$/) {
$url='/adm/coursedocs/showdoc'.$url;	$url='/adm/coursedocs/showdoc'.$url;
}	}
} elsif ($url=~m\|^/ext/\|) {	} elsif ($url=~m\|^/ext/\|) {
$url='/adm/wrapper'.$url;	$url='/adm/wrapper'.$url;
$external = 1;	$external = 1;
}	}
Line 1991 END	Line 1942 END
my $foldername=&escape($foldertitle);	my $foldername=&escape($foldertitle);
my $folderpath=$env{'form.folderpath'};	my $folderpath=$env{'form.folderpath'};
if ($folderpath) { $folderpath.='&' };	if ($folderpath) { $folderpath.='&' };
# 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.=$folderarg.'&'.$foldername.':'.(&LONCAPA::map::getparameter($orderidx,
'parameter_randompick'))[0]	'parameter_randompick'))[0]
Line 2011 END	Line 1962 END
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 ='
<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>';	<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>';
}	}
if ($ispage) {	if ($ispage) {
my $pagename=&escape($pagetitle);	my $pagename=&escape($pagetitle);
Line 2037 END	Line 1988 END
} else {	} else {
undef($external);	undef($external);
}	}
my $reinit;
if ($crstype eq 'Community') {
$reinit = &mt('(re-initialize community to access)');
} else {
$reinit = &mt('(re-initialize course to access)');
}
$line.='	$line.='
<td class="LC_docs_entry_icon">	<td class="LC_docs_entry_icon">
'.($url?'<a href="'.$url.'">':'').'<img src="'.$icon.'" alt="" class="LC_icon" />'.($url?'</a>':'').'	'.($url?'<a href="'.$url.'">':'').'<img src="'.$icon.'" alt="" class="LC_icon" />'.($url?'</a>':'').'
</td>	</td>
<td class="LC_docs_entry_title">	<td class="LC_docs_entry_title">
'.($url?"<a href=\"$url\">":'').$title.($url?'</a>':' <span class="LC_docs_reinit_warn">'.$reinit.'</span>').$external."	'.($url?"<a href=\"$url\">":'').$title.($url?'</a>':' <span class="LC_docs_reinit_warn">'.&mt('(re-initialize course to access)').'</span>').$external."
</td>";	</td>";
if (($allowed) && ($folder!~/^supplemental/)) {	if (($allowed) && ($folder!~/^supplemental/)) {
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'hd' => 'Hidden',	'hd' => 'Hidden',
'ec' => 'URL hidden');	'ec' => 'URL hidden');
my $enctext=	my $enctext=
((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i?' checked="checked"':'');	((&LONCAPA::map::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i?' checked="1"':'');
my $hidtext=	my $hidtext=
((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i?' checked="checked"':'');	((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i?' checked="1"':'');
$line.=(<<ENDPARMS);	$line.=(<<ENDPARMS);
<td class="LC_docs_entry_parameter">	<td class="LC_docs_entry_parameter">
$form_start	$form_start
<label><input type="checkbox" name="hiddenresource_$orderidx" onclick="this.form.changeparms.value='hiddenresource';this.form.submit()" $hidtext /> $lt{'hd'}</label>	<label><input type="checkbox" name="hiddenresource_$orderidx" onClick="this.form.changeparms.value='hiddenresource';this.form.submit()" $hidtext /> $lt{'hd'}</label>
$form_end	$form_end
</td>	</td>
<td class="LC_docs_entry_parameter">	<td class="LC_docs_entry_parameter">
$form_start	$form_start
<label><input type="checkbox" name="encrypturl_$orderidx" onclick="this.form.changeparms.value='encrypturl';this.form.submit()" $enctext /> $lt{'ec'}</label>	<label><input type="checkbox" name="encrypturl_$orderidx" onClick="this.form.changeparms.value='encrypturl';this.form.submit()" $enctext /> $lt{'ec'}</label>
$form_end	$form_end
</td>	</td>
<td class="LC_docs_entry_parameter">$form_start $rand_order_text $form_end</td>	<td class="LC_docs_entry_parameter">$form_start $rand_order_text $form_end</td>
Line 2149 sub checkonthis {	Line 2094 sub checkonthis {
if (($errorcount) \|\|	if (($errorcount) \|\|
($warningcount)) {	($warningcount)) {
if ($errorcount) {	if ($errorcount) {
$r->print('<img src="/adm/lonMisc/bomb.gif" alt="'.&mt('bomb').'" /><span class="LC_error">'.	$r->print('<img src="/adm/lonMisc/bomb.gif" /><span class="LC_error">'.
&mt('[quant,_1,error]',$errorcount).'</span>');	&mt('[quant,_1,error]',$errorcount).'</span>');
}	}
if ($warningcount) {	if ($warningcount) {
Line 2174 sub checkonthis {	Line 2119 sub checkonthis {
unless ($url=~/\$/) {	unless ($url=~/\$/) {
$r->print('<span class="LC_error">'.&mt('not found').'</b></span>');	$r->print('<span class="LC_error">'.&mt('not found').'</b></span>');
} else {	} else {
$r->print('<span class="LC_error">'.&mt('unable to verify variable URL').'</span>');	$r->print('<span class="LC_unknown">'.&mt('unable to verify variable URL').'</span>');
}	}
} else {	} else {
$r->print('<span class="LC_error">'.&mt('access denied').'</span>');	$r->print('<span class="LC_error">'.&mt('access denied').'</span>');
Line 2196 List Symbs	Line 2141 List Symbs
sub list_symbs {	sub list_symbs {
my ($r) = @_;	my ($r) = @_;

my $crstype = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
$r->print(&Apache::loncommon::start_page('Symb List'));	$r->print(&Apache::loncommon::start_page('Symb List'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Symb List'));
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
Line 2205 sub list_symbs {	Line 2150 sub list_symbs {
'<div class="LC_error">'.	'<div class="LC_error">'.
&mt('Unable to retrieve information about course contents').	&mt('Unable to retrieve information about course contents').
'</div>');	'</div>');
&Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($crstype).':'.$env{'request.course.id'});	&Apache::lonnet::logthis('Symb list failed - could not create navmap object in '.lc($type).':'.$env{'request.course.id'});
} else {	} else {
$r->print("<pre>\n");	$r->print("<pre>\n");
foreach my $res ($navmap->retrieveResources()) {	foreach my $res ($navmap->retrieveResources()) {
Line 2219 sub list_symbs {	Line 2164 sub list_symbs {

sub verifycontent {	sub verifycontent {
my ($r) = @_;	my ($r) = @_;
my $crstype = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
my $loaderror=&Apache::lonnet::overloaderror($r);	my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) { return $loaderror; }	if ($loaderror) { return $loaderror; }
$r->print(&Apache::loncommon::start_page('Verify '.$crstype.' Documents'));	$r->print(&Apache::loncommon::start_page('Verify '.$type.' Documents'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$crstype.' Documents'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$type.' Documents'));
$hashtied=0;	$hashtied=0;
undef %alreadyseen;	undef %alreadyseen;
%alreadyseen=();	%alreadyseen=();
Line 2232 sub verifycontent {	Line 2177 sub verifycontent {
if ($hash{$key}=~/\.(page\|sequence)$/) {	if ($hash{$key}=~/\.(page\|sequence)$/) {
if (($key=~/^src_/) && ($alreadyseen{&unescape($hash{$key})})) {	if (($key=~/^src_/) && ($alreadyseen{&unescape($hash{$key})})) {
$r->print('<hr /><span class="LC_error">'.	$r->print('<hr /><span class="LC_error">'.
&mt('The following sequence or page is included more than once in your '.$crstype.': ').	&mt('The following sequence or page is included more than once in your '.$type.': ').
&unescape($hash{$key}).'</span><br />'.	&unescape($hash{$key}).'</span><br />'.
&mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />'));	&mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />'));
}	}
Line 2255 sub devalidateversioncache {	Line 2200 sub devalidateversioncache {

sub checkversions {	sub checkversions {
my ($r) = @_;	my ($r) = @_;
my $crstype = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
$r->print(&Apache::loncommon::start_page("Check $crstype Document Versions"));	$r->print(&Apache::loncommon::start_page("Check $type Document Versions"));
$r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $crstype Document Versions"));	$r->print(&Apache::lonhtmlcommon::breadcrumbs("Check $type Document Versions"));
my $header='';	my $header='';
my $startsel='';	my $startsel='';
my $monthsel='';	my $monthsel='';
Line 2308 sub checkversions {	Line 2253 sub checkversions {
if ($haschanged) {	if ($haschanged) {
if (&Apache::lonnet::put('resourceversions',\%newsetversions,	if (&Apache::lonnet::put('resourceversions',\%newsetversions,
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {	$env{'course.'.$env{'request.course.id'}.'.num'}) eq 'ok') {
$r->print('<h1>'.&mt('Your Version Settings have been Saved').'</h1>');	$r->print('<h1>'.&mt('Your Version Settings have been Saved').'</h1>');
} else {	} else {
$r->print('<h1><span class="LC_error">'.&mt('An Error Occured while Attempting to Save your Version Settings').'</span></h1>');	$r->print('<h1><span class="LC_error">'.&mt('An Error Occured while Attempting to Save your Version Settings').'</span></h1>');
Line 2318 sub checkversions {	Line 2263 sub checkversions {
&changewarning($r,'');	&changewarning($r,'');
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 '.$type);
$allsel=1;	$allsel=1;
foreach my $key (keys(%hash)) {	foreach my $key (keys(%hash)) {
if ($key=~/^ids\_(\/res\/.+)$/) {	if ($key=~/^ids\_(\/res\/.+)$/) {
Line 2363 sub checkversions {	Line 2308 sub checkversions {
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
my %lt=&Apache::lonlocal::texthash	my %lt=&Apache::lonlocal::texthash
('st' => 'Version changes since start of '.$crstype,	('st' => 'Version changes since start of '.$type,
'lm' => 'Version changes since last Month',	'lm' => 'Version changes since last Month',
'lw' => 'Version changes since last Week',	'lw' => 'Version changes since last Week',
'sy' => 'Version changes since Yesterday',	'sy' => 'Version changes since Yesterday',
Line 2372 sub checkversions {	Line 2317 sub checkversions {
'fi' => 'File',	'fi' => 'File',
'md' => 'Modification Date',	'md' => 'Modification Date',
'mr' => 'Most recently published Version',	'mr' => 'Most recently published Version',
've' => 'Version used in '.$crstype,	've' => 'Version used in '.$type,
'vu' => 'Set Version to be used in '.$crstype,	'vu' => 'Set Version to be used in '.$type,
'sv' => 'Set Versions to be used in '.$crstype.' according to Selections below',	'sv' => 'Set Versions to be used in '.$type.' according to Selections below',
'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',	'sm' => 'Keep all Resources up-to-date with most recent Versions (default)',
'sc' => 'Set all Resource Versions to current Version (Fix Versions)',	'sc' => 'Set all Resource Versions to current Version (Fix Versions)',
'di' => 'Differences');	'di' => 'Differences');
Line 2421 ENDHEADERS	Line 2366 ENDHEADERS
'<td title="'.$lt{'mr'}.'"><span class="LC_nobreak">Most Recent: '.	'<td title="'.$lt{'mr'}.'"><span class="LC_nobreak">Most Recent: '.
'<font size="+1">'.$currentversion.'</font>'.	'<font size="+1">'.$currentversion.'</font>'.
'</span></td>'.	'</span></td>'.
'<td title="'.$lt{'ve'}.'"><span class="LC_nobreak">In '.$crstype.': '.	'<td title="'.$lt{'ve'}.'"><span class="LC_nobreak">In '.$type.': '.
'<font size="+1">');	'<font size="+1">');
# Used in course	# Used in course
my $usedversion=$hash{'version_'.$linkurl};	my $usedversion=$hash{'version_'.$linkurl};
Line 2438 ENDHEADERS	Line 2383 ENDHEADERS
('select_form_order' =>	('select_form_order' =>
['',1..$currentversion,'mostrecent'],	['',1..$currentversion,'mostrecent'],
'' => '',	'' => '',
'mostrecent' => &mt('most recent'),	'mostrecent' => 'most recent',
map {$_,$_} (1..$currentversion))));	map {$_,$_} (1..$currentversion))));
$r->print('</span></td></tr><tr><td></td>');	$r->print('</span></td></tr><tr><td></td>');
my $lastold=1;	my $lastold=1;
Line 2460 ENDHEADERS	Line 2405 ENDHEADERS
$entries_per_col = $num_entries/4 + 1;	$entries_per_col = $num_entries/4 + 1;
}	}
my $entries_count = 0;	my $entries_count = 0;
$r->print('<td valign="top"><font size="-2">');	$r->print('<td valign="top"><font size="-2">');
my $cols_output = 1;	my $cols_output = 1;
for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {	for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) {
my $url=$root.'.'.$prevvers.'.'.$extension;	my $url=$root.'.'.$prevvers.'.'.$extension;
Line 2539 sub changewarning {	Line 2484 sub changewarning {
$message='Changes will become active for your current session after [_1], or the next time you log in.';	$message='Changes will become active for your current session after [_1], or the next time you log in.';
}	}
$r->print("\n\n".	$r->print("\n\n".
'<script type="text/javascript">'."\n".	'<script type="text/javascript">function reinit(tf) { tf.submit();'.$postexec.' }</script>'."\n".
'// <![CDATA['."\n".
'function reinit(tf) { tf.submit();'.$postexec.' }'."\n".
'// ]]>'."\n".
'</script>'."\n".
'<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.	'<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.
'<input type="hidden" name="orgurl" value="'.$url.	'<input type="hidden" name="orgurl" value="'.$url.
'" /><input type="hidden" name="selectrole" value="1" /><p class="LC_warning">'.	'" /><input type="hidden" name="selectrole" value="1" /><h3><span class="LC_warning">'.
&mt($message,' <input type="hidden" name="'.	&mt($message,' <input type="hidden" name="'.
$env{'request.role'}.'" value="1" /><input type="button" value="'.	$env{'request.role'}.'" value="1" /><input type="button" value="'.
&mt('re-initializing '.$course_type).'" onclick="reinit(this.form)" />').	&mt('re-initializing '.$course_type).'" onClick="reinit(this.form)" />').
$help{'Caching'}.'</p></form>'."\n\n");	$help{'Caching'}.'</span></h3></form>'."\n\n");

}	}


Line 2559 sub init_breadcrumbs {	Line 2499 sub init_breadcrumbs {
my ($form,$text)=@_;	my ($form,$text)=@_;
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs",	&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/coursedocs",
text=>&Apache::loncommon::course_type().' Editor',	text=>"Edit ".&Apache::loncommon::course_type(),
faq=>273,	faq=>273,
bug=>'Instructor Interface',	bug=>'Instructor Interface',
help => 'Docs_Adding_Course_Doc'});	help => 'Docs_Adding_Course_Doc'});
Line 2577 sub handler {	Line 2517 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;
my $crstype = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();


# --------------------------------------------- Initialize help topics for this	# --------------------------------------------- Initialize help topics for this
foreach my $topic ('Adding_Course_Doc','Main_Course_Documents',	foreach my $topic ('Adding_Course_Doc','Main_Course_Documents',
Line 2597 sub handler {	Line 2538 sub handler {
'Option_Response_Simple');	'Option_Response_Simple');
$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(	$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');	'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
$help{'My Personal Info'} = &Apache::loncommon::help_open_topic(	$help{'My Personal Information Page'} = &Apache::loncommon::help_open_topic(
'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');	'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
$help{'Group Files'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');	$help{'Group Files'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');
$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');	$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');
Line 2620 sub handler {	Line 2561 sub handler {
&init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' DOCS to Construction Space');	&init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' DOCS to Construction Space');
&dumpcourse($r);	&dumpcourse($r);
} elsif ($allowed && $env{'form.exportcourse'}) {	} elsif ($allowed && $env{'form.exportcourse'}) {
&init_breadcrumbs('exportcourse','IMS Export');	&init_breadcrumbs('exportcourse','Export '.&Apache::loncommon::course_type().' to IMS');
&exportcourse($r);	&exportcourse($r);
} else {	} else {
# is this a standard course?	# is this a standard course?
Line 2632 sub handler {	Line 2573 sub handler {
my $showdoc=0;	my $showdoc=0;
my $containertag;	my $containertag;
my $uploadtag;	my $uploadtag;


&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folderpath','pagepath',	['folderpath','pagepath',
'pagesymb']);	'pagesymb']);
Line 2649 sub handler {	Line 2592 sub handler {
}	}
if ($env{'form.folderpath'} =~ /^supplemental_\d+/) {	if ($env{'form.folderpath'} =~ /^supplemental_\d+/) {
$env{'form.folderpath'} = 'supplemental&'.	$env{'form.folderpath'} = 'supplemental&'.
&escape(&mt('Supplemental '.$crstype.' Documents')).'&'.	&escape(&mt('Supplemental '.$type.' Documents')).'&'.
$env{'form.folderpath'};	$env{'form.folderpath'};
}	}
&Apache::loncommon::store_course_settings('docs_folderpath',	&Apache::loncommon::store_course_settings('docs_folderpath',
Line 2673 sub handler {	Line 2616 sub handler {
$showdoc='/'.$1;	$showdoc='/'.$1;
}	}
unless ($showdoc) { # got called from remote	unless ($showdoc) { # got called from remote
if (($env{'form.folder'}=~/^(?:group\|default)_/) \|\|	if (($env{'form.folder'}=~/^(?:group\|default)_/) \|\|
($env{'form.folder'} =~ m:^\d+/(pages\|sequences)/:)) {	($env{'form.folder'} =~ m:^\d+/(pages\|sequences)/:)) {
$forcestandard = 1;	$forcestandard = 1;
}	}
$forcesupplement=($env{'form.folder'}=~/^supplemental_/);	$forcesupplement=($env{'form.folder'}=~/^supplemental_/);

if ($allowed) {	if ($allowed) {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
$script=&Apache::lonratedt::editscript('simple');	$script=&Apache::lonratedt::editscript('simple');
}	}
} else { # got called in sequence from course	} else { # got called in sequence from course
$allowed=0;	$allowed=0;
Line 2691 sub handler {	Line 2634 sub handler {
my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};	my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};
my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};

# get personal data	# get personal data
my $uname=$env{'user.name'};	my $uname=$env{'user.name'};
my $udom=$env{'user.domain'};	my $udom=$env{'user.domain'};
my $plainname=&escape(&Apache::loncommon::plainname($uname,$udom));	my $plainname=&escape(&Apache::loncommon::plainname($uname,$udom));
Line 2704 sub handler {	Line 2647 sub handler {
$script .= &editing_js($udom,$uname);	$script .= &editing_js($udom,$uname);
}	}
# -------------------------------------------------------------------- Body tag	# -------------------------------------------------------------------- Body tag
$script = '<script type="text/javascript">'."\n"	$script = '<script type="text/javascript">'."\n".$script."\n".'</script>';
.'// <![CDATA['."\n"	my $brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}];
.$script."\n"	$r->print(&Apache::loncommon::start_page("$type Documents", $script,
.'// ]]>'."\n"
.'</script>'."\n";
my $brcrum = [{href=>"/adm/createuser",text=>"Edit $crstype"}];
$r->print(&Apache::loncommon::start_page("Edit $crstype", $script,
{'force_register' => $showdoc,	{'force_register' => $showdoc,
'bread_crumbs' => $brcrum}).	'bread_crumbs' => $brcrum}).
&Apache::loncommon::help_open_menu('','',273,'RAT'));	&Apache::loncommon::help_open_menu('','',273,'RAT'));
Line 2721 sub handler {	Line 2660 sub handler {
if ($allowed) {	if ($allowed) {
if (($env{'form.uploaddoc.filename'}) &&	if (($env{'form.uploaddoc.filename'}) &&
($env{'form.cmd'}=~/^upload_(\w+)/)) {	($env{'form.cmd'}=~/^upload_(\w+)/)) {
# Process file upload - phase one - upload and parse primary file.	# Process file upload - phase one - upload and parse primary file.
undef($hadchanges);	undef($hadchanges);
$upload_result = &process_file_upload(\$upload_output,$coursenum,	$upload_result = &process_file_upload(\$upload_output,$coursenum,
$coursedom,\%allfiles,	$coursedom,\%allfiles,
Line 2746 sub handler {	Line 2685 sub handler {
$newname{$i} = &process_secondary_uploads(\$upload_output,$coursedom,$coursenum,'embedded_item_',$i,$residx);	$newname{$i} = &process_secondary_uploads(\$upload_output,$coursedom,$coursenum,'embedded_item_',$i,$residx);
$origname{$i} = &unescape($env{'form.embedded_orig_'.$i});	$origname{$i} = &unescape($env{'form.embedded_orig_'.$i});
if (exists($env{'form.embedded_codebase_'.$i})) {	if (exists($env{'form.embedded_codebase_'.$i})) {
$javacodebase = &unescape($env{'form.embedded_codebase_'.$i});	$javacodebase = &unescape($env{'form.embedded_codebase_'.$i});
$origname{$i} =~ s#^\Q$javacodebase\E/##;	$origname{$i} =~ s#^\Q$javacodebase\E/##;
}	}
my @attributes = ();	my @attributes = ();
if ($env{'form.embedded_attrib_'.$i} =~ /:/) {	if ($env{'form.embedded_attrib_'.$i} =~ /:/) {
Line 2784 sub handler {	Line 2723 sub handler {
}	}
if ($content =~ m#($attrib_regexp\s=\s['"]?)\Q$origname{$item}\E(['"]?)#) {	if ($content =~ m#($attrib_regexp\s=\s['"]?)\Q$origname{$item}\E(['"]?)#) {
}	}
$content =~ s#($attrib_regexp\s=\s['"]?)\Q$origname{$item}\E(['"]?)#$1$newname{$item}$2#gi;	$content =~ s#($attrib_regexp\s=\s['"]?)\Q$origname{$item}\E(['"]?)#$1$newname{$item}$2#gi;
}	}
if (exists($codebase{$item})) {	if (exists($codebase{$item})) {
$content =~ s/(codebase\s=\s["']?)\Q$codebase{$item}\E(["']?)/$1.$2/i; #' stupid emacs	$content =~ s/(codebase\s=\s["']?)\Q$codebase{$item}\E(["']?)/$1.$2/i; #' stupid emacs
Line 2796 sub handler {	Line 2735 sub handler {
my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
my $url = &Apache::lonnet::store_edited_file($primary_url,$content,$docudom,$docuname,\$saveresult);	my $url = &Apache::lonnet::store_edited_file($primary_url,$content,$docudom,$docuname,\$saveresult);
} else {	} else {
&Apache::lonnet::logthis('retrieval of uploaded file - '.$primary_url.' - for editing, failed: '.$getstatus);	&Apache::lonnet::logthis('retrieval of uploaded file - '.$primary_url.' - for editing, failed: '.$getstatus);
}	}
}	}
}	}
Line 2805 sub handler {	Line 2744 sub handler {
unless ($showdoc \|\| $upload_result eq 'phasetwo') {	unless ($showdoc \|\| $upload_result eq 'phasetwo') {
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'uplm' => 'Upload a new main '.lc($crstype).' document',	'uplm' => 'Upload a new main '.lc($type).' document',
'upls' => 'Upload a new supplemental '.lc($crstype).' document',	'upls' => 'Upload a new supplemental '.lc($type).' document',
'impp' => 'Import a document',	'impp' => 'Import a document',
'pubd' => 'Published documents',	'pubd' => 'Published Documents',
'copm' => 'All documents out of a published map into this folder',	'copm' => 'All documents out of a published map into this folder',
'spec' => 'Special documents',
'upld' => 'Upload Document',	'upld' => 'Upload Document',
'srch' => 'Search',	'srch' => 'Search',
'impo' => 'Import',	'impo' => 'Import',
Line 2829 sub handler {	Line 2767 sub handler {
'scuf' => 'Score Upload Form',	'scuf' => 'Score Upload Form',
'bull' => 'Discussion Board',	'bull' => 'Discussion Board',
'mypi' => 'My Personal Information Page',	'mypi' => 'My Personal Information Page',
'grpo' => 'Group Portfolios',	'grpo' => 'Group Files',
'rost' => 'Course Roster',	'rost' => 'Course Roster',
'abou' => 'About User',	'abou' => 'Personal Information Page for a User',
'imsf' => 'IMS Import',	'imsf' => 'Import IMS package',
'imsl' => 'Import IMS package',
'file' => 'File',	'file' => 'File',
'title' => 'Title',	'title' => 'Title',
'comment' => 'Comment',	'comment' => 'Comment',
'parse' => 'If HTML file, upload embedded images/multimedia files'	'parse' => 'Upload embedded images/multimedia files if HTML file!',
	'nd' => 'New Document',
	'pm' => 'Published Map',
	'sd' => 'Special Document',
	'mo' => 'More Options',
	'hao' => 'Hide all Options'
);	);
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
my %tabtitles = (	my $fileupload=(<<FIUP);
main => {	$lt{'file'}:<br />
Course => &mt('Main Course Documents'),	<input type="file" name="uploaddoc" size="40" />
Community => &mt('Main Community Documents'),	FIUP
},
supplemental => {	my $checkbox=(<<CHBO);
Course => &mt('Supplemental Course Documents'),	<!-- <label>$lt{'parse'}?
Community => &mt('Supplemental Community Documents'),	<input type="checkbox" name="parserflag" />
},	</label> -->
);	<label>
	<input type="checkbox" name="parserflag" checked="checked" /> $lt{'parse'}
	</label>
	CHBO

	my $fileuploadform=(<<FUFORM);
	<form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">
	$fileupload
	<br />
	$lt{'title'}:<br />
	<input type="text" size="50" name="comment" />
	$uploadtag
	<input type="hidden" name="cmd" value="upload_default" />
	<br />
	<span class="LC_nobreak">
	$checkbox
	</span>
	<br />
	<br />
	<span class="LC_nobreak">
	<input type="submit" value="$lt{'upld'}" />
	$help{'Uploading_From_Harddrive'}
	</span>
	</form>
	FUFORM

	my $simpleeditdefaultform=(<<SEDFFORM);
	<form action="/adm/coursedocs" method="post" name="simpleeditdefault">
	$lt{'pubd'}<br />
	$uploadtag
	<input type="button" onClick="javascript:groupsearch()" value="$lt{'srch'}" />
	<br />
	<span class="LC_nobreak">
	<input type="button" onClick="javascript:groupimport();" value="$lt{'impo'}" />
	$help{'Importing_LON-CAPA_Resource'}
	</span>
	<br />
	<input type="button" onClick="javascript:groupopen(0,1,1);" value="$lt{'book'}" />
	<hr />
	<p>
	$lt{'copm'}<br />
	<input type="text" size="40" name="importmap" /><br />
	<span class="LC_nobreak"><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>
	</p>
	</form>
	SEDFFORM

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

if ($allowed) {	if ($allowed) {
&update_paste_buffer($coursenum,$coursedom);	&update_paste_buffer($coursenum,$coursedom);
my $dumpbut=&dumpbutton();
my $exportbut=&exportbutton();
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'vc' => 'Verify Content',	'vc' => 'Verify Content',
'cv' => 'Check/Set Resource Versions',	'cv' => 'Check/Set Resource Versions',
Line 2865 sub handler {	Line 2865 sub handler {
if (!$folderpath) {	if (!$folderpath) {
if ($env{'form.folder'} eq '' \|\|	if ($env{'form.folder'} eq '' \|\|
$env{'form.folder'} eq 'supplemental') {	$env{'form.folder'} eq 'supplemental') {
$folderpath='default&'.&escape($tabtitles{'main'}{$crstype});	$folderpath='default&'.
	&escape(&mt('Main '.$type.' Documents'));
}	}
}	}
unless ($env{'form.pagepath'}) {	unless ($env{'form.pagepath'}) {
$containertag = '<input type="hidden" name="folderpath" value="" />';	$containertag = '<input type="hidden" name="folderpath" value="" />';
$uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';	$uploadtag = '<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($folderpath,'<>&"').'" />';
}	}
	$r->print(<<HIDDENFORM);
$r->print(<<ENDCOURSEVERIFY);	<form name="renameform" method="post" action="/adm/coursedocs">
<form name="renameform" method="post" action="/adm/coursedocs">	<input type="hidden" name="title" />
<input type="hidden" name="title" />	<input type="hidden" name="cmd" />
<input type="hidden" name="cmd" />	<input type="hidden" name="markcopy" />
<input type="hidden" name="markcopy" />	<input type="hidden" name="copyfolder" />
<input type="hidden" name="copyfolder" />	$containertag
$containertag	</form>
</form>	<form name="simpleedit" method="post" action="/adm/coursedocs">
<form name="simpleedit" method="post" action="/adm/coursedocs">	<input type="hidden" name="importdetail" value="" />
<input type="hidden" name="importdetail" value="" />	$uploadtag
$uploadtag	</form>
</form>	HIDDENFORM
<form action="/adm/coursedocs" method="post" name="courseverify">	}
<div class="LC_docs_course_commands">	# --------------------------------------------------------- Main tab structure
	my $activeClass = 1;
<div>	$r->print('<ul class="LC_TabContentBigger" id="mainnav">');
<input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}	if (($standard) && ($allowed) && (!$forcesupplement)) {
</div>	my $active = '';
<div>	if($activeClass == 1){
<input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}	$active = 'class="active"';
</div>	$activeClass = 0;
$dumpbut	}
$exportbut	$r->print('<li '.$active.'onclick="javascript:showPage(this,\'Main Course Documents\',\'mainnav\',\'maincoursedoc\');">'.&mt('Main Course Documents').'</li>');
<div>
<input type="submit" name="listsymbs" value="$lt{'ls'}" />
</div>
<div>
<input type="hidden" name="folder" value="$env{'form.folder'}" />
<input type="submit" name="docslog" value="$lt{'sl'}" />
</div>
</div>
</form>
<div style="clear: both; height: 0px;"> </div>
ENDCOURSEVERIFY
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
&mt('Editing the Table of Contents for your '.$crstype)));
}	}
	if (!$forcestandard) {
	my $active = '';
	if($activeClass == 1){
	$active = 'class="active"';
	}
	$r->print('<li '.$active.'onclick="javascript:showPage(this,\'Supplemental Course Documents\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>');
	}
	$r->print('<li onclick="javascript:showPage(this,\'Special Admin Options\',\'mainnav\',\'maincoursedoc\');">'.&mt('Special Admin Options').'</li>');
	$r->print('</ul><div class="LC_ContentBoxSpecial" style="margin:0 0;padding:0 0;"><div id="maincoursedoc" style="margin:0 0;padding:0 0;">');
# --------------------------------------------------------- Standard documents	# --------------------------------------------------------- Standard documents
$r->print('<table class="LC_docs_documents">');

if (($standard) && ($allowed) && (!$forcesupplement)) {	if (($standard) && ($allowed) && (!$forcesupplement)) {
$r->print('<tr><td class="LC_docs_document">');	my $active = 'style="display: none;"';
# '<h2>'.&mt('Main Course Documents').	if($activeClass == 0){
# ($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');	$active = 'style="display: block;"';
	}
	$r->print('<div class="LC_ContentBox" id="Main Course Documents" '.$active.'>');
	$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
	&mt('Editing the Table of Contents for your '.$type)));
my $folder=$env{'form.folder'};	my $folder=$env{'form.folder'};
if ($folder eq '' \|\| $folder eq 'supplemental') {	if ($folder eq '' \|\| $folder eq 'supplemental') {
$folder='default';	$folder='default';
$env{'form.folderpath'}='default&'.&escape(&mt('Main '.$crstype.' Documents'));	$env{'form.folderpath'}='default&'.&escape(&mt('Main '.$type.' Documents'));
$uploadtag = '<input type="hidden" name="folderpath" value="'.	$uploadtag = '<input type="hidden" name="folderpath" value="'.
&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';	&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
}	}
my $postexec='';	my $postexec='';
if ($folder eq 'default') {	if ($folder eq 'default') {
$r->print('<script type="text/javascript">'."\n"	$r->print('<script type="text/javascript">this.window.name="loncapaclient";</script>');
.'// <![CDATA['."\n"
.'this.window.name="loncapaclient";'."\n"
.'// ]]>'."\n"
.'</script>'."\n"
);
} else {	} else {
#$postexec='self.close();';	#$postexec='self.close();';
}	}
$hadchanges=0;
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,
$upload_output,$crstype);
if ($error) {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}
if ($hadchanges) {
&mark_hash_old();
}
&changewarning($r,$postexec);
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.	my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';	'.sequence';
my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.	my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
Line 2954 ENDCOURSEVERIFY	Line 2938 ENDCOURSEVERIFY
$container='page';	$container='page';
}	}
my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;	my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container;
$r->print(<<ENDFORM);
<table class="LC_docs_adddocs">
<tr>
<th>$lt{'uplm'}</th>	my $recoverform=(<<RFORM);
<th>$lt{'impp'}</th>	<form action="/adm/groupsort" method="post" name="recover">
<th>$lt{'spec'}</th>	<input type="button" name="recovermap" onClick="javascript:groupopen('$readfile',1,0)" value="$lt{'reco'}" />
</tr>	</form>
<tr>	RFORM
<td>
$lt{'file'}:<br />	my $imspform=(<<IMSPFORM);
<form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<form action="/adm/imsimportdocs" method="post" name="ims">
<input type="file" name="uploaddoc" size="40" />	<input type="hidden" name="folder" value="$folder" />
<br />	<input name="imsimport" type="button" value="$lt{'imsf'}" onClick="javascript:makeims();" />
$lt{'title'}:<br />	</form>
<input type="text" size="50" name="comment" />	IMSPFORM
$uploadtag
<input type="hidden" name="cmd" value="upload_default" />	my $newnavform=(<<NNFORM);
<br />	<form action="/adm/coursedocs" method="post" name="newnav">
<span class="LC_nobreak">	$uploadtag
<label>$lt{'parse'}?	<input type="hidden" name="importdetail"
<input type="checkbox" name="parserflag" checked="checked" />	value="$lt{'navc'}=/adm/navmaps" />
</label>	<span class="LC_nobreak">
</span>	<input name="newnav" type="submit" value="$lt{'navc'}" />
<br />	$help{'Navigate_Content'}
<br />	</span>
<span class="LC_nobreak">	</form>
<input type="submit" value="$lt{'upld'}" />	NNFORM
$help{'Uploading_From_Harddrive'}	my $newsmppageform=(<<NSPFORM);
</span>	<form action="/adm/coursedocs" method="post" name="newsmppg">
</form>	$uploadtag
</td>	<input type="hidden" name="importdetail" value="" />
<td>	<span class="LC_nobreak">
<form action="/adm/coursedocs" method="post" name="simpleeditdefault">	<input name="newsmppg" type="button" value="$lt{'sipa'}"
$lt{'pubd'}<br />	onClick="javascript:makesmppage();" /> $help{'Simple Page'}
$uploadtag	</span>
<input type="button" onclick="javascript:groupsearch()" value="$lt{'srch'}" />	</form>
<br />	NSPFORM
<span class="LC_nobreak">
<input type="button" onclick="javascript:groupimport();" value="$lt{'impo'}" />	my $newsmpproblemform=(<<NSPROBFORM);
$help{'Importing_LON-CAPA_Resource'}	<form action="/adm/coursedocs" method="post" name="newsmpproblem">
</span>	$uploadtag
<br />	<input type="hidden" name="importdetail" value="" />
<input type="button" onclick="javascript:groupopen(0,1,1);" value="$lt{'book'}" />	<span class="LC_nobreak">
<hr />	<input name="newsmpproblem" type="button" value="$lt{'sipr'}"
<p>	onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}
$lt{'copm'}<br />	</span>
<input type="text" size="40" name="importmap" /><br />	</form>
<span class="LC_nobreak"><input type="button"
onclick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"	NSPROBFORM
value="$lt{'selm'}" /> <input type="submit" name="loadmap" value="$lt{'load'}" />
$help{'Load_Map'}</span>	my $newdropboxform=(<<NDBFORM);
</p>	<form action="/adm/coursedocs" method="post" name="newdropbox">
</form>	$uploadtag
<hr />	<input type="hidden" name="importdetail" value="" />
<form action="/adm/groupsort" method="post" name="recover">	<span class="LC_nobreak">
<input type="button" name="recovermap" onclick="javascript:groupopen('$readfile',1,0)" value="$lt{'reco'}" />	<input name="newdropbox" type="button" value="$lt{'drbx'}"
</form>	onClick="javascript:makedropbox();" />
ENDFORM	</span>
unless ($env{'form.pagepath'}) {	</form>
$r->print(<<ENDFORM);	NDBFORM
<hr />
<form action="/adm/coursedocs" method="post" name="newext">	my $newexuploadform=(<<NEXUFORM);
$uploadtag	<form action="/adm/coursedocs" method="post" name="newexamupload">
<input type="hidden" name="importdetail" value="" />	$uploadtag
<span class="LC_nobreak">	<input type="hidden" name="importdetail" value="" />
<input name="newext" type="button" onclick="javascript:makenewext('newext');"	<span class="LC_nobreak">
value="$lt{'extr'}" /> $help{'Adding_External_Resource'}	<input name="newexamupload" type="button" value="$lt{'scuf'}"
</span>	onClick="javascript:makeexamupload();" />
</form>	$help{'Score_Upload_Form'}
<br /><form action="/adm/imsimportdocs" method="post" name="ims">	</span>
<input type="hidden" name="folder" value="$folder" />	</form>
<input name="imsimport" type="button" value="$lt{'imsf'}" title="$lt{imsl}" onclick="javascript:makeims();" />	NEXUFORM
</form>
ENDFORM	my $newbulform=(<<NBFORM);
}	<form action="/adm/coursedocs" method="post" name="newbul">
$r->print('</td><td>');	$uploadtag
	<input type="hidden" name="importdetail" value="" />
	<span class="LC_nobreak">
	<input name="newbulletin" type="button" value="$lt{'bull'}"
	onClick="javascript:makebulboard();" />
	$help{'Bulletin Board'}
	</span>
	</form>
	NBFORM

	my $newaboutmeform=(<<NAMFORM);
	<form action="/adm/coursedocs" method="post" name="newaboutme">
	$uploadtag
	<input type="hidden" name="importdetail"
	value="$plainname=/adm/$udom/$uname/aboutme" />
	<span class="LC_nobreak">
	<input name="newaboutme" type="submit" value="$lt{'mypi'}" />
	$help{'My Personal Information Page'}
	</span>
	</form>
	NAMFORM

	my $newaboutsomeoneform=(<<NASOFORM);
	<form action="/adm/coursedocs" method="post" name="newaboutsomeone">
	$uploadtag
	<input type="hidden" name="importdetail" value="" />
	<span class="LC_nobreak">
	<input name="newaboutsomeone" type="button" value="$lt{'abou'}"
	onClick="javascript:makeabout();" />
	</span>
	</form>
	NASOFORM


	my $newrosterform=(<<NROSTFORM);
	<form action="/adm/coursedocs" method="post" name="newroster">
	$uploadtag
	<input type="hidden" name="importdetail"
	value="$lt{'rost'}=/adm/viewclasslist" />
	<span class="LC_nobreak">
	<input name="newroster" type="submit" value="$lt{'rost'}" />
	$help{'Course Roster'}
	</span>
	</form>
	NROSTFORM

	my $specialdocumentsform;
	my $newfolderform;

unless ($env{'form.pagepath'}) {	unless ($env{'form.pagepath'}) {
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');	my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
$r->print(<<ENDFORM);
<br /><form action="/adm/coursedocs" method="post" name="newfolder">	my $newpageform=(<<NPFORM);
<input type="hidden" name="folderpath" value="$path" />	<form action="/adm/coursedocs" method="post" name="newpage">
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="folderpath" value="$path" />
<span class="LC_nobreak">	<input type="hidden" name="importdetail" value="" />
<input name="newfolder" type="button"	<span class="LC_nobreak">
onclick="javascript:makenewfolder(this.form,'$folderseq');"	<input name="newpage" type="button"
value="$lt{'newf'}" />$help{'Adding_Folders'}	onClick="javascript:makenewpage(this.form,'$pageseq');"
</span>	value="$lt{'newp'}" />$help{'Adding_Pages'}
</form>	</span>
<br /><form action="/adm/coursedocs" method="post" name="newpage">	</form>
<input type="hidden" name="folderpath" value="$path" />	NPFORM
<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	$newfolderform=(<<NFFORM);
<input name="newpage" type="button"	<form action="/adm/coursedocs" method="post" name="newfolder">
onclick="javascript:makenewpage(this.form,'$pageseq');"	<input type="hidden" name="folderpath" value="$path" />
value="$lt{'newp'}" />$help{'Adding_Pages'}	<input type="hidden" name="importdetail" value="" />
</span>	<span class="LC_nobreak">
</form>	<input name="newfolder" type="button"
<br /><form action="/adm/coursedocs" method="post" name="newsyl">	onClick="javascript:makenewfolder(this.form,'$folderseq');"
$uploadtag	value="$lt{'newf'}" />$help{'Adding_Folders'}
<input type="hidden" name="importdetail"	</span>
value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />	</form>
<span class="LC_nobreak">	NFFORM
<input name="newsyl" type="submit" value="$lt{'syll'}" />
$help{'Syllabus'}	my $newsylform=(<<NSYLFORM);
</span>	<form action="/adm/coursedocs" method="post" name="newsyl">
</form>	$uploadtag
<br /><form action="/adm/coursedocs" method="post" name="newnav">	<input type="hidden" name="importdetail"
$uploadtag	value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />
<input type="hidden" name="importdetail"	<span class="LC_nobreak">
value="$lt{'navc'}=/adm/navmaps" />	<input name="newsyl" type="submit" value="$lt{'syll'}" />
<span class="LC_nobreak">	$help{'Syllabus'}
<input name="newnav" type="submit" value="$lt{'navc'}" />	</span>
$help{'Navigate_Content'}	</form>
</span>	NSYLFORM
</form>
<br /><form action="/adm/coursedocs" method="post" name="newsmppg">	my $newgroupfileform=(<<NGFFORM);
$uploadtag	<form action="/adm/coursedocs" method="post" name="newgroupfiles">
<input type="hidden" name="importdetail" value="" />	$uploadtag
<span class="LC_nobreak">	<input type="hidden" name="importdetail"
<input name="newsmppg" type="button" value="$lt{'sipa'}"	value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />
onclick="javascript:makesmppage();" /> $help{'Simple Page'}	<span class="LC_nobreak">
</span>	<input name="newgroupfiles" type="submit" value="$lt{'grpo'}" />
</form>	$help{'Group Files'}
<br /><form action="/adm/coursedocs" method="post" name="newsmpproblem">	</span>
$uploadtag	</form>
<input type="hidden" name="importdetail" value="" />	NGFFORM
<span class="LC_nobreak">
<input name="newsmpproblem" type="button" value="$lt{'sipr'}"	$specialdocumentsform="<br />$newpageform<br />$newsylform<br />$newgroupfileform";
onclick="javascript:makesmpproblem();" />$help{'Simple Problem'}	}
</span>	$specialdocumentsform.="<br />$newnavform<br />$newsmppageform
</form>	<br />$newsmpproblemform<br />$newdropboxform
<br /><form action="/adm/coursedocs" method="post" name="newdropbox">	<br />$newexuploadform<br />$newbulform
$uploadtag	<br />$newaboutmeform<br />$newaboutsomeoneform
<input type="hidden" name="importdetail" value="" />	<br />$newrosterform";
<span class="LC_nobreak">	if($env{'form.pagepath'}) {
<input name="newdropbox" type="button" value="$lt{'drbx'}"	$specialdocumentsform="<br />$newsmpproblemform<br />$newexuploadform";
onclick="javascript:makedropbox();" />	}
</span>
</form>	my %orderhash = (
<br /><form action="/adm/coursedocs" method="post" name="newexamupload">	'aa' => 'New Document',
$uploadtag	'bb' => 'Published Documents',
<input type="hidden" name="importdetail" value="" />	'cc' => 'Special Documents',
<span class="LC_nobreak">	'dd' => 'More Options',
<input name="newexamupload" type="button" value="$lt{'scuf'}"	'zz' => 'Hide all Options',
onclick="javascript:makeexamupload();" />	);
$help{'Score_Upload_Form'}	my %namehash = (
</span>	'New Document' => $fileuploadform.'<br />'.$newfolderform,
</form>	'Published Documents' => $simpleeditdefaultform,
<br /><form action="/adm/coursedocs" method="post" name="newbul">	'Special Documents' => $specialdocumentsform,
$uploadtag	'More Options' => $extresourcesform.'<br />'.$imspform.'<br />'.$recoverform,
<input type="hidden" name="importdetail" value="" />	);
<span class="LC_nobreak">	my $tid='1';
<input name="newbulletin" type="button" value="$lt{'bull'}"	my $content='content';
onclick="javascript:makebulboard();" />	my $navigation='navigation';
$help{'Bulletin Board'}	my $varcd = 'Main Course Documents';
</span>	$r->print(&generate_edit_table($tid,$content,$navigation,$varcd,\%namehash,\%orderhash));
</form>	$hadchanges=0;
<br /><form action="/adm/coursedocs" method="post" name="newaboutme">	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
$uploadtag	if ($error) {
<input type="hidden" name="importdetail"	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
value="$plainname=/adm/$udom/$uname/aboutme" />	}
<span class="LC_nobreak">	if ($hadchanges) {
<input name="newaboutme" type="submit" value="$lt{'mypi'}" />	&mark_hash_old();
$help{'My Personal Info'}
</span>
</form>
<br /><form action="/adm/coursedocs" method="post" name="newaboutsomeone">
$uploadtag
<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">
<input name="newaboutsomeone" type="button" value="$lt{'abou'}"
onclick="javascript:makeabout();" />
</span>
</form>
<br /><form action="/adm/coursedocs" method="post" name="newgroupfiles">
$uploadtag
<input type="hidden" name="importdetail"
value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />
<span class="LC_nobreak">
<input name="newgroupfiles" type="submit" value="$lt{'grpo'}" />
$help{'Group Files'}
</span>
</form>
<br /><form action="/adm/coursedocs" method="post" name="newroster">
$uploadtag
<input type="hidden" name="importdetail"
value="$lt{'rost'}=/adm/viewclasslist" />
<span class="LC_nobreak">
<input name="newroster" type="submit" value="$lt{'rost'}" />
$help{'Course Roster'}
</span>
</form>
ENDFORM
}	}

	&changewarning($r,'');
	$r->print('</div>');
if ($env{'form.pagepath'}) {	if ($env{'form.pagepath'}) {
$r->print(<<ENDBLOCK);
<form action="/adm/coursedocs" method="post" name="newsmpproblem">
$uploadtag
<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">
<input name="newsmpproblem" type="button" value="$lt{'sipr'}"
onclick="javascript:makesmpproblem();" />$help{'Simple Problem'}
</span>
</form>
<br /><form action="/adm/coursedocs" method="post" name="newexamupload">
$uploadtag
<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">
<input name="newexamupload" type="button" value="$lt{'scuf'}"
onclick="javascript:makeexamupload();" />
$help{'Score_Upload_Form'}
</span>
</form>
ENDBLOCK
}	}
$r->print('</td></tr>'."\n".
'</table>');
$r->print('</td></tr>');
}	}
# ----------------------------------------------------- Supplemental documents	# ----------------------------------------------------- Supplemental documents
if (!$forcestandard) {	if (!$forcestandard) {
$r->print('<tr><td class="LC_docs_document">');	my $active = 'style="display: none;"';
# '<h2>'.&mt('Supplemental Course Documents').	if($activeClass == 1){
# ($allowed?' '.$help{'Supplemental'}:'').'</h2>');	$active = 'style="display: block;"';
	}
	$r->print('<div class="LC_ContentBox" id="Supplemental Course Documents" '.$active.'>');
my $folder=$env{'form.folder'};	my $folder=$env{'form.folder'};
unless ($folder=~/^supplemental/) {	unless ($folder=~/^supplemental/) {
$folder='supplemental';	$folder='supplemental';
Line 3185 ENDBLOCK	Line 3170 ENDBLOCK
if ($folder =~ /^supplemental$/ &&	if ($folder =~ /^supplemental$/ &&
(($env{'form.folderpath'} =~ /^default\&/) \|\| ($env{'form.folderpath'} eq ''))) {	(($env{'form.folderpath'} =~ /^default\&/) \|\| ($env{'form.folderpath'} eq ''))) {
$env{'form.folderpath'} = 'supplemental&'.	$env{'form.folderpath'} = 'supplemental&'.
&escape($tabtitles{'supplemental'}{$crstype});	&escape(&mt('Supplemental '.$type.' Documents'));
}
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$crstype);
if ($error) {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}	}
if ($allowed) {	if ($allowed) {
my $folderseq=	my $folderseq=
Line 3197 ENDBLOCK	Line 3178 ENDBLOCK
'.sequence';	'.sequence';

my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');	my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');
$r->print(<<ENDSUPFORM);
<table class="LC_docs_adddocs"><tr>	my $supupdocform=(<<SUPDOCFORM);
<th>$lt{'upls'}</th>	<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
<th>$lt{'spec'}</th>	$fileupload
</tr>	<br />
<tr><td>	<br />
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<span class="LC_nobreak">
<input type="file" name="uploaddoc" size="40" />	$checkbox
<br />	</span>
<br />	<br /><br />
<span class="LC_nobreak">	$lt{'comment'}:<br />
<label>$lt{'parse'}?	<textarea cols=50 rows=4 name='comment'>
<input type="checkbox" name="parserflag" />	</textarea>
</label>	<br />
</span>	<input type="hidden" name="folderpath" value="$path" />
<br /><br />	<input type="hidden" name="cmd" value="upload_supplemental" />
$lt{'comment'}:<br />	<span class="LC_nobreak">
<textarea cols="50" rows="4" name="comment">	<input type="submit" value="$lt{'upld'}" />
</textarea>	$help{'Uploading_From_Harddrive'}
<br />	</span>
<input type="hidden" name="folderpath" value="$path" />	</form>
<input type="hidden" name="cmd" value="upload_supplemental" />	SUPDOCFORM
<span class="LC_nobreak">
<input type="submit" value="$lt{'upld'}" />	my $supnewfolderform=(<<SNFFORM);
$help{'Uploading_From_Harddrive'}	<form action="/adm/coursedocs" method="post" name="supnewfolder">
</span>	<input type="hidden" name="folderpath" value="$path" />
</form>	<input type="hidden" name="importdetail" value="" />
</td>	<span class="LC_nobreak">
<td>	<input name="newfolder" type="button"
<form action="/adm/coursedocs" method="post" name="supnewfolder">	onClick="javascript:makenewfolder(this.form,'$folderseq');"
<input type="hidden" name="folderpath" value="$path" />	value="$lt{'newf'}" /> $help{'Adding_Folders'}
<input type="hidden" name="importdetail" value="" />	</span>
<span class="LC_nobreak">	</form>
<input name="newfolder" type="button"	SNFFORM
onclick="javascript:makenewfolder(this.form,'$folderseq');"
value="$lt{'newf'}" /> $help{'Adding_Folders'}
</span>	my $supnewextform=(<<SNEFORM);
</form>	<form action="/adm/coursedocs" method="post" name="supnewext">
<br /><form action="/adm/coursedocs" method="post" name="supnewext">	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="importdetail" value="" />
<input type="hidden" name="importdetail" value="" />	<span class="LC_nobreak">
<span class="LC_nobreak">	<input name="newext" type="button"
<input name="newext" type="button"	onClick="javascript:makenewext('supnewext');"
onclick="javascript:makenewext('supnewext');"	value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
value="$lt{'extr'}" /> $help{'Adding_External_Resource'}	</span>
</span>	</form>
</form>	SNEFORM
<br /><form action="/adm/coursedocs" method="post" name="supnewsyl">
<input type="hidden" name="folderpath" value="$path" />	my $supnewsylform=(<<SNSFORM);
<input type="hidden" name="importdetail"	<form action="/adm/coursedocs" method="post" name="supnewsyl">
value="Syllabus=/public/$coursedom/$coursenum/syllabus" />	<input type="hidden" name="folderpath" value="$path" />
<span class="LC_nobreak">	<input type="hidden" name="importdetail"
<input name="newsyl" type="submit" value="$lt{'syll'}" />	value="Syllabus=/public/$coursedom/$coursenum/syllabus" />
$help{'Syllabus'}	<span class="LC_nobreak">
</span>	<input name="newsyl" type="submit" value="$lt{'syll'}" />
</form>	$help{'Syllabus'}
<br /><form action="/adm/coursedocs" method="post" name="subnewaboutme">	</span>
<input type="hidden" name="folderpath" value="$path" />	</form>
<input type="hidden" name="importdetail"	SNSFORM
value="$plainname=/adm/$udom/$uname/aboutme" />
<span class="LC_nobreak">	my $supnewaboutmeform=(<<SNAMFORM);
<input name="newaboutme" type="submit" value="$lt{'mypi'}" />	<form action="/adm/coursedocs" method="post" name="subnewaboutme">
$help{'My Personal Info'}	<input type="hidden" name="folderpath" value="$path" />
</span>	<input type="hidden" name="importdetail"
</form>	value="$plainname=/adm/$udom/$uname/aboutme" />
</td></tr>	<span class="LC_nobreak">
</table></td></tr>	<input name="newaboutme" type="submit" value="$lt{'mypi'}" />
ENDSUPFORM	$help{'My Personal Information Page'}
	</span>
	</form>
	SNAMFORM



	my %suporderhash = (
	'ee' => 'New Document',
	'ff' => 'Special Documents',
	'zz' => 'Hide all Options',
	);

	my %supnamehash = (
	'New Document' => $supupdocform,
	'Special Documents' => $supnewfolderform.'<br />'.$supnewextform.'<br />'.$supnewsylform.'<br />'.$supnewaboutmeform,
	);

	my $tid='2';
	my $content='content';
	my $navigation='navigation';
	my $varscd = 'Supplemental Course Documents';

	$r->print(&generate_edit_table($tid,$content,$navigation,$varscd,\%supnamehash,\%suporderhash));
	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
	if ($error) {
	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}	}
}	$r->print('</div>');
$r->print('</table>');	}
	}
	$r->print('<div class="LC_ContentBox" id="Special Admin Options" style="display: none;">');
	$r->print(&generate_admin_options($containertag,$uploadtag,\%help,\%env));
	$r->print('</div>');
	$r->print('</div>');
if ($allowed) {	if ($allowed) {
$r->print('	$r->print('
<form method="post" name="extimport" action="/adm/coursedocs">	<form method="post" name="extimport" action="/adm/coursedocs">
Line 3291 ENDSUPFORM	Line 3303 ENDSUPFORM
return OK;	return OK;
}	}

	sub generate_admin_options {
	my ($containertag,$uploadtag,$help_ref,$env_ref) = @_;
	my %lt=&Apache::lonlocal::texthash(
	'vc' => 'Verify Content',
	'cv' => 'Check/Set Resource Versions',
	'ls' => 'List Symbs',
	'sl' => 'Show Log'
	);
	my %help = %{$help_ref};
	my %env = %{$env_ref};
	my $dumpbut=&dumpbutton();
	my $exportbut=&exportbutton();
	return (<<ENDOPTIONFORM);
	<form action="/adm/coursedocs" method="post" name="courseverify">
	<ul style="list-style-type:none">
	<li>
	<input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}
	</li>
	<li>
	<input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}
	</li>
	<li>
	$dumpbut
	</li>
	<li>
	$exportbut
	</li>
	<li>
	<input type="submit" name="listsymbs" value="$lt{'ls'}" />
	</li>
	<li>
	<input type="hidden" name="folder" value="$env{'form.folder'}" />
	<input type="submit" name="docslog" value="$lt{'sl'}" />
	</li>
	</ul>
	</form>
	<!-- <div style="clear: both; height: 0px;"> </div>-->
	ENDOPTIONFORM

	}


	sub generate_edit_table {
	my ($tid,$content,$navigation,$varcd,$namehash_ref,$orderhash_ref) = @_;
	my %namehash = %{$namehash_ref};
	my %orderhash = %{$orderhash_ref};
	my $form;

	$form = '<div class="LC_ContentBoxSpecial"><h4 class="LC_hcell">'.&mt($varcd).'</h4>';
	$form .= '<ul id="'.$navigation.$tid.'" class="LC_TabContent">';
	foreach my $name (sort(keys(%orderhash))){
	if($name eq 'zz'){
	$form .= '<span class="LC_Right"><li onclick="javascript:hideAll(this, \''.$navigation.$tid.'\' ,\''.$content.$tid.'\');" class="active">'.&mt($orderhash{$name}).'</li></span>';
	}else{
	$form .= '<li onclick="javascript:showPage(this, \''.$tid.$orderhash{$name}.'\', \''.$navigation.$tid.'\',\''.$content.$tid.'\');">'.&mt($orderhash{$name}).'</li>';
	}
	}
	$form .= '</ul>';
	$form .= '<div id="'.$content.$tid.'" style="padding: 0 0; margin: 0 0;">';
	foreach my $field (keys(%namehash)){
	$form .= '<div id="'.$tid.$field.'" class="LC_ContentBox" style="display: none;">'.$namehash{$field}.'</div>';
	}
	$form .= '</div></div>';

	return $form;
	}

sub editing_js {	sub editing_js {
my ($udom,$uname) = @_;	my ($udom,$uname) = @_;
Line 3301 sub editing_js {	Line 3379 sub editing_js {
p_mnp => 'Name of New Page',	p_mnp => 'Name of New Page',
t_mnp => 'New Page',	t_mnp => 'New Page',
p_mxu => 'Title for the Uploaded Score',	p_mxu => 'Title for the Uploaded Score',
p_msp => 'Name of the Simple Course Page',	p_msp => 'Name of Simple Course Page',
p_msb => 'Title for the Problem',	p_msb => 'Title for the Problem',
p_mdb => 'Title for the Drop Box',	p_mdb => 'Title for the Drop Box',
p_mbb => 'Title for the Discussion Board',	p_mbb => 'Title for the Discussion Board',
p_mab => "Enter user:domain for User's 'About Me' Page",	p_mab => "Enter user:domain for User's Personal Information Page",
p_mab2 => "About [_99]",	p_mab2 => "Personal Information Page [_99]",
p_mab_alrt1 => 'Not a valid user:domain',	p_mab_alrt1 => 'Not a valid user:domain',
p_mab_alrt2 => 'Please enter both user and domain in the format user:domain',	p_mab_alrt2 => 'Please enter both user and domain in the format user:domain',
p_chn => 'New Title',	p_chn => 'New Title',
Line 3354 function edittext(targetname,residx,titl	Line 3432 function edittext(targetname,residx,titl

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

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

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

function makedropbox() {	function makedropbox() {
var title=prompt('$lt{"p_mdb"}');	var title=prompt('$lt{"p_mdb"}');
if (title) {	if (title) {
this.document.forms.newdropbox.importdetail.value=	this.document.forms.newdropbox.importdetail.value=
escape(title)+'=/res/lib/templates/DropBox.problem';	escape(title)+'=/res/lib/templates/DropBox.problem';
this.document.forms.newdropbox.submit();	this.document.forms.newdropbox.submit();
Line 3406 function makeabout() {	Line 3484 function makeabout() {
if ((comp[0]) && (comp[1])) {	if ((comp[0]) && (comp[1])) {
this.document.forms.newaboutsomeone.importdetail.value=	this.document.forms.newaboutsomeone.importdetail.value=
'$lt{"p_mab2"}'+escape(user)+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';	'$lt{"p_mab2"}'+escape(user)+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme';
this.document.forms.newaboutsomeone.submit();	this.document.forms.newaboutsomeone.submit();
} else {	} else {
alert("$lt{'p_mab_alrt1'}");	alert("$lt{'p_mab_alrt1'}");
}
} else {
alert("$lt{'p_mab_alrt2'}");
}
}	}
	} else {
	alert("$lt{'p_mab_alrt2'}");
	}
	}
}	}

function makeims() {	function makeims() {
var caller = document.forms.ims.folder.value;	var caller = document.forms.ims.folder.value;
var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one";	var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one";
newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes");	newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes");
newWindow.location.href = newlocation;	newWindow.location.href = newlocation;
}	}


function finishpick() {	function finishpick() {
var title=this.document.forms.extimport.title.value;	var title=this.document.forms.extimport.title.value;
var url=this.document.forms.extimport.url.value;	var url=this.document.forms.extimport.url.value;
var form=this.document.forms.extimport.useform.value;	var form=this.document.forms.extimport.useform.value;
var residx=this.document.forms.extimport.residx.value;	var residx=this.document.forms.extimport.residx.value;
eval('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+'='+residx+'";this.document.forms.'+form+'.submit();');	eval('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+'='+residx+'";this.document.forms.'+form+'.submit();');
}	}

function changename(folderpath,index,oldtitle,container,pagesymb) {	function changename(folderpath,index,oldtitle,container,pagesymb) {
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') {	if (container == 'sequence') {
this.document.forms.renameform.folderpath.value=folderpath;	this.document.forms.renameform.folderpath.value=folderpath;
}	}
if (container == 'page') {	if (container == 'page') {
this.document.forms.renameform.pagepath.value=folderpath;	this.document.forms.renameform.pagepath.value=folderpath;
this.document.forms.renameform.pagesymb.value=pagesymb;	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,container,pagesymb,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') {	if (container == 'sequence') {
this.document.forms.renameform.folderpath.value=folderpath;	this.document.forms.renameform.folderpath.value=folderpath;
}	}
if (container == 'page') {	if (container == 'page') {
this.document.forms.renameform.pagepath.value=folderpath;	this.document.forms.renameform.pagepath.value=folderpath;
this.document.forms.renameform.pagesymb.value=pagesymb;	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,pagesymb,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') {	if (container == 'sequence') {
this.document.forms.renameform.folderpath.value=folderpath;	this.document.forms.renameform.folderpath.value=folderpath;
}	}
if (container == 'page') {	if (container == 'page') {
this.document.forms.renameform.pagepath.value=folderpath;	this.document.forms.renameform.pagepath.value=folderpath;
this.document.forms.renameform.pagesymb.value=pagesymb;	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,pagesymb,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') {	if (container == 'sequence') {
this.document.forms.renameform.folderpath.value=folderpath;	this.document.forms.renameform.folderpath.value=folderpath;
}	}
if (container == 'page') {	if (container == 'page') {
this.document.forms.renameform.pagepath.value=folderpath;	this.document.forms.renameform.pagepath.value=folderpath;
this.document.forms.renameform.pagesymb.value=pagesymb;	this.document.forms.renameform.pagesymb.value=pagesymb;
}	}
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
	}

	function unselectInactive(nav) {
	currentNav = document.getElementById(nav);
	currentLis = currentNav.getElementsByTagName('LI');
	for (i = 0; i < currentLis.length; i++) {
	currentLis[i].className = 'i';
	}
	}

	function hideAll(current, nav, data) {
	unselectInactive(nav);
	current.className = 'active';
	currentData = document.getElementById(data);
	currentDivs = currentData.getElementsByTagName('DIV');
	for (i = 0; i < currentDivs.length; i++) {
	if(currentDivs[i].className == 'LC_ContentBox'){
	currentDivs[i].style.display = 'none';
	}
	}
	}

	function showPage(current, pageId, nav, data) {
	hideAll(current, nav, data);
	unselectInactive(nav);
	current.className = 'active';
	currentData = document.getElementById(pageId);
	currentData.style.display = 'block';
	return false;
}	}

ENDNEWSCRIPT	ENDNEWSCRIPT
Line 3518 Available help topics	Line 3625 Available help topics

=item mapread()	=item mapread()

Mapread read maps into LONCAPA::map:: global arrays	Mapread read maps into LONCAPA::map:: global arrays
@order and @resources, determines status	@order and @resources, determines status
sets @order - pointer to resources in right order	sets @order - pointer to resources in right order
sets @resources - array with the resources with correct idx	sets @resources - array with the resources with correct idx

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

Removed from v.1.325.2.9
changed lines
	Added in v.1.351