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.47 and 1.77

version 1.47, 2003/02/04 18:23:21	version 1.77, 2003/09/09 19:39:04
Line 35 use Apache::loncommon;	Line 35 use Apache::loncommon;
use Apache::lonratedt;	use Apache::lonratedt;
use Apache::lonratsrv;	use Apache::lonratsrv;
use Apache::lonxml;	use Apache::lonxml;
	use Apache::loncreatecourse;
use HTML::Entities;	use HTML::Entities;
use GDBM_File;	use GDBM_File;

Line 72 sub storemap {	Line 73 sub storemap {
$map,1);	$map,1);
}	}

	# ----------------------------------------- Return hash with valid author names

	sub authorhosts {
	my %outhash=();
	my $home=0;
	my $other=0;
	foreach (keys %ENV) {
	if ($_=~/^user\.role\.(au\|ca)\.(.+)$/) {
	my $role=$1;
	my $realm=$2;
	my ($start,$end)=split(/\./,$ENV{$_});
	if (($start) && ($start>time)) { next; }
	if (($end) && (time>$end)) { next; }
	my $ca; my $cd;
	if ($1 eq 'au') {
	$ca=$ENV{'user.name'};
	$cd=$ENV{'user.domain'};
	} else {
	($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);
	}
	if (&Apache::lonnet::homeserver($ca,$cd) eq
	$Apache::lonnet::perlvar{'lonHostID'}) {
	$home++;
	$outhash{'home_'.$ca.'@'.$cd}=1;
	} else {
	$outhash{'otherhome_'.$ca.'@'.$cd}=
	&Apache::lonnet::homeserver($ca,$cd);
	$other++;
	}
	}
	}
	return ($home,$other,%outhash);
	}
	# ------------------------------------------------------ Generate "dump" button

	sub dumpbutton {
	my ($home,$other,%outhash)=&authorhosts();
	if ($home+$other==0) { return ''; }
	my $output='</td><td bgcolor="#DDDDCC">';
	if ($home) {
	return '</td><td bgcolor="#DDDDCC">'.
	'<input type="submit" name="dumpcourse" value="Dump Course DOCS to Construction Space" />';
	} else {
	return'</td><td bgcolor="#DDDDCC">'.
	'Dump Course DOCS to Construction Space: available on other servers';
	}
	}

	# -------------------------------------------------------- Actually dump course

	sub dumpcourse {
	my $r=shift;
	$r->print('<html><head><title>Dump DOCS</title></head>'.
	&Apache::loncommon::bodytag('Dump Course DOCS to Construction Space').
	'<form name="dumpdoc" method="post">');
	my ($home,$other,%outhash)=&authorhosts();
	unless ($home) { return ''; }
	my $origcrsid=$ENV{'request.course.id'};
	my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid);
	if (($ENV{'form.authorspace'}) && ($ENV{'form.authorfolder'}=~/\w/)) {
	# Do the dumping
	unless ($outhash{'home_'.$ENV{'form.authorspace'}}) { return ''; }
	my ($ca,$cd)=split(/\@/,$ENV{'form.authorspace'});
	my $title=$ENV{'form.authorfolder'};

	} else {
	# Input form
	unless ($home==1) {
	$r->print(
	'<h3>Select the Construction Space</h3><select name="authorspace">');
	}
	foreach (sort keys %outhash) {
	if ($_=~/^home_(.+)$/) {
	if ($home==1) {
	$r->print(
	'<input type="hidden" name="authorspace" value="'.$1.'" />');
	} else {
	$r->print('<option value="'.$1.'">'.$_.'</option>');
	}
	}
	}
	unless ($home==1) {
	$r->print('</select>');
	}
	my $title=$origcrsdata{'description'};
	$title=~s/\s+/\_/gs;
	$title=~s/\W//gs;
	$r->print('<h3>Folder in Construction Space</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
	&tiehash();
	foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) {
	$r->print("\n<br />".$_.' '.
	$hash{'title_'.$hash{
	'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}}
	);
	}
	&untiehash();
	$r->print(
	'<input type="submit" name="dumpcourse" value="Dump Course DOCS" /></form>');
	}
	}


	# Imports the given (name, url) resources into the course
	# coursenum, coursedom, and folder must precede the list
	sub group_import {
	my $coursenum = shift;
	my $coursedom = shift;
	my $folder = shift;
	while (@_) {
	my $name = shift;
	my $url = shift;
	if ($url) {
	my $idx = $#Apache::lonratedt::resources + 1;
	$Apache::lonratedt::order[$#Apache::lonratedt::order+1]=$idx;
	my $ext = 'false';
	if ($url=~/^http:\/\//) { $ext = 'true'; }
	$url =~ s/:/\&colon;/g;
	$name =~ s/:/\&colon;/g;
	$Apache::lonratedt::resources[$idx] =
	join ':', ($name, $url, $ext, 'normal', 'res');
	}
	}
	&storemap($coursenum, $coursedom, $folder);
	}

sub editor {	sub editor {
my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;	my ($r,$coursenum,$coursedom,$folder,$allowed)=@_;
if ($ENV{'form.foldername'}) {	if ($ENV{'form.foldername'}) {
Line 158 sub editor {	Line 284 sub editor {
}	}
# Group import/search	# Group import/search
if ($ENV{'form.importdetail'}) {	if ($ENV{'form.importdetail'}) {
foreach (split(/\&/,$ENV{'form.importdetail'})) {	my @imports;
if (defined($_)) {	foreach (split(/\&/,$ENV{'form.importdetail'})) {
my ($name,$url)=split(/\=/,$_);	if (defined($_)) {
$name=&Apache::lonnet::unescape($name);	my ($name,$url)=split(/\=/,$_);
$url=&Apache::lonnet::unescape($url);	$name=&Apache::lonnet::unescape($name);
if ($url) {	$url=&Apache::lonnet::unescape($url);
my $idx=$#Apache::lonratedt::resources+1;	push @imports, $name, $url;
$Apache::lonratedt::order	}
[$#Apache::lonratedt::order+1]=$idx;	}
my $ext='false';
if ($url=~/^http\:\/\//) { $ext='true'; }
$url=~s/\:/\&colon;/g;
$name=~s/\:/\&colon;/g;
$Apache::lonratedt::resources[$idx]=
$name.':'.$url.':'.$ext.':normal:res';
}
}
}
# Store the changed version	# Store the changed version
&storemap($coursenum,$coursedom,$folder.'.sequence');	group_import($coursenum, $coursedom, $folder, @imports);
}	}
	# Loading a complete map
	if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) {
	foreach
	(&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {
	my $idx=$#Apache::lonratedt::resources;
	$idx++;
	$Apache::lonratedt::resources[$idx]=$_;
	$Apache::lonratedt::order
	[$#Apache::lonratedt::order+1]=$idx;
	}

	# Store the changed version
	&storemap($coursenum,$coursedom,$folder.'.sequence');
	}
}	}
# ---------------------------------------------------------------- End commands	# ---------------------------------------------------------------- End commands
# ---------------------------------------------------------------- Print screen	# ---------------------------------------------------------------- Print screen
Line 188 sub editor {	Line 319 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) { $name='NO RESOURCE'; $url='/adm/notfound.html'; }	unless ($name) { $name='NO RESOURCE'; $url='/adm/notfound.html'; }
$r->print(&entryline($idx,$name,$url,$folder,$allowed));	$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_));
$idx++;	$idx++;
}	}
$r->print('</table>');	$r->print('</table>');
Line 198 sub editor {	Line 329 sub editor {
# --------------------------------------------------------------- An entry line	# --------------------------------------------------------------- An entry line

sub entryline {	sub entryline {
my ($index,$title,$url,$folder,$allowed)=@_;	my ($index,$title,$url,$folder,$allowed,$residx)=@_;
$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)),'\"\<\>\&\'');
Line 218 sub entryline {	Line 349 sub entryline {
# Edit commands	# Edit commands
if ($allowed) {	if ($allowed) {
$line.=(<<END);	$line.=(<<END);
<td><table border='0' cellspacing='0' cellpadding='0'>	<td><table border='0' cellspacing='2' cellpadding='0'>
<tr><td><a href='/adm/coursedocs?folder=$folder&cmd=up_$index'>	<tr><td bgcolor="#DDDDDD">
	<a href='/adm/coursedocs?folder=$folder&cmd=up_$index'>
<img src="${iconpath}move_up.gif" alt='UP' border='0' /></a></td></tr>	<img src="${iconpath}move_up.gif" alt='UP' border='0' /></a></td></tr>
<tr><td><a href='/adm/coursedocs?folder=$folder&cmd=down_$index'>	<tr><td bgcolor="#DDDDDD">
	<a href='/adm/coursedocs?folder=$folder&cmd=down_$index'>
<img src="${iconpath}move_down.gif" alt='DOWN' border='0' /></a></td></tr>	<img src="${iconpath}move_down.gif" alt='DOWN' border='0' /></a></td></tr>
</table></td><td>	</table></td><td bgcolor="#DDDDDD">
<a href='/adm/coursedocs?folder=$folder&cmd=del_$index'>	<a href='javascript:removeres("$folder","$index","$renametitle");'>
<font size="-2">Remove</font></a>	<font size="-2" color="#990000">Remove</font></a>
<a href='javascript:changename("$folder","$index","$renametitle");'>	<a href='javascript:changename("$folder","$index","$renametitle");'>
<font size="-2">Rename</font></a></td>	<font size="-2" color="#009900">Rename</font></a></td>
END	END
}	}
# Figure out what kind of a resource this is	# Figure out what kind of a resource this is
Line 249 END	Line 382 END
}	}
}	}
$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;	$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
if ($isfolder) { $url.='&foldername='.$foldertitle; }	if (($residx) && ($folder!~/supplemental/)) {
	$url.=(($url=~/\?/)?'&':'?').'symb='.
	&Apache::lonnet::escape(&Apache::lonnet::symbclean(
	&Apache::lonnet::declutter('uploaded/'.
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'.
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/'.$folder.
	'.sequence').
	'___'.$residx.'___'.
	&Apache::lonnet::declutter($url)));
	}
	if ($isfolder) { $url.='&foldername='.
	&Apache::lonnet::escape($foldertitle); }
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.	$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.
'"><img src="/adm/lonIcons/'.	'"><img src="/adm/lonIcons/'.
$icon.'.gif" border="0"></a></td>'.	$icon.'.gif" border="0"></a></td>'.
Line 302 sub checkonthis {	Line 446 sub checkonthis {
$r->print(' ');	$r->print(' ');
}	}
$r->print('- Rendering: ');	$r->print('- Rendering: ');
	my $oldpath=$ENV{'request.filename'};
	$ENV{'request.filename'}=&Apache::lonnet::filelocation('',$url);
&Apache::lonxml::xmlparse($r,'web',	&Apache::lonxml::xmlparse($r,'web',
&Apache::lonnet::getfile(	&Apache::lonnet::getfile(
&Apache::lonnet::filelocation('',$url)));	&Apache::lonnet::filelocation('',$url)));
	$ENV{'request.filename'}=$oldpath;
if (($Apache::lonxml::errorcount) \|\|	if (($Apache::lonxml::errorcount) \|\|
($Apache::lonxml::warningcount)) {	($Apache::lonxml::warningcount)) {
if ($Apache::lonxml::errorcount) {	if ($Apache::lonxml::errorcount) {
Line 338 sub checkonthis {	Line 485 sub checkonthis {
}	}
}	}

# ================================================================ Main Handler
sub handler {
my $r = shift;
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;

# --------------------------------------------- Initialize help topics for this
foreach ('Adding_Course_Doc','Main_Course_Documents',
'Adding_External_Resource','Navigate_Content',
'Adding_Folders','Docs_Overview',
'Creating_From_Template','Supplemental',
'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
}

if ($ENV{'form.verify'}) {	#
	# -------------------------------------------------------------- Verify Content
	#
	sub verifycontent {
	my $r=shift;
my $loaderror=&Apache::lonnet::overloaderror($r);	my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) { return $loaderror; }	if ($loaderror) { return $loaderror; }

Line 371 sub handler {	Line 506 sub handler {
}	}
}	}
&untiehash();	&untiehash();
} elsif ($ENV{'form.versions'}) {	$r->print('<h1>Done.</h1>');
$r->print('<html><head><title>Check Versions</title></head>'.	}

	# -------------------------------------------------------------- Check Versions

	sub checkversions {
	my $r=shift;
	$r->print('<html><head><title>Check Versions</title></head>'.
&Apache::loncommon::bodytag('Check Course Document Versions'));	&Apache::loncommon::bodytag('Check Course Document Versions'));
$hashtied=0;	$hashtied=0;
&tiehash();	&tiehash();
Line 405 sub handler {	Line 546 sub handler {
$seltext='since yesterday ('.localtime($starttime).')';	$seltext='since yesterday ('.localtime($starttime).')';
$daysel='selected';	$daysel='selected';
}	}

$r->print(<<ENDHEADERS);	$r->print(<<ENDHEADERS);
<form action="/adm/coursedocs" method="post">	<form action="/adm/coursedocs" method="post">
<select name="timerange">	<select name="timerange">
Line 458 ENDHEADERS	Line 599 ENDHEADERS
}	}
}	}
$r->print('</table>');	$r->print('</table>');
	$r->print('<h1>Done.</h1>');
} else {	} else {
$r->print('<p>No content modifications yet.</p>');	$r->print('<p>No content modifications yet.</p>');
}	}
&untiehash();	&untiehash();
	}

	# ================================================================ Main Handler
	sub handler {
	my $r = shift;
	$r->content_type('text/html');
	$r->send_http_header;
	return OK if $r->header_only;

	# --------------------------------------------- Initialize help topics for this
	foreach ('Adding_Course_Doc','Main_Course_Documents',
	'Adding_External_Resource','Navigate_Content',
	'Adding_Folders','Docs_Overview', 'Load_Map',
	'Supplemental', 'Score_Upload_Form',
	'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
	$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
	}
	# Composite help files
	$help{'Syllabus'} = &Apache::loncommon::help_open_topic(
	'Docs_About_Syllabus,Docs_Editing_Templated_Pages');
	$help{'Simple Page'} = &Apache::loncommon::help_open_topic(
	'Docs_About_Simple_Page,Docs_Editing_Templated_Pages');
	$help{'Bulletin Board'} = &Apache::loncommon::help_open_topic(
	'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
	$help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
	'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
	$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');

	if ($ENV{'form.verify'}) {
	&verifycontent($r);
	} elsif ($ENV{'form.versions'}) {
	&checkversions($r);
	} elsif ($ENV{'form.dumpcourse'}) {
	&dumpcourse($r);
} else {	} else {
# is this a standard course?	# is this a standard course?

Line 482 ENDHEADERS	Line 658 ENDHEADERS
$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);	$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);

# does this user have privileges to post, etc?	# does this user have privileges to post, etc?
$allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});	$allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
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;
$script='</script>'.&Apache::lonxml::registerurl(1,undef).'<script>';	$script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';
$events='onLoad="'.&Apache::lonxml::loadevents.	$events='onLoad="'.&Apache::lonmenu::loadevents.
'" onUnload="'.&Apache::lonxml::unloadevents.'"';	'" onUnload="'.&Apache::lonmenu::unloadevents.'"';
}	}

# get course data	# get course data
Line 536 function makenewext(targetname) {	Line 712 function makenewext(targetname) {
window.open('/adm/rat/extpickframe.html');	window.open('/adm/rat/extpickframe.html');
}	}

	function makeexamupload() {
	var title=prompt('Listed Title for the Uploaded Score');
	if (title) {
	this.document.forms.newexamupload.importdetail.value=
	title+'=/res/lib/templates/examupload.problem';
	this.document.forms.newexamupload.submit();
	}
	}

function makesmppage() {	function makesmppage() {
var title=prompt('Listed Title for the Page');	var title=prompt('Listed Title for the Page');
if (title) {	if (title) {
Line 545 function makesmppage() {	Line 730 function makesmppage() {
}	}
}	}

	function makesmpproblem() {
	var title=prompt('Listed Title for the Problem');
	if (title) {
	this.document.forms.newsmpproblem.importdetail.value=
	title+'=/res/lib/templates/simpleproblem.problem';
	this.document.forms.newsmpproblem.submit();
	}
	}

function makebulboard() {	function makebulboard() {
var title=prompt('Listed Title for the Bulletin Board');	var title=prompt('Listed Title for the Bulletin Board');
if (title) {	if (title) {
Line 572 function changename(folder,index,oldtitl	Line 766 function changename(folder,index,oldtitl
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
}	}
}	}

	function removeres(folder,index,oldtitle) {
	if ((oldtitle=='NO RESOURCE') \|\| (confirm('Remove "'+oldtitle+'"?'))) {
	this.document.forms.renameform.cmd.value='del_'+index;
	this.document.forms.renameform.folder.value=folder;
	this.document.forms.renameform.submit();
	}
	}
</script>	</script>

ENDNEWSCRIPT	ENDNEWSCRIPT
}	}
# -------------------------------------------------------------------- Body tag	# -------------------------------------------------------------------- Body tag
$r->print('</head>'.	$r->print('</head>'.
&Apache::loncommon::bodytag('Course Documents','',$events));	&Apache::loncommon::bodytag('Course Documents','',$events,
	'','',$showdoc));
unless ($showdoc) {	unless ($showdoc) {
if ($allowed) {	if ($allowed) {
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',	my $dumpbut=&dumpbutton();
'Editing the Table of Contents for your Course'));
$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" />
Line 594 ENDNEWSCRIPT	Line 796 ENDNEWSCRIPT
<input type="hidden" name="folder" />	<input type="hidden" name="folder" />
</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">
	<tr><td bgcolor="#DDDDCC">
<input type="submit" name="verify" value="Verify Content" />	<input type="submit" name="verify" value="Verify Content" />
	</td><td bgcolor="#DDDDCC">
<input type="submit" name="versions" value="Check Resource Versions" />	<input type="submit" name="versions" value="Check Resource Versions" />
	$dumpbut
	</td></tr></table>
</form>	</form>
ENDCOURSEVERIFY	ENDCOURSEVERIFY
	$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
	'Editing the Table of Contents for your Course'));
}	}
# --------------------------------------------------------- Standard documents	# --------------------------------------------------------- Standard documents
$r->print('<table border=2 cellspacing=4 cellpadding=4>');	$r->print('<table border=2 cellspacing=4 cellpadding=4>');
Line 606 ENDCOURSEVERIFY	Line 815 ENDCOURSEVERIFY
($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');	($allowed?' '.$help{'Main_Course_Documents'}:'').'</h2>');
my $folder=$ENV{'form.folder'};	my $folder=$ENV{'form.folder'};
unless ($folder=~/^default/) { $folder='default'; }	unless ($folder=~/^default/) { $folder='default'; }
	my $postexec='';
	if ($folder eq 'default') {
	$r->print('<script>this.window.name="loncapaclient";</script>');
	} else {
	$postexec='self.close();';
	}
$hadchanges=0;	$hadchanges=0;
&editor($r,$coursenum,$coursedom,$folder,$allowed);	&editor($r,$coursenum,$coursedom,$folder,$allowed);
if ($hadchanges) {	if ($hadchanges) {
$r->print('<form method="post" action="/adm/roles">'.	$r->print(
'<input type=hidden name=orgurl value="/adm/coursedocs" /><input type=hidden name=selectrole value=1 /><h3><font color="red">Changes will become active for your current session after <input type="submit" name="'.	'<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'.
$ENV{'request.role'}.'" value="re-initializing course" />, or the next time you log in.</font></h3></form>');	'<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">Changes will become active for your current session after <input type="hidden" name="'.
	$ENV{'request.role'}.'" value="1" /><input type="button" value="re-initializing course" onClick="reinit(this.form)"/>, or the next time you log in.'.
	$help{'Caching'}.'</font></h3></form>');
}	}
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.	my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';	'.sequence';
Line 625 $ENV{'request.role'}.'" value="re-initia	Line 843 $ENV{'request.role'}.'" value="re-initia
<tr><td bgcolor="#DDDDDD">	<tr><td bgcolor="#DDDDDD">
File:<br />	File:<br />
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
<input type="file" name="uploaddoc" size="50">	<input type="file" name="uploaddoc" size="40">
<br />	<br />
Title:<br />	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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<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="Upload Document">	<input type="submit" value="Upload Document">
$help{'Uploading_From_Harddrive'}</form>	<nobr>
	$help{'Uploading_From_Harddrive'}
	</nobr>
	</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="foldername" value="$ENV{'form.foldername'}">
<input type=button onClick=	<input type=button onClick=
"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="Search">	"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="Search">
	<nobr>
<input type=button onClick=	<input type=button onClick=
"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="Import">	"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="Import">
$help{'Importing_LON-CAPA_Resource'}</form>	$help{'Importing_LON-CAPA_Resource'}
	</nobr>
	<p>
	<hr />
	<input type="text" size="20" name="importmap"><br />
	<nobr><input type=button
	onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
	value="Select Map"> <input type="submit" name="loadmap" value="Load Map">
	$help{'Load_Map'}</nobr>
	</p>
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
	<nobr>
<input name="newfolder" type="button"	<input name="newfolder" type="button"
onClick="javascript:makenewfolder(this.form,'$folderseq');"	onClick="javascript:makenewfolder(this.form,'$folderseq');"
value="New Folder" /> $help{'Adding_Folders'}	value="New Folder" />$help{'Adding_Folders'}
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
	<nobr>
<input name="newext" type="button" onClick="javascript:makenewext('newext');"	<input name="newext" type="button" onClick="javascript:makenewext('newext');"
value="External Resource" /> $help{'Adding_External_Resource'}	value="External Resource" /> $help{'Adding_External_Resource'}
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<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>
<input name="newsyl" type="submit" value="Syllabus" />	<input name="newsyl" type="submit" value="Syllabus" />
$help{'Creating_From_Template'}</form>	$help{'Syllabus'}
	</nobr>
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<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>
<input name="newnav" type="submit" value="Navigate Content" />	<input name="newnav" type="submit" value="Navigate Content" />
$help{'Navigate_Content'}	$help{'Navigate_Content'}
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
	<nobr>
<input name="newsmppg" type="button" value="Simple Page"	<input name="newsmppg" type="button" value="Simple Page"
onClick="javascript:makesmppage();" /> $help{'Creating_From_Template'}	onClick="javascript:makesmppage();" /> $help{'Simple Page'}
	</nobr>
	</form>
	<form action="/adm/coursedocs" method="post" name="newsmpproblem">
	<input type="hidden" name="folder" value="$folder">
	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
	<input type=hidden name="importdetail" value="">
	<nobr>
	<input name="newsmpproblem" type="button" value="Simple Problem"
	onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}
	</nobr>
	</form>
	<form action="/adm/coursedocs" method="post" name="newexamupload">
	<input type="hidden" name="folder" value="$folder">
	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
	<input type=hidden name="importdetail" value="">
	<nobr>
	<input name="newexamupload" type="button" value="Score Upload Form"
	onClick="javascript:makeexamupload();" />
	$help{'Score_Upload_Form'}
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
	<nobr>
<input name="newbulletin" type="button" value="Bulletin Board"	<input name="newbulletin" type="button" value="Bulletin Board"
onClick="javascript:makebulboard();" />	onClick="javascript:makebulboard();" />
$help{'Creating_From_Template'}</form>	$help{'Bulletin Board'}
	</nobr>
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<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>
<input name="newaboutme" type="submit" value="My Personal Info" />	<input name="newaboutme" type="submit" value="My Personal Info" />
$help{'Creating_From_Template'}</form>	$help{'My Personal Info'}
	</nobr>
	</form>
</td></tr>	</td></tr>
</table>	</table>
ENDFORM	ENDFORM
Line 720 ENDFORM	Line 990 ENDFORM
</tr>	</tr>
<tr><td bgcolor="#DDDDDD">	<tr><td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
<input type="file" name="uploaddoc" size="50">	<input type="file" name="uploaddoc" size="40">
<br />Comment:<br />	<br />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">	<input type="hidden" name="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type="hidden" name="cmd" value="upload_supplemental">	<input type="hidden" name="cmd" value="upload_supplemental">
	<nobr>
<input type="submit" value="Upload Document">	<input type="submit" value="Upload Document">
$help{'Uploading_From_Harddrive'}</form>	$help{'Uploading_From_Harddrive'}
	</nobr>
	</form>
</td>	</td>
<td bgcolor="#DDDDDD">	<td bgcolor="#DDDDDD">
<form action="/adm/coursedocs" method="post" name="simpleeditsupplement">	<form action="/adm/coursedocs" method="post" name="simpleeditsupplement">
	<input type="hidden" name="folder" value="$folder">
	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
<input type=button onClick=	<input type=button onClick=
"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="Search">	"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="Search">
<input type=button onClick=	<input type=button onClick=
"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="Import">$help{'Importing_LON-CAPA_Resource'}	"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="Import">$help{'Importing_LON-CAPA_Resource'}
	<p>
	<hr />
	<input type="text" size="20" name="importmap">
	<input type=button
	onClick="javascript:openbrowser('simpleeditsupplement','importmap','sequence,page','')"
	value="Select Map"><input type="submit" name="loadmap" value="Load Map">
	</p>
</form>	</form>
</td><td bgcolor="#DDDDDD">	</td><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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
	<nobr>
<input name="newfolder" type="button"	<input name="newfolder" type="button"
onClick="javascript:makenewfolder(this.form,'$folderseq');"	onClick="javascript:makenewfolder(this.form,'$folderseq');"
value="New Folder" /> $help{'Adding_Folders'}	value="New Folder" /> $help{'Adding_Folders'}
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">
<input type=hidden name="importdetail" value="">	<input type=hidden name="importdetail" value="">
	<nobr>
<input name="newext" type="button"	<input name="newext" type="button"
onClick="javascript:makenewext('supnewext');"	onClick="javascript:makenewext('supnewext');"
value="External Resource" /> $help{'Adding_External_Resource'}	value="External Resource" /> $help{'Adding_External_Resource'}
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<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>
<input name="newsyl" type="submit" value="Syllabus" />	<input name="newsyl" type="submit" value="Syllabus" />
$help{'Creating_From_Template'}</form>	$help{'Syllabus'}
	</nobr>
	</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="folder" value="$folder">
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<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>
<input name="newaboutme" type="submit" value="My Personal Info" />	<input name="newaboutme" type="submit" value="My Personal Info" />
$help{'Creating_From_Template'}</form>	$help{'My Personal Info'}
	</nobr>
	</form>
</td></tr>	</td></tr>
</table></td></tr>	</table></td></tr>
ENDSUPFORM	ENDSUPFORM

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

Removed from v.1.47
changed lines
	Added in v.1.77