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.108 and 1.141

version 1.108, 2004/02/27 18:16:54	version 1.141, 2004/09/09 18:56:01
Line 36 use Apache::lonratedt;	Line 36 use Apache::lonratedt;
use Apache::lonratsrv;	use Apache::lonratsrv;
use Apache::lonxml;	use Apache::lonxml;
use Apache::loncreatecourse;	use Apache::loncreatecourse;
	use Apache::lonnavmaps;
use HTML::Entities;	use HTML::Entities;
use GDBM_File;	use GDBM_File;
use Apache::lonlocal;	use Apache::lonlocal;
Line 121 sub dumpbutton {	Line 122 sub dumpbutton {
if ($home) {	if ($home) {
return '</td><td bgcolor="#DDDDCC">'.	return '</td><td bgcolor="#DDDDCC">'.
'<input type="submit" name="dumpcourse" value="'.	'<input type="submit" name="dumpcourse" value="'.
&mt('Dump Course DOCS to Construction Space').'" />';	&mt('Dump Course DOCS to Construction Space').'" />'.
	&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs');
} else {	} else {
return'</td><td bgcolor="#DDDDCC">'.	return'</td><td bgcolor="#DDDDCC">'.
&mt('Dump Course DOCS to Construction Space: available on other servers');	&mt('Dump Course DOCS to Construction Space: available on other servers');
Line 156 sub dumpcourse {	Line 158 sub dumpcourse {
$crs=~s/\_/\//g;	$crs=~s/\_/\//g;
foreach (keys %replacehash) {	foreach (keys %replacehash) {
my $newfilename=$title.'/'.$replacehash{$_};	my $newfilename=$title.'/'.$replacehash{$_};
$newfilename=~s/[^\w\/\.]+/\_/g;	$newfilename=~s/[^\w\/\.\/]+/\_/g;
my @dirs=split(/\//,$newfilename);	my @dirs=split(/\//,$newfilename);
my $path='/home/'.$ca.'/public_html';	my $path='/home/'.$ca.'/public_html';
my $makepath=$path;	my $makepath=$path;
Line 200 sub dumpcourse {	Line 202 sub dumpcourse {
$r->print(	$r->print(
'<input type="hidden" name="authorspace" value="'.$1.'" />');	'<input type="hidden" name="authorspace" value="'.$1.'" />');
} else {	} else {
$r->print('<option value="'.$1.'">'.$_.'</option>');	$r->print('<option value="'.$1.'">'.$1.' - '.
	&Apache::loncommon::plainname(split(/\@/,$1)).'</option>');
}	}
}	}
}	}
Line 223 sub dumpcourse {	Line 226 sub dumpcourse {
$title=$_;	$title=$_;
}	}
$title=~s/\.(\w+)$//;	$title=~s/\.(\w+)$//;
$title=~s/\W+/\_/gs;	$title=~s/[^\w\/]+/\_/gs;
$title.='.'.$ext;	$title.='.'.$ext;
$r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");	$r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");
}	}
Line 234 sub dumpcourse {	Line 237 sub dumpcourse {
}	}
}	}

	# ------------------------------------------------------ Generate "export" button

	sub exportbutton {
	return '</td><td bgcolor="#DDDDCC">'.
	'<input type="submit" name="exportcourse" value="'.
	&mt('Export Course to IMS').'" />'.
	&Apache::loncommon::help_open_topic('Docs_Export_Course_Docs');
	}

	sub exportcourse {
	my $r=shift;
	my %discussiontime = &Apache::lonnet::dump('discussiontimes',
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
	my $numdisc = keys %discussiontime;
	my $navmap = Apache::lonnavmaps::navmap->new();
	my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);
	my $curRes;

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['finishexport']);
	if ($ENV{'form.finishexport'}) {
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['archive','discussion']);

	my @exportitems = ();
	if (defined($ENV{'form.archive'})) {
	if (ref($ENV{'form.archive'}) eq 'ARRAY') {
	@exportitems = @{$ENV{'form.archive'}};
	} else {
	$exportitems[0] = $ENV{'form.archive'};
	}
	}
	my @discussions = ();
	if (defined($ENV{'form.discussion'})) {
	if (ref($ENV{'form.discussion'}) eq 'ARRAY') {
	@discussions = $ENV{'form.discussion'};
	} else {
	$discussions[0] = $ENV{'form.discussion'};
	}
	}
	my $curRes;
	my $count;
	my %symbs;
	my $display;
	while ($curRes = $it->next()) {
	if (ref($curRes)) {
	$count ++;
	$symbs{$count} = $curRes->symb();
	if (grep/^$count$/,@exportitems) {
	$display.= 'Export content item '.$curRes->title()."<br />\n";
	}
	if (grep/^$count$/,@discussions) {
	$display.= 'Export discussion posts '.$curRes->title()."<br />\n";
	}
	}
	}

	$r->print('<html><head><title>Export Course</title></head>'.
	&Apache::loncommon::bodytag('Export course to IMS or SCORM content package'
	));

	my $exportfile;
	$r->print($display);
	$r->print('</body></html>');
	} else {
	my $display;
	$display = '<form name="exportdoc" method="post">'."\n";
	$display .= 'Choose which items you wish to export from your course.<br /><br />';
	$display .= '<table border="0" cellspacing="0" cellpadding="3">'.
	'<tr><td><fieldset><legend> <b>Content items</b></legend>'.
	'<input type="button" value="check all" '.
	'onclick="javascript:checkAll(document.exportdoc.archive)" />'.
	'  <input type="button" value="uncheck all"'.
	' onclick="javascript:uncheckAll(document.exportdoc.archive)" /></fieldset></td>'.
	'<td> </td><td> </td>'.
	'<td align="right"><fieldset><legend> <b>Discussion posts'.
	'</b></legend><input type="button" value="check all"'.
	' onclick="javascript:checkAll(document.exportdoc.discussion)" />'.
	'  <input type="button" value="uncheck all"'.
	' onclick="javascript:uncheckAll(document.exportdoc.discussion)" /></fieldset></td>'.
	'</tr></table>';
	my $curRes;
	my $depth = 0;
	my $count = 0;
	my $boards = 0;
	my $startcount = 5;
	my %parent = ();
	my %children = ();
	my $lastcontainer = $startcount;
	my @bgcolors = ('#F6F6F6','#FFFFFF');
	$display .= '<table cellspacing="0"><tr>'.
	'<td><b>Export content item?<br /></b></td><td> </td><td align="right">'."\n";
	if ($numdisc > 0) {
	$display.='<b>Export discussion posts?</b>'."\n";
	}
	$display.=' </td></tr>';
	while ($curRes = $it->next()) {
	if (ref($curRes)) {
	$count ++;
	}
	if ($curRes == $it->BEGIN_MAP()) {
	$depth++;
	$parent{$depth} = $lastcontainer;
	}
	if ($curRes == $it->END_MAP()) {
	$depth--;
	$lastcontainer = $parent{$depth};
	}
	if (ref($curRes)) {
	my $symb = $curRes->symb();
	my $color = $count%2;
	$display .='<tr bgcolor='.$bgcolors[$color].'><td>'."\n".
	'<input type="checkbox" name="archive" value="'.$count.'" ';
	if (($curRes->is_sequence()) \|\| ($curRes->is_page())) {
	my $checkitem = $count + $boards + $startcount;
	$display .= 'onClick="javascript:propagateCheck('."'$checkitem'".')"';
	}
	$display .= ' />'."\n";
	for (my $i=0; $i<$depth; $i++) {
	$display .= '<img src="/adm/lonIcons/whitespace1.gif" width="25" height="1" alt="" border="0" /><img src="/adm/lonIcons/whitespace1.gif" width="25" height="1" alt="" border="0" />'."\n";
	}
	if ($curRes->is_sequence()) {
	$display .= '<img src="/adm/lonIcons/navmap.folder.open.gif"> '."\n";
	$lastcontainer = $count + $startcount + $boards;
	} elsif ($curRes->is_page()) {
	$display .= '<img src="/adm/lonIcons/navmap.page.open.gif"> '."\n";
	$lastcontainer = $count + $startcount + $boards;
	}
	my $currelem = $count+$boards+$startcount;
	$children{$parent{$depth}} .= $currelem.':';
	$display .= ' '.$curRes->title().'</td>';
	if ($discussiontime{$symb} > 0) {
	$boards ++;
	$currelem = $count+$boards+$startcount;
	$display .= '<td> </td><td align="right"><input type="checkbox" name="discussion" value="'.$count.'" /> </td>'."\n";
	} else {
	$display .= '<td colspan="2"> </td>'."\n";
	}
	}
	}
	my $scripttag = qq\|
	<script>

	function checkAll(field) {
	for (i = 0; i < field.length; i++)
	field[i].checked = true ;
	}

	function uncheckAll(field) {
	for (i = 0; i < field.length; i++)
	field[i].checked = false ;
	}

	function propagateCheck(item) {
	if (document.exportdoc.elements[item].checked == true) {
	containerCheck(item)
	}
	}

	function containerCheck(item) {
	document.exportdoc.elements[item].checked = true
	var numitems = $count + $boards + $startcount
	var parents = new Array(numitems)
	for (var i=$startcount; i<numitems; i++) {
	parents[i] = new Array
	}
	\|;

	foreach my $container (sort { $a <=> $b } keys %children) {
	my @contents = split/:/,$children{$container};
	for (my $i=0; $i<@contents; $i ++) {
	$scripttag .= ' parents['.$container.']['.$i.'] = '.$contents[$i]."\n";
	}
	}

	$scripttag .= qq\|
	if (parents[item].length > 0) {
	for (var j=0; j<parents[item].length; j++) {
	containerCheck(parents[item][j])
	}
	}
	}

	</script>
	\|;
	$r->print('<html><head><title>Export Course</title>'.$scripttag.'</head>'.
	&Apache::loncommon::bodytag('Export course to IMS or SCORM content package'
	));

	$r->print($display.'</table>'.
	'<p><input type="hidden" name="finishexport" value="1">'.
	'<input type="submit" name="exportcourse" value="'.
	&mt('Export Course DOCS').'" /></p></form></body></html>');
	}
	}


# Imports the given (name, url) resources into the course	# Imports the given (name, url) resources into the course
# coursenum, coursedom, and folder must precede the list	# coursenum, coursedom, and folder must precede the list
Line 258 sub group_import {	Line 457 sub group_import {
return &storemap($coursenum, $coursedom, $folder.'.sequence');	return &storemap($coursenum, $coursedom, $folder.'.sequence');
}	}

	sub breadcrumbs {
	my ($where)=@_;
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	my (@folders)=split('&',$ENV{'form.folderpath'});
	my $folderpath;
	while (@folders) {
	my $folder=shift(@folders);
	my $foldername=shift(@folders);
	if ($folderpath) {$folderpath.='&';}
	$folderpath.=$folder.'&'.$foldername;
	my $url='/adm/coursedocs?folderpath='.
	&Apache::lonnet::escape($folderpath);
	&Apache::lonhtmlcommon::add_breadcrumb(
	{'href'=>$url,
	'title'=>&Apache::lonnet::unescape($foldername),
	'text'=>'<font size="+1">'.
	&Apache::lonnet::unescape($foldername).'</font>'
	});


	}
	return &Apache::lonhtmlcommon::breadcrumbs(undef,undef,undef,undef,undef,
	0,'nohelp');
	}

sub editor {	sub editor {
my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;	my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;
if ($ENV{'form.foldername'}) {
$r->print('<h3>Folder: '.$ENV{'form.foldername'}.'</h3>');	$r->print(&breadcrumbs($folder));
}
my $errtext='';	my $errtext='';
my $fatal=0;	my $fatal=0;
($errtext,$fatal)=	($errtext,$fatal)=
Line 275 sub editor {	Line 498 sub editor {
$r->print('<p><font color="red">'.$errtext.'</font></p>');	$r->print('<p><font color="red">'.$errtext.'</font></p>');
} else {	} else {
# ------------------------------------------------------------ Process commands	# ------------------------------------------------------------ Process commands

# ---------------- if they are for this folder and user allowed to make changes	# ---------------- if they are for this folder and user allowed to make changes
if (($allowed) && ($ENV{'form.folder'} eq $folder)) {	if (($allowed) && ($ENV{'form.folder'} eq $folder)) {
	# set parameters and change order
	if (defined($ENV{'form.setparms'})) {
	my $idx=$ENV{'form.setparms'};
	# set parameters
	if ($ENV{'form.randpick_'.$idx}) {
	&Apache::lonratedt::storeparameter($idx,'parameter_randompick',$ENV{'form.randpick_'.$idx},'int_pos');
	} else {
	&Apache::lonratedt::delparameter($idx,'parameter_randompick');
	}
	if ($ENV{'form.hidprs_'.$idx}) {
	&Apache::lonratedt::storeparameter($idx,'parameter_hiddenresource','yes','string_yesno');
	} else {
	&Apache::lonratedt::delparameter($idx,'parameter_hiddenresource');
	}
	if ($ENV{'form.encprs_'.$idx}) {
	&Apache::lonratedt::storeparameter($idx,'parameter_encrypturl','yes','string_yesno');
	} else {
	&Apache::lonratedt::delparameter($idx,'parameter_encrypturl');
	}

	if ($ENV{'form.newpos'}) {
	# change order

	my $newpos=$ENV{'form.newpos'}-1;
	my $currentpos=$ENV{'form.currentpos'}-1;
	my $i;
	my @neworder=();
	if ($newpos>$currentpos) {
	# moving stuff up
	for ($i=0;$i<$currentpos;$i++) {
	$neworder[$i]=$Apache::lonratedt::order[$i];
	}
	for ($i=$currentpos;$i<$newpos;$i++) {
	$neworder[$i]=$Apache::lonratedt::order[$i+1];
	}
	$neworder[$newpos]=$Apache::lonratedt::order[$currentpos];
	for ($i=$newpos+1;$i<=$#Apache::lonratedt::order;$i++) {
	$neworder[$i]=$Apache::lonratedt::order[$i];
	}
	} else {
	# moving stuff down
	for ($i=0;$i<$newpos;$i++) {
	$neworder[$i]=$Apache::lonratedt::order[$i];
	}
	$neworder[$newpos]=$Apache::lonratedt::order[$currentpos];
	for ($i=$newpos+1;$i<$currentpos+1;$i++) {
	$neworder[$i]=$Apache::lonratedt::order[$i-1];
	}
	for ($i=$currentpos+1;$i<=$#Apache::lonratedt::order;$i++) {
	$neworder[$i]=$Apache::lonratedt::order[$i];
	}
	}
	@Apache::lonratedt::order=@neworder;
	}
	# store the changed version

	($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence');
	if ($fatal) {
	$r->print('<p><font color="red">'.$errtext.'</font></p>');
	return;
	}

	}

# upload a file, if present	# upload a file, if present
if (($ENV{'form.uploaddoc.filename'}) &&	if (($ENV{'form.uploaddoc.filename'}) &&
($ENV{'form.cmd'}=~/^upload_(\w+)/)) {	($ENV{'form.cmd'}=~/^upload_(\w+)/)) {
if ($folder=~/^$1/) {	if ( ($folder=~/^$1/) \|\| ($1 eq 'default') ) {
# this is for a course, not a user, so set coursedoc flag	# this is for a course, not a user, so set coursedoc flag
# probably the only place in the system where this should be "1"	# probably the only place in the system where this should be "1"
my $url=&Apache::lonnet::userfileupload('uploaddoc',1);	my $url=&Apache::lonnet::userfileupload('uploaddoc',1,'docs');
my $ext='false';	my $ext='false';
if ($url=~/^http\:\/\//) { $ext='true'; }	if ($url=~/^http\:\/\//) { $ext='true'; }
$url=~s/\:/\&colon;/g;	$url=~s/\:/\&colon;/g;
Line 311 sub editor {	Line 599 sub editor {
if ($ENV{'form.cmd'}) {	if ($ENV{'form.cmd'}) {
my ($cmd,$idx)=split(/\_/,$ENV{'form.cmd'});	my ($cmd,$idx)=split(/\_/,$ENV{'form.cmd'});
if ($cmd eq 'del') {	if ($cmd eq 'del') {
	my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]);
	if ($url=~m\|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/\|) {
	&Apache::lonnet::removeuploadedurl($url);
	}
for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {	for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) {
$Apache::lonratedt::order[$i]=	$Apache::lonratedt::order[$i]=
$Apache::lonratedt::order[$i+1];	$Apache::lonratedt::order[$i+1];
Line 398 sub editor {	Line 690 sub editor {
my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);	my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]);
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { next; }	unless ($name) { next; }
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_));	$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum));
$idx++;	$idx++;
}	}
	unless ($idx) {
	$r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');
	}
$r->print('</table>');	$r->print('</table>');
}	}
}	}
Line 408 sub editor {	Line 703 sub editor {
# --------------------------------------------------------------- An entry line	# --------------------------------------------------------------- An entry line

sub entryline {	sub entryline {
my ($index,$title,$url,$folder,$allowed,$residx)=@_;	my ($index,$title,$url,$folder,$allowed,$residx,$coursenum)=@_;
$title=~s/\&colon\;/\:/g;	$title=~s/\&colon\;/\:/g;
$title=&HTML::Entities::encode(&HTML::Entities::decode(	$title=&HTML::Entities::encode(&HTML::Entities::decode(
&Apache::lonnet::unescape($title)),'\"\<\>\&\'');	&Apache::lonnet::unescape($title)),'"<>&\'');
my $renametitle=$title;	my $renametitle=$title;
my $foldertitle=$title;	my $foldertitle=$title;
if ($title=~	my $orderidx=$Apache::lonratedt::order[$index];
/^(\d+)\_\_\_\&amp\;\&amp\;\&amp\;\_\_\_(\w+)\_\_\_\&amp\;\&amp\;\&amp\;\_\_\_(\w+)\_\_\_\&amp\;\&amp\;\&amp\;\_\_\_(.*)$/	if ($title=~ /^(\d+)___&&&___(\w+)___&&&___(\w+)___&&&___(.*)$/ ) {
) {	$foldertitle=&Apache::lontexconvert::msgtexconverted($4);
$foldertitle=&Apache::lontexconvert::msgtexconverted($4);	$renametitle=$4;
$renametitle=$4;	$title='<i>'.&Apache::lonlocal::locallocaltime($1).'</i> '.
$title='<i>'.&Apache::lonlocal::locallocaltime($1).'</i> '.	&Apache::loncommon::plainname($2,$3).': <br />'.
&Apache::loncommon::plainname($2,$3).': <br />'.	$foldertitle;
$foldertitle;	}
}
$renametitle=~s/\&quot\;/\\\"/g;	$renametitle=~s/\&quot\;/\\\"/g;
my $line='<tr>';	my $line='<tr>';
# Edit commands	# Edit commands
if ($allowed) {	my $folderpath;
my %lt=('up' => 'Move Up',	if ($ENV{'form.folderpath'}) {
'dw' => 'Move Down',	$folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'});
'rm' => 'Remove',	# $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"');
'rn' => 'Rename');	}
$line.=(<<END);	if ($allowed) {
	my $incindex=$index+1;
	my $selectbox='';
	if ($folder!~/^supplemental/) {
	$selectbox=
	'<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
	'<select name="newpos" onChange="this.form.submit()">';
	for (my $i=1;$i<=$#Apache::lonratedt::order+1;$i++) {
	if ($i==$incindex) {
	$selectbox.='<option value="" selected="1">('.$i.')</option>';
	} else {
	$selectbox.='<option value="'.$i.'">'.$i.'</option>';
	}
	}
	$selectbox.='</select>';
	}
	my %lt=&Apache::lonlocal::texthash(
	'up' => 'Move Up',
	'dw' => 'Move Down',
	'rm' => 'Remove',
	'rn' => 'Rename');
	$line.=(<<END);
	<form name="entry_$index" action="/adm/coursedocs" method="post">
	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
	<input type="hidden" name="setparms" value="$orderidx" />
<td><table border='0' cellspacing='2' cellpadding='0'>	<td><table border='0' cellspacing='2' cellpadding='0'>
<tr><td bgcolor="#DDDDDD">	<tr><td bgcolor="#DDDDDD">
<a href='/adm/coursedocs?folder=$folder&cmd=up_$index'>	<a href='/adm/coursedocs?cmd=up_$index&folderpath=$folderpath'>
<img src="${iconpath}move_up.gif" alt='$lt{'up'}' border='0' /></a></td></tr>	<img src="${iconpath}move_up.gif" alt='$lt{'up'}' border='0' /></a></td></tr>
<tr><td bgcolor="#DDDDDD">	<tr><td bgcolor="#DDDDDD">
<a href='/adm/coursedocs?folder=$folder&cmd=down_$index'>	<a href='/adm/coursedocs?cmd=down_$index&folderpath=$folderpath'>
<img src="${iconpath}move_down.gif" alt='$lt{'dw'}' border='0' /></a></td></tr>	<img src="${iconpath}move_down.gif" alt='$lt{'dw'}' border='0' /></a></td></tr>
</table></td><td bgcolor="#DDDDDD">	</table></td>
<a href='javascript:removeres("$folder","$index","$renametitle");'>	<td>$selectbox
	</td><td bgcolor="#DDDDDD">
	<a href='javascript:removeres("$folderpath","$index","$renametitle");'>
<font size="-2" color="#990000">$lt{'rm'}</font></a>	<font size="-2" color="#990000">$lt{'rm'}</font></a>
<a href='javascript:changename("$folder","$index","$renametitle");'>	<a href='javascript:changename("$folderpath","$index","$renametitle");'>
<font size="-2" color="#009900">$lt{'rn'}</font></a></td>	<font size="-2" color="#009900">$lt{'rn'}</font></a></td>
END	END
}	}
Line 451 END	Line 771 END
my $uploaded=($url=~/^\/*uploaded\//);	my $uploaded=($url=~/^\/*uploaded\//);
my $icon=&Apache::loncommon::icon($url);	my $icon=&Apache::loncommon::icon($url);
my $isfolder=0;	my $isfolder=0;
	my $folderarg;
if ($uploaded) {	if ($uploaded) {
if ($extension eq 'sequence') {	if ($extension eq 'sequence') {
$icon=$iconpath.'/folder_closed.gif';	$icon=$iconpath.'/folder_closed.gif';
$url=~/\/(\w+)\.sequence/;	$url=~/$coursenum\/([\/\w]+)\.sequence$/;
$url='/adm/coursedocs?folder='.$1;	$url='/adm/coursedocs?';
$isfolder=1;	$folderarg=$1;
} else {	$isfolder=1;
$url=&Apache::lonnet::tokenwrapper($url);	} else {
}	&Apache::lonnet::allowuploaded('/adm/coursedoc',$url);
	}
}	}
$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;	$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
if (($residx) && ($folder!~/supplemental/)) {	if ((!$isfolder) && ($residx) && ($folder!~/supplemental/)) {
$url.=(($url=~/\?/)?'&':'?').'symb='.	my $symb=&Apache::lonnet::symbclean(
&Apache::lonnet::escape(&Apache::lonnet::symbclean(
&Apache::lonnet::declutter('uploaded/'.	&Apache::lonnet::declutter('uploaded/'.
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'.	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'.
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/'.$folder.	$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/'.$folder.
'.sequence').	'.sequence').
'___'.$residx.'___'.	'___'.$residx.'___'.
&Apache::lonnet::declutter($url)));	&Apache::lonnet::declutter($url));
	(undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
	$url=&Apache::lonnet::clutter($url);
	if ($url=~/^\/*uploaded\//) {
	$url=~/\.(\w+)$/;
	my $embstyle=&Apache::loncommon::fileembstyle($1);
	if (($embstyle eq 'img') \|\| ($embstyle eq 'emb')) {
	$url='/adm/wrapper'.$url;
	} elsif ($embstyle eq 'ssi') {
	#do nothing with these
	} elsif ($url!~/\.(sequence\|page)$/) {
	$url='/adm/coursedocs/showdoc'.$url;
	}
	}
	$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
}	}
if ($isfolder) { $url.='&foldername='.	my $parameterset=' ';
&Apache::lonnet::escape($foldertitle); }	if ($isfolder) {
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.	my $foldername=&Apache::lonnet::escape($foldertitle);
'"><img src="'.$icon.'" border="0"></a></td>'.	my $folderpath=$ENV{'form.folderpath'};
"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>";	if ($folderpath) { $folderpath.='&' };
	$folderpath.=$folderarg.'&'.$foldername;
	$url.='folderpath='.&Apache::lonnet::escape($folderpath);
	$parameterset=&mt('Randomly Pick: ').
	'<input type="text" size="4" name="randpick_'.$orderidx.'" value="'.
	(&Apache::lonratedt::getparameter($orderidx,'parameter_randompick'))[0].'" />';
	}
	$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.
	'" border="0"></a></td>'.
	"<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td>";
	if (($allowed) && ($folder!~/^supplemental/)) {
	my %lt=&Apache::lonlocal::texthash(
	'hd' => 'Hidden',
	'ec' => 'URL hidden',
	'sp' => 'Store Parameters');
	my $enctext=
	((&Apache::lonratedt::getparameter($orderidx,'parameter_encrypturl'))[0]=~/^yes$/i?' checked="1"':'');
	my $hidtext=
	((&Apache::lonratedt::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i?' checked="1"':'');
	$line.=(<<ENDPARMS);
	<td bgcolor="#BBBBFF"><font size='-2'>
	<input type="checkbox" name="hidprs_$orderidx" $hidtext/> $lt{'hd'}</td>
	<!--<td bgcolor="#BBBBFF"><font size='-2'>
	<input type="checkbox" name="encprs_$orderidx" $enctext/> $lt{'ec'}</td>-->
	<td bgcolor="#BBBBFF"><font size="-2">$parameterset</font></td>
	<td bgcolor="#BBBBFF"><font size='-2'>
	<input type="submit" value="$lt{'sp'}" />
	</font></td>
	ENDPARMS
	}
	$line.="</form></tr>";
return $line;	return $line;
}	}

# ---------------------------------------------------------------- tie the hash	# ---------------------------------------------------------------- tie the hash

sub tiehash {	sub tiehash {
	my ($mode)=@_;
$hashtied=0;	$hashtied=0;
if ($ENV{'request.course.fn'}) {	if ($ENV{'request.course.fn'}) {
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db",	if ($mode eq 'write') {
&GDBM_READER(),0640)) {	if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db",
	&GDBM_WRCREAT(),0640)) {
	$hashtied=2;
	}
	} else {
	if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db",
	&GDBM_READER(),0640)) {
$hashtied=1;	$hashtied=1;
}	}
	}
}	}
}	}

Line 501 sub untiehash {	Line 874 sub untiehash {

sub checkonthis {	sub checkonthis {
my ($r,$url,$level,$title)=@_;	my ($r,$url,$level,$title)=@_;
	$url=&Apache::lonnet::unescape($url);
$alreadyseen{$url}=1;	$alreadyseen{$url}=1;
$r->rflush();	$r->rflush();
if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {	if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {
Line 587 sub verifycontent {	Line 961 sub verifycontent {
%alreadyseen=();	%alreadyseen=();
&tiehash();	&tiehash();
foreach (keys %hash) {	foreach (keys %hash) {
if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) {	if ($hash{$_}=~/\.(page\|sequence)$/) {
	if (($_=~/^src_/) && ($alreadyseen{&Apache::lonnet::unescape($hash{$_})})) {
	$r->print('<hr /><font color="red">'.
	&mt('The following sequence or page is included more than once in your course: ').
	&Apache::lonnet::unescape($hash{$_}).'</font><br />'.
	&mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />'));
	}
	}
	if (($_=~/^src\_(.+)$/) && (!$alreadyseen{&Apache::lonnet::unescape($hash{$_})})) {
&checkonthis($r,$hash{$_},0,$hash{'title_'.$1});	&checkonthis($r,$hash{$_},0,$hash{'title_'.$1});
}	}
}	}
Line 640 sub checkversions {	Line 1022 sub checkversions {
foreach (keys %ENV) {	foreach (keys %ENV) {
if ($_=~/^form\.set_version_(.+)$/) {	if ($_=~/^form\.set_version_(.+)$/) {
my $src=$1;	my $src=$1;
&Apache::lonnet::logthis('Found: '.$1.' '.$ENV{$_});
if (($ENV{$_}) && ($ENV{$_} ne $setversions{$src})) {	if (($ENV{$_}) && ($ENV{$_} ne $setversions{$src})) {
$newsetversions{$src}=$ENV{$_};	$newsetversions{$src}=$ENV{$_};
}	}
Line 655 sub checkversions {	Line 1036 sub checkversions {
} else {	} else {
$r->print('<h1><font color="red">'.&mt('An Error Occured while Attempting to Store your Version Settings').'</font></h1>');	$r->print('<h1><font color="red">'.&mt('An Error Occured while Attempting to Store your Version Settings').'</font></h1>');
}	}
&changewarning($r,'');	&mark_hash_old();
}	}
	&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 Course');	$header=&mt('All Documents in Course');
Line 776 ENDHEADERS	Line 1158 ENDHEADERS
# Set version	# Set version
$r->print(&Apache::loncommon::select_form($setversions{$linkurl},	$r->print(&Apache::loncommon::select_form($setversions{$linkurl},
'set_version_'.$linkurl,	'set_version_'.$linkurl,
('' => '',	('select_form_order' =>
	['',1..$currentversion,'mostrecent'],
	'' => '',
'mostrecent' => 'most recent',	'mostrecent' => 'most recent',
map {$_,$_} (1..$currentversion))));	map {$_,$_} (1..$currentversion))));
$r->print('</nobr></td></tr><tr><td></td>');	$r->print('</nobr></td></tr><tr><td></td>');
Line 837 ENDHEADERS	Line 1221 ENDHEADERS
&untiehash();	&untiehash();
}	}

	sub mark_hash_old {
	my $retie_hash=0;
	if ($hashtied) {
	$retie_hash=1;
	&untiehash();
	}
	&tiehash('write');
	$hash{'old'}=1;
	&untiehash();
	if ($retie_hash) { &tiehash(); }
	}

	sub is_hash_old {
	my $untie_hash=0;
	if (!$hashtied) {
	$untie_hash=1;
	&tiehash();
	}
	my $return=$hash{'old'};
	if ($untie_hash) { &untiehash(); }
	return $return;
	}

sub changewarning {	sub changewarning {
my ($r,$postexec)=@_;	my ($r,$postexec)=@_;
	if (!&is_hash_old()) { return; }
$r->print(	$r->print(
'<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'.	'<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'.
'<form method="post" action="/adm/roles" target="loncapaclient">'.	'<form method="post" action="/adm/roles" target="loncapaclient">'.
'<input type="hidden" name="orgurl" value="/adm/coursedocs" /><input type="hidden" name="selectrole" value="1" /><h3><font color="red">'.	'<input type="hidden" name="orgurl" value="/adm/coursedocs?folderpath='.
	&Apache::lonnet::escape($ENV{'form.folderpath'}).
	'" /><input type="hidden" name="selectrole" value="1" /><h3><font color="red">'.
&mt('Changes will become active for your current session after').	&mt('Changes will become active for your current session after').
' <input type="hidden" name="'.	' <input type="hidden" name="'.
$ENV{'request.role'}.'" value="1" /><input type="button" value="'.	$ENV{'request.role'}.'" value="1" /><input type="button" value="'.
Line 862 sub handler {	Line 1272 sub handler {
'Adding_External_Resource','Navigate_Content',	'Adding_External_Resource','Navigate_Content',
'Adding_Folders','Docs_Overview', 'Load_Map',	'Adding_Folders','Docs_Overview', 'Load_Map',
'Supplemental', 'Score_Upload_Form',	'Supplemental', 'Score_Upload_Form',
'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {	'Importing_LON-CAPA_Resource','Uploading_From_Harddrive',
	'Check_Resource_Versions','Verify_Content') {
$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);	$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
}	}
# Composite help files	# Composite help files
Line 884 sub handler {	Line 1295 sub handler {
&checkversions($r);	&checkversions($r);
} elsif ($ENV{'form.dumpcourse'}) {	} elsif ($ENV{'form.dumpcourse'}) {
&dumpcourse($r);	&dumpcourse($r);
	} elsif ($ENV{'form.exportcourse'}) {
	&exportcourse($r);
} else {	} else {
# is this a standard course?	# is this a standard course?

Line 895 sub handler {	Line 1308 sub handler {
my $events='';	my $events='';
my $showdoc=0;	my $showdoc=0;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folder','foldername']);	['folderpath']);
	if ($ENV{'form.folderpath'}) {
	my (@folderpath)=split('&',$ENV{'form.folderpath'});
	$ENV{'form.foldername'}=&Apache::lonnet::unescape(pop(@folderpath));
	$ENV{'form.folder'}=pop(@folderpath);
	}
if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {	if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
$showdoc=$1;	$showdoc='/'.$1;
}	}
unless ($showdoc) { # got called from remote	unless ($showdoc) { # got called from remote
$forcestandard=($ENV{'form.folder'}=~/^default_/);	$forcestandard=($ENV{'form.folder'}=~/^default_/);
Line 1009 function makeabout() {	Line 1427 function makeabout() {
}	}
}	}

	function makeims() {
	var caller = document.forms.ims.folder.value
	var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one"
	newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes")
	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;
Line 1018 function finishpick() {	Line 1444 function finishpick() {
'";this.document.forms.'+form+'.submit();');	'";this.document.forms.'+form+'.submit();');
}	}

function changename(folder,index,oldtitle) {	function changename(folderpath,index,oldtitle) {
var title=prompt('New Title',oldtitle);	var title=prompt('New Title',oldtitle);
if (title) {	if (title) {
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;
this.document.forms.renameform.folder.value=folder;	this.document.forms.renameform.folderpath.value=folderpath;
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
}	}
}	}

function removeres(folder,index,oldtitle) {	function removeres(folderpath,index,oldtitle) {
if (confirm('Remove "'+oldtitle+'"?')) {	if (confirm('Remove "'+oldtitle+'"?')) {
this.document.forms.renameform.cmd.value='del_'+index;	this.document.forms.renameform.cmd.value='del_'+index;
this.document.forms.renameform.folder.value=folder;	this.document.forms.renameform.folderpath.value=folderpath;
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
}	}
}	}

</script>	</script>

ENDNEWSCRIPT	ENDNEWSCRIPT
Line 1043 ENDNEWSCRIPT	Line 1470 ENDNEWSCRIPT
$r->print('</head>'.	$r->print('</head>'.
&Apache::loncommon::bodytag('Course Documents','',$events,	&Apache::loncommon::bodytag('Course Documents','',$events,
'','',$showdoc).	'','',$showdoc).
&Apache::loncommon::help_open_faq(273).	&Apache::loncommon::help_open_menu('','','','',273,'RAT'));
&Apache::loncommon::help_open_bug('RAT'));
unless ($showdoc) {	unless ($showdoc) {
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
Line 1067 ENDNEWSCRIPT	Line 1493 ENDNEWSCRIPT
'bull' => 'Bulletin Board',	'bull' => 'Bulletin Board',
'mypi' => 'My Personal Info',	'mypi' => 'My Personal Info',
'abou' => 'About User',	'abou' => 'About User',
	'imsf' => 'Import IMS package',
'file' => 'File',	'file' => 'File',
'title' => 'Title',	'title' => 'Title',
'comment' => 'Comment'	'comment' => 'Comment'
Line 1074 ENDNEWSCRIPT	Line 1501 ENDNEWSCRIPT
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
if ($allowed) {	if ($allowed) {
my $dumpbut=&dumpbutton();	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',
);	);

	my $folderpath=$ENV{'form.folderpath'};
	if (!$folderpath) {
	if ($ENV{'form.folder'} eq '' \|\|
	$ENV{'form.folder'} eq 'supplemental') {
	$folderpath='default&'.
	&Apache::lonnet::escape(&mt('Main Course Documents'));
	}
	}
$r->print(<<ENDCOURSEVERIFY);	$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="folder" />	<input type="hidden" name="folderpath" />
</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="">
<input type="hidden" name="folder" />	<input type="hidden" name="folderpath" value="$folderpath" />
</form>	</form>
<form action="/adm/coursedocs" method="post" name="courseverify">	<form action="/adm/coursedocs" method="post" name="courseverify">
<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4">	<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4">
<tr><td bgcolor="#DDDDCC">	<tr><td bgcolor="#DDDDCC">
<input type="submit" name="verify" value="$lt{'vc'}" />	<input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}
</td><td bgcolor="#DDDDCC">	</td><td bgcolor="#DDDDCC">
<input type="submit" name="versions" value="$lt{'cv'}" />	<input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}
$dumpbut	$dumpbut
	$exportbut
</td></tr></table>	</td></tr></table>
</form>	</form>
ENDCOURSEVERIFY	ENDCOURSEVERIFY
Line 1104 ENDCOURSEVERIFY	Line 1542 ENDCOURSEVERIFY
# --------------------------------------------------------- Standard documents	# --------------------------------------------------------- Standard documents
$r->print('<table border=2 cellspacing=4 cellpadding=4>');	$r->print('<table border=2 cellspacing=4 cellpadding=4>');
if (($standard) && ($allowed) && (!$forcesupplement)) {	if (($standard) && ($allowed) && (!$forcesupplement)) {
$r->print('<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Main Course Documents').	$r->print('<tr><td bgcolor="#BBBBBB">');
($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');	# '<h2>'.&mt('Main Course Documents').
	# ($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');
my $folder=$ENV{'form.folder'};	my $folder=$ENV{'form.folder'};
unless ($folder=~/^default/) { $folder='default'; }	if ($folder eq '' \|\| $folder eq 'supplemental') {
	$folder='default';
	$ENV{'form.folderpath'}='default&'.&Apache::lonnet::escape(&mt('Main Course Documents'));
	}
my $postexec='';	my $postexec='';
if ($folder eq 'default') {	if ($folder eq 'default') {
$r->print('<script>this.window.name="loncapaclient";</script>');	$r->print('<script>this.window.name="loncapaclient";</script>');
} else {	} else {
$postexec='self.close();';	#$postexec='self.close();';
}	}
$hadchanges=0;	$hadchanges=0;
&editor($r,$coursenum,$coursedom,$folder,$allowed);	&editor($r,$coursenum,$coursedom,$folder,$allowed);
if ($hadchanges) {	if ($hadchanges) {
&changewarning($r,$postexec);	&mark_hash_old()
}	}
	&changewarning($r,$postexec);
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.	my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';	'.sequence';
$r->print(<<ENDFORM);	$r->print(<<ENDFORM);
Line 1134 $lt{'file'}:<br />	Line 1577 $lt{'file'}:<br />
<br />	<br />
$lt{'title'}:<br />	$lt{'title'}:<br />
<input type="text" size="50" name="comment">	<input type="text" size="50" name="comment">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type="hidden" name="cmd" value="upload_default">	<input type="hidden" name="cmd" value="upload_default">
<input type="submit" value="$lt{'upld'}">
<nobr>	<nobr>
	<input type="submit" value="$lt{'upld'}">
$help{'Uploading_From_Harddrive'}	$help{'Uploading_From_Harddrive'}
</nobr>	</nobr>
</form>	</form>
</td>	</td>
<td bgcolor="#DDDDDD">	<td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="simpleeditdefault">	<form action="/adm/coursedocs" method="post" name="simpleeditdefault">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type=button onClick="javascript:groupsearch()" value="$lt{'srch'}">
<input type=button onClick=
"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="$lt{'srch'}">
<nobr>	<nobr>
<input type=button onClick=	<input type=button onClick="javascript:groupimport();" value="$lt{'impo'}">
"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="$lt{'impo'}">
$help{'Importing_LON-CAPA_Resource'}	$help{'Importing_LON-CAPA_Resource'}
</nobr>	</nobr>
<p>	<p>
Line 1165 $help{'Load_Map'}</nobr>	Line 1604 $help{'Load_Map'}</nobr>
</form>	</form>
</td><td bgcolor="#DDDDDD">	</td><td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="newfolder">	<form action="/adm/coursedocs" method="post" name="newfolder">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newfolder" type="button"	<input name="newfolder" type="button"
Line 1175 value="$lt{'newf'}" />$help{'Adding_Fold	Line 1613 value="$lt{'newf'}" />$help{'Adding_Fold
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newext">	<form action="/adm/coursedocs" method="post" name="newext">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newext" type="button" onClick="javascript:makenewext('newext');"	<input name="newext" type="button" onClick="javascript:makenewext('newext');"
Line 1184 value="$lt{'extr'}" /> $help{'Adding_Ext	Line 1621 value="$lt{'extr'}" /> $help{'Adding_Ext
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newsyl">	<form action="/adm/coursedocs" method="post" name="newsyl">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="Syllabus=/public/$coursedom/$coursenum/syllabus">	value="Syllabus=/public/$coursedom/$coursenum/syllabus">
<nobr>	<nobr>
Line 1194 value="Syllabus=/public/$coursedom/$cour	Line 1630 value="Syllabus=/public/$coursedom/$cour
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newnav">	<form action="/adm/coursedocs" method="post" name="newnav">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="Navigate Content=/adm/navmaps">	value="Navigate Content=/adm/navmaps">
<nobr>	<nobr>
Line 1204 $help{'Navigate_Content'}	Line 1639 $help{'Navigate_Content'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newsmppg">	<form action="/adm/coursedocs" method="post" name="newsmppg">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newsmppg" type="button" value="$lt{'sipa'}"	<input name="newsmppg" type="button" value="$lt{'sipa'}"
Line 1213 onClick="javascript:makesmppage();" /> $	Line 1647 onClick="javascript:makesmppage();" /> $
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newsmpproblem">	<form action="/adm/coursedocs" method="post" name="newsmpproblem">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newsmpproblem" type="button" value="$lt{'sipr'}"	<input name="newsmpproblem" type="button" value="$lt{'sipr'}"
Line 1222 onClick="javascript:makesmpproblem();" /	Line 1655 onClick="javascript:makesmpproblem();" /
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newexamupload">	<form action="/adm/coursedocs" method="post" name="newexamupload">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newexamupload" type="button" value="$lt{'scuf'}"	<input name="newexamupload" type="button" value="$lt{'scuf'}"
Line 1232 $help{'Score_Upload_Form'}	Line 1664 $help{'Score_Upload_Form'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newbul">	<form action="/adm/coursedocs" method="post" name="newbul">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newbulletin" type="button" value="$lt{'bull'}"	<input name="newbulletin" type="button" value="$lt{'bull'}"
Line 1242 $help{'Bulletin Board'}	Line 1673 $help{'Bulletin Board'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newaboutme">	<form action="/adm/coursedocs" method="post" name="newaboutme">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme">	value="$plainname=/adm/$udom/$uname/aboutme">
<nobr>	<nobr>
Line 1252 $help{'My Personal Info'}	Line 1682 $help{'My Personal Info'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newaboutsomeone">	<form action="/adm/coursedocs" method="post" name="newaboutsomeone">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newaboutsomeone" type="button" value="$lt{'abou'}"	<input name="newaboutsomeone" type="button" value="$lt{'abou'}"
onClick="javascript:makeabout();" />	onClick="javascript:makeabout();" />
</nobr>	</nobr>
</form>	</form>
	<form action="/adm/imsimportdocs" method="post" name="ims">
	<input type="hidden" name="folder" value="$folder" />
	<input name="imsimport" type="button" value="$lt{'imsf'}" onClick="javascript:makeims();" />
	</nobr>
	</form>
</td></tr>	</td></tr>
</table>	</table>
ENDFORM	ENDFORM
Line 1267 ENDFORM	Line 1701 ENDFORM
}	}
# ----------------------------------------------------- Supplemental documents	# ----------------------------------------------------- Supplemental documents
if (!$forcestandard) {	if (!$forcestandard) {
$r->print(	$r->print('<tr><td bgcolor="#BBBBBB">');
'<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Supplemental Course Documents').	# '<h2>'.&mt('Supplemental Course Documents').
($allowed?' '.$help{'Supplemental'}:'').'</h2>');	# ($allowed?' '.$help{'Supplemental'}:'').'</h2>');
my $folder=$ENV{'form.folder'};	my $folder=$ENV{'form.folder'};
unless ($folder=~/supplemental/) { $folder='supplemental'; }	unless ($folder=~/^supplemental/) {
	$folder='supplemental';
	}
	if ($folder =~ /^supplemental$/ &&
	$ENV{'form.folderpath'} =~ /^default\&/) {
	$ENV{'form.folderpath'}='supplemental&'.
	&Apache::lonnet::escape(&mt('Supplemental Course Documents'));
	}
&editor($r,$coursenum,$coursedom,$folder,$allowed);	&editor($r,$coursenum,$coursedom,$folder,$allowed);
if ($allowed) {	if ($allowed) {
my $folderseq=	my $folderseq=
Line 1289 ENDFORM	Line 1730 ENDFORM
<br />$lt{'comment'}:<br />	<br />$lt{'comment'}:<br />
<textarea cols=50 rows=4 name='comment'>	<textarea cols=50 rows=4 name='comment'>
</textarea>	</textarea>
<input type="hidden" name="folder" value="$folder">	<br />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="cmd" value="upload_supplemental">	<input type="hidden" name="cmd" value="upload_supplemental">
<nobr>	<nobr>
<input type="submit" value="$lt{'upld'}">	<input type="submit" value="$lt{'upld'}">
Line 1300 ENDFORM	Line 1741 ENDFORM
</td>	</td>
<td bgcolor="#DDDDDD">	<td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="supnewfolder">	<form action="/adm/coursedocs" method="post" name="supnewfolder">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newfolder" type="button"	<input name="newfolder" type="button"
Line 1310 value="$lt{'newf'}" /> $help{'Adding_Fol	Line 1750 value="$lt{'newf'}" /> $help{'Adding_Fol
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="supnewext">	<form action="/adm/coursedocs" method="post" name="supnewext">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<nobr>	<nobr>
<input name="newext" type="button"	<input name="newext" type="button"
Line 1320 value="$lt{'extr'}" /> $help{'Adding_Ext	Line 1759 value="$lt{'extr'}" /> $help{'Adding_Ext
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="supnewsyl">	<form action="/adm/coursedocs" method="post" name="supnewsyl">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="Syllabus=/public/$coursedom/$coursenum/syllabus">	value="Syllabus=/public/$coursedom/$coursenum/syllabus">
<nobr>	<nobr>
Line 1330 $help{'Syllabus'}	Line 1768 $help{'Syllabus'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="subnewaboutme">	<form action="/adm/coursedocs" method="post" name="subnewaboutme">
<input type="hidden" name="folder" value="$folder">	<input type="hidden" name="folderpath" value="$ENV{'form.folderpath'}" />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme">	value="$plainname=/adm/$udom/$uname/aboutme">
<nobr>	<nobr>
Line 1350 ENDSUPFORM	Line 1787 ENDSUPFORM
$r->print('</table>');	$r->print('</table>');
} else {	} else {
# -------------------------------------------------------- This is showdoc mode	# -------------------------------------------------------- This is showdoc mode
$r->print("<h1>".&mt('Uploaded Document').'</h1><p>'.	$r->print("<h1>".&mt('Uploaded Document').' - '.
	&Apache::lonnet::gettitle($r->uri).'</h1><p>'.
&mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><p><table>".	&mt('It is recommended that you use an up-to-date virus scanner before handling this file.')."</p><p><table>".
&entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table></p>');	&entryline(0,&mt("Click to download or use your browser's Save Link function"),$showdoc).'</table></p>');
}	}

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

Removed from v.1.108
changed lines
	Added in v.1.141