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

version 1.80, 2003/09/17 21:20:15	version 1.81, 2003/09/17 23:40:25
Line 38 use Apache::lonxml;	Line 38 use Apache::lonxml;
use Apache::loncreatecourse;	use Apache::loncreatecourse;
use HTML::Entities;	use HTML::Entities;
use GDBM_File;	use GDBM_File;
	use Apache::lonlocal;

my $iconpath;	my $iconpath;

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

Line 185 sub dumpcourse {	Line 187 sub dumpcourse {
# Input form	# Input form
unless ($home==1) {	unless ($home==1) {
$r->print(	$r->print(
'<h3>Select the Construction Space</h3><select name="authorspace">');	'<h3>'.&mt('Select the Construction Space').'</h3><select name="authorspace">');
}	}
foreach (sort keys %outhash) {	foreach (sort keys %outhash) {
if ($_=~/^home_(.+)$/) {	if ($_=~/^home_(.+)$/) {
Line 203 sub dumpcourse {	Line 205 sub dumpcourse {
my $title=$origcrsdata{'description'};	my $title=$origcrsdata{'description'};
$title=~s/\s+/\_/gs;	$title=~s/\s+/\_/gs;
$title=~s/\W//gs;	$title=~s/\W//gs;
$r->print('<h3>Folder in Construction Space</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');	$r->print('<h3>'.&mt('Folder in Construction Space').'</h3><input type="text" size="50" name="authorfolder" value="'.$title.'" /><br />');
&tiehash();	&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>');	$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')) {	foreach (&Apache::loncreatecourse::crsdirlist($origcrsid,'userfiles')) {
$r->print('<tr><td>'.$_.'</td>');	$r->print('<tr><td>'.$_.'</td>');
my ($ext)=($_=~/\.(\w+)$/);	my ($ext)=($_=~/\.(\w+)$/);
Line 223 sub dumpcourse {	Line 225 sub dumpcourse {
$r->print("</table>\n");	$r->print("</table>\n");
&untiehash();	&untiehash();
$r->print(	$r->print(
'<p><input type="submit" name="dumpcourse" value="Dump Course DOCS" /></p></form>');	'<p><input type="submit" name="dumpcourse" value="'.&mt('Dump Course DOCS').'" /></p></form>');
}	}
}	}

Line 559 sub verifycontent {	Line 561 sub verifycontent {
}	}
}	}
&untiehash();	&untiehash();
$r->print('<h1>Done.</h1>');	$r->print('<h1>'.&mt('Done').'.</h1>');
}	}

# -------------------------------------------------------------- Check Versions	# -------------------------------------------------------------- Check Versions
Line 652 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();
}	}
Line 666 sub handler {	Line 668 sub handler {
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

	&Apache::lonlocal::clearreroutetrans();
# --------------------------------------------- Initialize help topics for this	# --------------------------------------------- Initialize help topics for this
foreach ('Adding_Course_Doc','Main_Course_Documents',	foreach ('Adding_Course_Doc','Main_Course_Documents',
'Adding_External_Resource','Navigate_Content',	'Adding_External_Resource','Navigate_Content',
Line 836 ENDNEWSCRIPT	Line 839 ENDNEWSCRIPT
&Apache::loncommon::bodytag('Course Documents','',$events,	&Apache::loncommon::bodytag('Course Documents','',$events,
'','',$showdoc));	'','',$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) {
my $dumpbut=&dumpbutton();	my $dumpbut=&dumpbutton();
$r->print(<<ENDCOURSEVERIFY);	$r->print(<<ENDCOURSEVERIFY);
Line 864 ENDCOURSEVERIFY	Line 889 ENDCOURSEVERIFY
# --------------------------------------------------------- Standard documents	# --------------------------------------------------------- Standard documents
$r->print('<table border=2 cellspacing=4 cellpadding=4>');	$r->print('<table border=2 cellspacing=4 cellpadding=4>');
if (($standard) && ($allowed) && (!$forcesupplement)) {	if (($standard) && ($allowed) && (!$forcesupplement)) {
$r->print('<tr><td bgcolor="#BBBBBB"><h2>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 880 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 903 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 914 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 925 $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 937 $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 946 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 955 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 965 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 974 $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 983 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 992 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 1002 $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 1013 $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 1025 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 1037 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 1051 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 1062 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 1081 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 1091 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 1100 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 1110 $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 1125 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.80
changed lines
	Added in v.1.81