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.71 and 1.81

version 1.71, 2003/08/05 12:47:21	version 1.81, 2003/09/17 23:40:25
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;
	use Apache::lonlocal;

my $iconpath;	my $iconpath;

Line 72 sub storemap {	Line 74 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="'.
	&mt('Dump Course DOCS to Construction Space').'" />';
	} else {
	return'</td><td bgcolor="#DDDDCC">'.
	&mt('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>'.&mt('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>'.&mt('Folder in Construction Space').'</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
	&tiehash();
	$r->print('<h3>'.&mt('Filenames in Construction Space').'</h3><table border="2"><tr><th>'.&mt('Internal Filename').'</th><th>'.&mt('Title').'</th><th>'.&mt('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="'.&mt('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 339 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 368 sub checkonthis {	Line 540 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', 'Load_Map',	sub verifycontent {
'Supplemental', 'Score_Upload_Form',	my $r=shift;
'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'}) {

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

Line 411 sub handler {	Line 561 sub handler {
}	}
}	}
&untiehash();	&untiehash();
$r->print('<h1>Done.</h1>');	$r->print('<h1>'.&mt('Done').'.</h1>');
} elsif ($ENV{'form.versions'}) {	}
$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 446 sub handler {	Line 601 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 499 ENDHEADERS	Line 654 ENDHEADERS
}	}
}	}
$r->print('</table>');	$r->print('</table>');
$r->print('<h1>Done.</h1>');	$r->print('<h1>'.&mt('Done').'.</h1>');
} else {	} else {
$r->print('<p>No content modifications yet.</p>');	$r->print('<p>'.&mt('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;

	&Apache::lonlocal::clearreroutetrans();
	# --------------------------------------------- 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 513 ENDHEADERS	Line 703 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 525 ENDHEADERS	Line 714 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 535 ENDHEADERS	Line 724 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 648 ENDNEWSCRIPT	Line 836 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) {
	# -----------------------------------------------------------------------------
	my %lt=&Apache::lonlocal::texthash(
	'uplm' => 'Upload a new main course document',
	'upls' => 'Upload a new supplemental course document',
	'impp' => 'Import a published document',
	'spec' => 'Special documents',
	'upld' => 'Upload Document',
	'srch' => 'Search',
	'impo' => 'Import',
	'selm' => 'Select Map',
	'load' => 'Load Map',
	'newf' => 'New Folder',
	'extr' => 'External Resource',
	'syll' => 'Syllabus',
	'navc' => 'Navigate Contents',
	'sipa' => 'Simple Page',
	'sipr' => 'Simple Problem',
	'scuf' => 'Score Upload Form',
	'bull' => 'Bulletin Board',
	'mypi' => 'My Personal Info'
	);
	# -----------------------------------------------------------------------------
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 665 ENDNEWSCRIPT	Line 874 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>');
if (($standard) && ($allowed) && (!$forcesupplement)) {	if (($standard) && ($allowed) && (!$forcesupplement)) {
$r->print('<tr><td bgcolor="#BBBBBB"><h2>Main Course Documents'.	$r->print('<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Main Course Documents').
($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'; }
Line 689 ENDCOURSEVERIFY	Line 905 ENDCOURSEVERIFY
$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">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">'.
$ENV{'request.role'}.'" value="1" /><input type="button" value="re-initializing course" onClick="reinit(this.form)"/>, or the next time you log in.'.	&mt('Changes will become active for your current session after').
	' <input type="hidden" name="'.
	$ENV{'request.role'}.'" value="1" /><input type="button" value="'.
	&mt('re-initializing course').'" onClick="reinit(this.form)"/>'.&mt(', or the next time you log in.').
$help{'Caching'}.'</font></h3></form>');	$help{'Caching'}.'</font></h3></form>');
}	}
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.	my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';	'.sequence';

$r->print(<<ENDFORM);	$r->print(<<ENDFORM);
<table cellspacing=4 cellpadding=4><tr>	<table cellspacing=4 cellpadding=4><tr>
<th bgcolor="#DDDDDD">Upload a new main course document</th>	<th bgcolor="#DDDDDD">$lt{'uplm'}</th>
<th bgcolor="#DDDDDD">Import a published document</th>	<th bgcolor="#DDDDDD">$lt{'impp'}</th>
<th bgcolor="#DDDDDD">Special documents</th>	<th bgcolor="#DDDDDD">$lt{'spec'}</th>
</tr>	</tr>
<tr><td bgcolor="#DDDDDD">	<tr><td bgcolor="#DDDDDD">
File:<br />	File:<br />
Line 712 Title:<br />	Line 930 Title:<br />
<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="$lt{'upld'}">
<nobr>	<nobr>
$help{'Uploading_From_Harddrive'}	$help{'Uploading_From_Harddrive'}
</nobr>	</nobr>
Line 723 Title:<br />	Line 941 Title:<br />
<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=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="$lt{'srch'}">
<nobr>	<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="$lt{'impo'}">
$help{'Importing_LON-CAPA_Resource'}	$help{'Importing_LON-CAPA_Resource'}
</nobr>	</nobr>
<p>	<p>
Line 734 $help{'Importing_LON-CAPA_Resource'}	Line 952 $help{'Importing_LON-CAPA_Resource'}
<input type="text" size="20" name="importmap"><br />	<input type="text" size="20" name="importmap"><br />
<nobr><input type=button	<nobr><input type=button
onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"	onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
value="Select Map"> <input type="submit" name="loadmap" value="Load Map">	value="$lt{'selm'}"> <input type="submit" name="loadmap" value="$lt{'load'}">
$help{'Load_Map'}</nobr>	$help{'Load_Map'}</nobr>
</p>	</p>
</form>	</form>
Line 746 $help{'Load_Map'}</nobr>	Line 964 $help{'Load_Map'}</nobr>
<nobr>	<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="$lt{'newf'}" />$help{'Adding_Folders'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newext">	<form action="/adm/coursedocs" method="post" name="newext">
Line 755 value="New Folder" />$help{'Adding_Folde	Line 973 value="New Folder" />$help{'Adding_Folde
<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');"
value="External Resource" /> $help{'Adding_External_Resource'}	value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="newsyl">	<form action="/adm/coursedocs" method="post" name="newsyl">
Line 764 value="External Resource" /> $help{'Addi	Line 982 value="External Resource" /> $help{'Addi
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="Syllabus=/public/$coursedom/$coursenum/syllabus">	value="Syllabus=/public/$coursedom/$coursenum/syllabus">
<nobr>	<nobr>
<input name="newsyl" type="submit" value="Syllabus" />	<input name="newsyl" type="submit" value="$lt{'syll'}" />
$help{'Syllabus'}	$help{'Syllabus'}
</nobr>	</nobr>
</form>	</form>
Line 774 value="Syllabus=/public/$coursedom/$cour	Line 992 value="Syllabus=/public/$coursedom/$cour
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="Navigate Content=/adm/navmaps">	value="Navigate Content=/adm/navmaps">
<nobr>	<nobr>
<input name="newnav" type="submit" value="Navigate Content" />	<input name="newnav" type="submit" value="$lt{'navc'}" />
$help{'Navigate_Content'}	$help{'Navigate_Content'}
</nobr>	</nobr>
</form>	</form>
Line 783 $help{'Navigate_Content'}	Line 1001 $help{'Navigate_Content'}
<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>	<nobr>
<input name="newsmppg" type="button" value="Simple Page"	<input name="newsmppg" type="button" value="$lt{'sipa'}"
onClick="javascript:makesmppage();" /> $help{'Simple Page'}	onClick="javascript:makesmppage();" /> $help{'Simple Page'}
</nobr>	</nobr>
</form>	</form>
Line 792 onClick="javascript:makesmppage();" /> $	Line 1010 onClick="javascript:makesmppage();" /> $
<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>	<nobr>
<input name="newsmpproblem" type="button" value="Simple Problem"	<input name="newsmpproblem" type="button" value="$lt{'sipr'}"
onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}	onClick="javascript:makesmpproblem();" />$help{'Simple Problem'}
</nobr>	</nobr>
</form>	</form>
Line 801 onClick="javascript:makesmpproblem();" /	Line 1019 onClick="javascript:makesmpproblem();" /
<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>	<nobr>
<input name="newexamupload" type="button" value="Score Upload Form"	<input name="newexamupload" type="button" value="$lt{'scuf'}"
onClick="javascript:makeexamupload();" />	onClick="javascript:makeexamupload();" />
$help{'Score_Upload_Form'}	$help{'Score_Upload_Form'}
</nobr>	</nobr>
Line 811 $help{'Score_Upload_Form'}	Line 1029 $help{'Score_Upload_Form'}
<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>	<nobr>
<input name="newbulletin" type="button" value="Bulletin Board"	<input name="newbulletin" type="button" value="$lt{'bull'}"
onClick="javascript:makebulboard();" />	onClick="javascript:makebulboard();" />
$help{'Bulletin Board'}	$help{'Bulletin Board'}
</nobr>	</nobr>
Line 822 $help{'Bulletin Board'}	Line 1040 $help{'Bulletin Board'}
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme">	value="$plainname=/adm/$udom/$uname/aboutme">
<nobr>	<nobr>
<input name="newaboutme" type="submit" value="My Personal Info" />	<input name="newaboutme" type="submit" value="$lt{'mypi'}" />
$help{'My Personal Info'}	$help{'My Personal Info'}
</nobr>	</nobr>
</form>	</form>
Line 834 ENDFORM	Line 1052 ENDFORM
# ----------------------------------------------------- Supplemental documents	# ----------------------------------------------------- Supplemental documents
if (!$forcestandard) {	if (!$forcestandard) {
$r->print(	$r->print(
'<tr><td bgcolor="#BBBBBB"><h2>Supplemental Course Documents'.	'<tr><td bgcolor="#BBBBBB"><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'; }
Line 846 ENDFORM	Line 1064 ENDFORM

$r->print(<<ENDSUPFORM);	$r->print(<<ENDSUPFORM);
<table cellspacing=4 cellpadding=4><tr>	<table cellspacing=4 cellpadding=4><tr>
<th bgcolor="#DDDDDD">Upload a new supplemental course document</th>	<th bgcolor="#DDDDDD">$lt{'upls'}</th>
<th bgcolor="#DDDDDD">Import a published document</th>	<th bgcolor="#DDDDDD">$lt{'impp'}</th>
<th bgcolor="#DDDDDD">Special documents</th>	<th bgcolor="#DDDDDD">$lt{'spec'}</th>
</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">
Line 860 ENDFORM	Line 1078 ENDFORM
<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>	<nobr>
<input type="submit" value="Upload Document">	<input type="submit" value="$lt{'upld'}">
$help{'Uploading_From_Harddrive'}	$help{'Uploading_From_Harddrive'}
</nobr>	</nobr>
</form>	</form>
Line 871 ENDFORM	Line 1089 ENDFORM
<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="">
<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="$lt{'srch'}">
<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="$lt{'impo'}">$help{'Importing_LON-CAPA_Resource'}
<p>	<p>
<hr />	<hr />
<input type="text" size="20" name="importmap">	<input type="text" size="20" name="importmap">
Line 890 value="Select Map"><input type="submit"	Line 1108 value="Select Map"><input type="submit"
<nobr>	<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="$lt{'newf'}" /> $help{'Adding_Folders'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="supnewext">	<form action="/adm/coursedocs" method="post" name="supnewext">
Line 900 value="New Folder" /> $help{'Adding_Fold	Line 1118 value="New Folder" /> $help{'Adding_Fold
<nobr>	<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="$lt{'extr'}" /> $help{'Adding_External_Resource'}
</nobr>	</nobr>
</form>	</form>
<form action="/adm/coursedocs" method="post" name="supnewsyl">	<form action="/adm/coursedocs" method="post" name="supnewsyl">
Line 909 value="External Resource" /> $help{'Addi	Line 1127 value="External Resource" /> $help{'Addi
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="Syllabus=/public/$coursedom/$coursenum/syllabus">	value="Syllabus=/public/$coursedom/$coursenum/syllabus">
<nobr>	<nobr>
<input name="newsyl" type="submit" value="Syllabus" />	<input name="newsyl" type="submit" value="$lt{'syll'}" />
$help{'Syllabus'}	$help{'Syllabus'}
</nobr>	</nobr>
</form>	</form>
Line 919 $help{'Syllabus'}	Line 1137 $help{'Syllabus'}
<input type=hidden name="importdetail"	<input type=hidden name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme">	value="$plainname=/adm/$udom/$uname/aboutme">
<nobr>	<nobr>
<input name="newaboutme" type="submit" value="My Personal Info" />	<input name="newaboutme" type="submit" value="$lt{'mypi'}" />
$help{'My Personal Info'}	$help{'My Personal Info'}
</nobr>	</nobr>
</form>	</form>
Line 934 ENDSUPFORM	Line 1152 ENDSUPFORM
$r->print('</table>');	$r->print('</table>');
} else {	} else {
# -------------------------------------------------------- This is showdoc mode	# -------------------------------------------------------- This is showdoc mode
$r->print("<h1>Uploaded Document</h1><p>It is recommended that you use an up-to-date virus scanner before handling this file.</p><p><table>".	$r->print("<h1>".&mt('Uploaded Document').'</h1><p>'.
&entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'</table></p>');	&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>');
}	}
}	}
$r->print('</body></html>');	$r->print(&Apache::lonlocal::endreroutetrans().'</body></html>');
return OK;	return OK;
}	}

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

Removed from v.1.71
changed lines
	Added in v.1.81