loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.58, 2011/11/02 23:19:22	version 1.60, 2012/04/16 19:32:04
Line 446 sub phasefour {	Line 446 sub phasefour {
my $dir_root = $r->dir_config('lonDocRoot').$url_root;	my $dir_root = $r->dir_config('lonDocRoot').$url_root;
my $path = &File::Basename::dirname($fn);	my $path = &File::Basename::dirname($fn);
$path =~ s{^\Q$url_root\E}{};	$path =~ s{^\Q$url_root\E}{};
$result .= &Apache::loncommon::modify_html_refs($mode,$path,	my $outcome =
$uname,$udom,$dir_root);	&Apache::loncommon::modify_html_refs($mode,$path,$uname,$udom,$dir_root);
	$result .= $outcome;
if ($mode ne 'imsimport' && $mode ne 'testbank') {	if ($mode ne 'imsimport' && $mode ne 'testbank') {
$result .= '<br /><h3><a href="'.$fn.'">'.	$result .= '<br /><h3><a href="'.$fn.'">'.
&mt('View main file').'</a></h3>'.	&mt('View main file').'</a></h3>'.
Line 517 ENDJS	Line 518 ENDJS
$trailfile =~ s{^/(priv/)}{$londocroot/$1};	$trailfile =~ s{^/(priv/)}{$londocroot/$1};

# Breadcrumbs	# Breadcrumbs
my $brcrum = [{'href' => &Apache::loncommon::authorspace(),	my $brcrum = [{'href' => &Apache::loncommon::authorspace($fn),
'text' => 'Construction Space'},	'text' => 'Construction Space'},
{'href' => '/adm/upload',	{'href' => '/adm/upload',
'text' => 'Upload file to Construction Space'}];	'text' => 'Upload file to Construction Space'}];