loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.60, 2012/04/16 19:32:04	version 1.62, 2013/06/04 22:20:16
Line 125 use Apache::File;	Line 125 use Apache::File;
use File::Copy;	use File::Copy;
use File::Basename;	use File::Basename;
use Apache::Constants qw(:common :http :methods);	use Apache::Constants qw(:common :http :methods);
use Apache::loncacc;
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonnet;	use Apache::lonnet;
use HTML::Entities();	use HTML::Entities();
Line 476 sub handler {	Line 475 sub handler {
return HTTP_NOT_FOUND;	return HTTP_NOT_FOUND;
}	}

my ($uname,$udom)=&Apache::loncacc::constructaccess($fn);	my ($uname,$udom)=&Apache::lonnet::constructaccess($fn);

unless (($uname) && ($udom)) {	unless (($uname) && ($udom)) {
$r->log_reason($uname.' at '.$udom.	$r->log_reason($uname.' at '.$udom.
Line 519 ENDJS	Line 518 ENDJS

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