loncom/publisher/lonupload.pm - diff

Return to lonupload.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.59, 2011/11/14 00:20:31	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>'.