loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.476, 2012/01/31 23:47:15	version 1.477, 2012/02/28 02:02:16
Line 26	Line 26
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#



package Apache::londocs;	package Apache::londocs;

use strict;	use strict;
Line 1121 sub process_file_upload {	Line 1119 sub process_file_upload {
newidx => $newidx,	newidx => $newidx,
position => $position,	position => $position,
phase => $nextphase,	phase => $nextphase,
	comment => $comment,
);	);
$$upload_output = $showupload.	$$upload_output = $showupload.
&Apache::loncommon::decompress_form($mimetype,	&Apache::loncommon::decompress_form($mimetype,
Line 2974 sub decompression_info {	Line 2973 sub decompression_info {
if ($env{'form.newidx'}) {	if ($env{'form.newidx'}) {
$hiddenelem .= '<input type="hidden" name="newidx" value="'.$env{'form.newidx'}.'" />'."\n";	$hiddenelem .= '<input type="hidden" name="newidx" value="'.$env{'form.newidx'}.'" />'."\n";
}	}
	if ($env{'form.comment'}) {
	$hiddenelem .= '<input type="hidden" name="comment" value="'.$env{'form.comment'}.'" />'."\n";
	}
return ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,	return ($destination,$dir_root,$londocroot,$docudom,$docuname,$container,
$hiddenelem);	$hiddenelem);
}	}