loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonupload.pm between versions 1.43 and 1.46.6.1

version 1.43, 2008/12/19 03:57:24	version 1.46.6.1, 2009/10/07 21:09:21
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>'.&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('Save').'" 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')) {
Line 444 function verifyForm() {	Line 444 function verifyForm() {
$javascript));	$javascript));

if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {	if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {
$r->print('<h3><span class="LC_error">'.&mt('Co-Author').': '.$uname.	$r->print('<p class="LC_warning">'
&mt(' at ').$udom.'</span></h3>');	.&mt('Co-Author [_1]',$uname.':'.$udom)
	.'</p>'
	);
}	}

if ($env{'form.phase'} eq 'three') {	if ($env{'form.phase'} eq 'three') {

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

Removed from v.1.43
changed lines
	Added in v.1.46.6.1