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.123 and 1.124

version 1.123, 2004/05/06 17:55:03	version 1.124, 2004/05/06 18:28:16
Line 321 sub editor {	Line 321 sub editor {
&Apache::lonratedt::delparameter($idx,'parameter_encrypturl');	&Apache::lonratedt::delparameter($idx,'parameter_encrypturl');
}	}

($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence');
if ($fatal) {
$r->print('<p><font color="red">'.$errtext.'</font></p>');
return;
}
if ($ENV{'form.newpos'}) {	if ($ENV{'form.newpos'}) {
# change order	# change order

my $newpos=$ENV{'form.newpos'}-1;	my $newpos=$ENV{'form.newpos'}-1;
$r->print('Sorting '.$idx.' -> '.$newpos);	my $currentpos=$ENV{'form.currentpos'}-1;
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence');	$r->print('Sorting '.$idx.': '.$currentpos.' -> '.$newpos);
if ($fatal) {
$r->print('<p><font color="red">'.$errtext.'</font></p>');
return;
}

}	}
	# store the changed version

	($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence');
	if ($fatal) {
	$r->print('<p><font color="red">'.$errtext.'</font></p>');
	return;
	}

}	}

# upload a file, if present	# upload a file, if present
if (($ENV{'form.uploaddoc.filename'}) &&	if (($ENV{'form.uploaddoc.filename'}) &&
($ENV{'form.cmd'}=~/^upload_(\w+)/)) {	($ENV{'form.cmd'}=~/^upload_(\w+)/)) {
Line 499 sub entryline {	Line 496 sub entryline {
my $selectbox='';	my $selectbox='';
if ($folder!~/^supplemental/) {	if ($folder!~/^supplemental/) {
$selectbox=	$selectbox=
	'<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
'<select name="newpos" onChange="this.form.submit()">';	'<select name="newpos" onChange="this.form.submit()">';
for (my $i=1;$i<=$#Apache::lonratedt::order+1;$i++) {	for (my $i=1;$i<=$#Apache::lonratedt::order+1;$i++) {
if ($i==$incindex) {	if ($i==$incindex) {

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

Removed from v.1.123
changed lines
	Added in v.1.124