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.56 and 1.80

version 1.56, 2003/05/21 00:48:27	version 1.80, 2003/09/17 21:20:15
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'});
	$r->print('<h3>Copying Files</h3>');
	my $title=$ENV{'form.authorfolder'};
	$title=~s/[^\w\/]+/\_/g;
	my %replacehash=();
	foreach (keys %ENV) {
	if ($_=~/^form\.namefor\_(.+)/) {
	$replacehash{$1}=$ENV{$_};
	}
	}
	my $crs='/uploaded/'.$ENV{'request.course.id'}.'/';
	$crs=~s/\_/\//g;
	foreach (keys %replacehash) {
	my $newfilename=$title.'/'.$replacehash{$_};
	$newfilename=~s/[^\w\/\.]+/\_/g;
	my @dirs=split(/\//,$newfilename);
	my $path='/home/'.$ca.'/public_html';
	my $makepath=$path;
	my $fail=0;
	for (my $i=0;$i<$#dirs;$i++) {
	$makepath.='/'.$dirs[$i];
	unless (-e $makepath) {
	unless(mkdir($makepath,0777)) { $fail=1; }
	}
	}
	$r->print('<br /><tt>'.$_.'</tt> => <tt>'.$newfilename.'</tt>: ');
	if (my $fh=Apache::File->new('>'.$path.'/'.$newfilename)) {
	if ($_=~/\.(sequence\|page\|html\|htm\|xml\|xhtml)$/) {
	print $fh &Apache::loncreatecourse::rewritefile(
	&Apache::loncreatecourse::readfile($ENV{'request.course.id'},$_),
	(%replacehash,$crs => '')
	);
	} else {
	print $fh
	&Apache::loncreatecourse::readfile($ENV{'request.course.id'},$_);
	}
	$fh->close();
	} else {
	$fail=1;
	}
	if ($fail) {
	$r->print('<font color="red">fail</font>');
	} else {
	$r->print('<font color="green">ok</font>');
	}
	}
	} 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();
	$r->print('<h3>Filenames in Construction Space</h3><table border="2"><tr><th>Internal Filename</th><th>Title</th><th>Save as ...</th></tr>');
	foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) {
	$r->print('<tr><td>'.$_.'</td>');
	my ($ext)=($_=~/\.(\w+)$/);
	my $title=$hash{'title_'.$hash{
	'ids_/uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/'.$_}};
	$r->print('<td>'.($title?$title:' ').'</td>');
	unless ($title) {
	$title=$_;
	}
	$title=~s/\.(\w+)$//;
	$title=~s/\W+/\_/gs;
	$title.='.'.$ext;
	$r->print("\n<td><input type='text' size='60' name='namefor_".$_."' value='".$title."' /></td></tr>\n");
	}
	$r->print("</table>\n");
	&untiehash();
	$r->print(
	'<p><input type="submit" name="dumpcourse" value="Dump Course DOCS" /></p></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.'.sequence');
	}

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 337 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	# Loading a complete map
if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) {	if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) {
Line 265 END	Line 435 END
}	}
}	}
$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;	$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
if ($residx) {	if (($residx) && ($folder!~/supplemental/)) {
$url.=(($url=~/\?/)?'&':'?').'symb='.	$url.=(($url=~/\?/)?'&':'?').'symb='.
&Apache::lonnet::escape(&Apache::lonnet::symbclean(	&Apache::lonnet::escape(&Apache::lonnet::symbclean(
&Apache::lonnet::declutter('uploaded/'.	&Apache::lonnet::declutter('uploaded/'.
Line 329 sub checkonthis {	Line 499 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 365 sub checkonthis {	Line 538 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',	# -------------------------------------------------------------- Verify Content
'Adding_External_Resource','Navigate_Content',	#
'Adding_Folders','Docs_Overview',	sub verifycontent {
'Creating_From_Template','Supplemental',	my $r=shift;
'Importing_LON-CAPA_Resource','Uploading_From_Harddrive') {
$help{$_}=&Apache::loncommon::help_open_topic('Docs_'.$_);
}

if ($ENV{'form.verify'}) {

my $loaderror=&Apache::lonnet::overloaderror($r);	my $loaderror=&Apache::lonnet::overloaderror($r);
if ($loaderror) { return $loaderror; }	if ($loaderror) { return $loaderror; }

Line 398 sub handler {	Line 559 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 432 sub handler {	Line 599 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 485 ENDHEADERS	Line 652 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 498 ENDHEADERS	Line 700 ENDHEADERS
my $script='';	my $script='';
my $allowed;	my $allowed;
my $events='';	my $events='';
my $buttons='';
my $showdoc=0;	my $showdoc=0;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['folder','foldername']);	['folder','foldername']);
Line 510 ENDHEADERS	Line 711 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');
Line 520 ENDHEADERS	Line 721 ENDHEADERS
$script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';	$script='</script>'.&Apache::lonmenu::registerurl(1,undef).'<script>';
$events='onLoad="'.&Apache::lonmenu::loadevents.	$events='onLoad="'.&Apache::lonmenu::loadevents.
'" onUnload="'.&Apache::lonmenu::unloadevents.'"';	'" onUnload="'.&Apache::lonmenu::unloadevents.'"';
$buttons=&Apache::lonmenu::menubuttons(1,undef);
}	}

# get course data	# get course data
Line 539 ENDHEADERS	Line 739 ENDHEADERS
$iconpath = $r->dir_config('lonIconsURL') . "/";	$iconpath = $r->dir_config('lonIconsURL') . "/";

my $now=time;	my $now=time;
#
# FIXME: hack to disable new problem
#
my $noeggforyou='';
unless ($ENV{'user.debug'}) {
$noeggforyou='alert("Sorry, not implemented yet."); return 0;';
}
# print screen	# print screen
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	<html>
Line 571 function makenewext(targetname) {	Line 765 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 581 function makesmppage() {	Line 784 function makesmppage() {
}	}

function makesmpproblem() {	function makesmpproblem() {
$noeggforyou
var title=prompt('Listed Title for the Problem');	var title=prompt('Listed Title for the Problem');
if (title) {	if (title) {
this.document.forms.newsmpproblem.importdetail.value=	this.document.forms.newsmpproblem.importdetail.value=
title+'=/adm/wrapper/uploaded/$udom/$uname/$now.problem';	title+'=/res/lib/templates/simpleproblem.problem';
this.document.forms.newsmpproblem.submit();	this.document.forms.newsmpproblem.submit();
}	}
}	}
Line 619 function changename(folder,index,oldtitl	Line 821 function changename(folder,index,oldtitl
}	}

function removeres(folder,index,oldtitle) {	function removeres(folder,index,oldtitle) {
if (confirm('Remove "'+oldtitle+'"?')) {	if ((oldtitle=='NO RESOURCE') \|\| (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.folder.value=folder;
this.document.forms.renameform.submit();	this.document.forms.renameform.submit();
Line 631 ENDNEWSCRIPT	Line 833 ENDNEWSCRIPT
}	}
# -------------------------------------------------------------------- Body tag	# -------------------------------------------------------------------- Body tag
$r->print('</head>'.	$r->print('</head>'.
&Apache::loncommon::bodytag('Course Documents','',$events).	&Apache::loncommon::bodytag('Course Documents','',$events,
$buttons);	'','',$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 648 ENDNEWSCRIPT	Line 849 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 673 ENDCOURSEVERIFY	Line 881 ENDCOURSEVERIFY
'<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">Changes will become active for your current session after <input type="hidden" name="'.	'<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.</font></h3></form>');	$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 687 $ENV{'request.role'}.'" value="1" /><inp	Line 896 $ENV{'request.role'}.'" value="1" /><inp
<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">
Line 703 Title:<br />	Line 915 Title:<br />
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}">	<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'}<br />	$help{'Importing_LON-CAPA_Resource'}
<input type="text" size="20" name="importmap">	</nobr>
<input type=button	<p>
	<hr />
	<input type="text" size="20" name="importmap"><br />
	<nobr><input type=button
onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"	onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
value="Browse"><input type="submit" name="loadmap" value="Load Map">	value="Select Map"> <input type="submit" name="loadmap" value="Load Map">
	$help{'Load_Map'}</nobr>
	</p>
</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="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>
<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="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="newsmpproblem" type="button" value="Simple Problem"	<input name="newsmpproblem" type="button" value="Simple Problem"
onClick="javascript:makesmpproblem();" /> $help{'Creating_From_Template'}	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 796 ENDFORM	Line 1043 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">
Line 815 ENDFORM	Line 1065 ENDFORM
"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'}
<br />	<p>
	<hr />
<input type="text" size="20" name="importmap">	<input type="text" size="20" name="importmap">
<input type=button	<input type=button
onClick="javascript:openbrowser('simpleeditsupplement','importmap','sequence,page','')"	onClick="javascript:openbrowser('simpleeditsupplement','importmap','sequence,page','')"
value="Browse"><input type="submit" name="loadmap" value="Load Map">	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.56
changed lines
	Added in v.1.80