loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.34, 2006/12/06 22:22:39	version 1.35, 2007/05/02 01:34:23
Line 99 sub phaseone {	Line 99 sub phaseone {
'<input type="hidden" name="datatoken" value="'.	'<input type="hidden" name="datatoken" value="'.
&upfile_store.'" />'.	&upfile_store.'" />'.
'<input type="hidden" name="uploaduname" value="'.$uname.	'<input type="hidden" name="uploaduname" value="'.$uname.
'" />'.&mt('Store uploaded file as ').	'" />'.&mt('Save uploaded file as ').
"<span class='LC_filename'>/priv/$uname/</span>".	"<span class='LC_filename'>/priv/$uname/</span>".
'<input type="text" size="50" name="filename" value="'.$fn.	'<input type="text" size="50" name="filename" value="'.$fn.
'" /><br />'.	'" /><br />'.
Line 112 sub phaseone {	Line 112 sub phaseone {
<br />	<br />
<br />	<br />
');	');
$r->print('<input type="button" value="'.&mt('Store').'" onClick="javascript:verifyForm()"/></form>');	$r->print('<input type="button" value="'.&mt('Save').'" 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')) {