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.46 and 1.47

version 1.46, 2009/05/14 14:24:18	version 1.47, 2009/07/06 10:19:22
Line 198 sub phaseone {	Line 198 sub phaseone {
<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 440 function verifyForm() {	Line 440 function verifyForm() {
$javascript = "<script type=\"text/javascript\">\n//<!--\n".	$javascript = "<script type=\"text/javascript\">\n//<!--\n".
$javascript."\n// --></script>\n";	$javascript."\n// --></script>\n";

	# Breadcrumbs
	my $brcrum = [{'href' => &Apache::loncommon::authorspace(),
	'text' => 'Construction Space'},
	{'href' => '/adm/upload',
	'text' => 'Upload file to Construction Space'}];
$r->print(&Apache::loncommon::start_page('Upload file to Construction Space',	$r->print(&Apache::loncommon::start_page('Upload file to Construction Space',
$javascript));	$javascript,
	{'bread_crumbs' => $brcrum,})
	.&Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader())
	);

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">'

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

Removed from v.1.46
changed lines
	Added in v.1.47