loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.47, 2009/07/06 10:19:22	version 1.48, 2009/07/06 13:30:49
Line 191 sub phaseone {	Line 191 sub phaseone {
'<br />'.	'<br />'.
'<br />'.&mt('Choose file type:').'	'<br />'.&mt('Choose file type:').'
<select name="filetype">	<select name="filetype">
<option value="standard" selected="selected">'.&mt('Regular file').'	<option value="standard" selected="selected">'.&mt('Regular file').'</option>
<option value="testbank">'.&mt('Testbank file').'	<option value="testbank">'.&mt('Testbank file').'</option>
<option value="imsimport">'.&mt('IMS package').'	<option value="imsimport">'.&mt('IMS package').'</option>
</select>'.&Apache::loncommon::help_open_topic("Uploading_File_Options").'	</select>'.&Apache::loncommon::help_open_topic("Uploading_File_Options").'
<br />	<br />
<br />	<br />
');	');
$r->print('<input type="button" value="'.&mt('Upload').'" onClick="javascript:verifyForm()"/></form>');	$r->print('<input type="button" value="'.&mt('Upload').'" onclick="javascript:verifyForm()"/></form>');
# Check for bad extension and warn user	# Check for bad extension and warn user
if ($fn=~/\.(\w+)$/ &&	if ($fn=~/\.(\w+)$/ &&
(&Apache::loncommon::fileembstyle($1) eq 'hdn')) {	(&Apache::loncommon::fileembstyle($1) eq 'hdn')) {