version 1.45, 2009/05/06 16:19:50
|
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="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 445 function verifyForm() {
|
Line 445 function verifyForm() {
|
|
|
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) { |
$r->print('<p class="LC_warning">' |
$r->print('<p class="LC_warning">' |
.&mt('Co-Author [_1]:[_2]',$uname,$udom) |
.&mt('Co-Author [_1]',$uname.':'.$udom) |
.'</p>' |
.'</p>' |
); |
); |
} |
} |