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.49 and 1.53

version 1.49, 2003/02/14 19:35:54	version 1.53, 2003/05/01 02:20:17
Line 179 sub editor {	Line 179 sub editor {
# Store the changed version	# Store the changed version
&storemap($coursenum,$coursedom,$folder.'.sequence');	&storemap($coursenum,$coursedom,$folder.'.sequence');
}	}
	# 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 202 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 212 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 249 END	Line 263 END
}	}
}	}
$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;	$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
	if ($residx) {
	$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='.	if ($isfolder) { $url.='&foldername='.
&Apache::lonnet::escape($foldertitle); }	&Apache::lonnet::escape($foldertitle); }
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.	$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.
Line 610 ENDCOURSEVERIFY	Line 634 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.</font></h3></form>');
}	}
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.	my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';	'.sequence';
Line 641 Title:<br />	Line 673 Title:<br />
</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">
<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'}<br />
	<input type="text" size="20" name="importmap">
	<input type=button
	onClick="javascript:openbrowser('simpleeditdefault','importmap','sequence,page','')"
	value="Browse"><input type="submit" name="loadmap" value="Load Map">
	</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">
Line 736 ENDFORM	Line 775 ENDFORM
</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'}
	<br />
	<input type="text" size="20" name="importmap">
	<input type=button
	onClick="javascript:openbrowser('simpleeditsupplement','importmap','sequence,page','')"
	value="Browse"><input type="submit" name="loadmap" value="Load Map">
</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">

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

Removed from v.1.49
changed lines
	Added in v.1.53