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); |
} |
} |