loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.106, 2011/03/01 01:36:55	version 1.108, 2011/10/22 23:09:44
Line 168 sub URLToPath {	Line 168 sub URLToPath {

sub url {	sub url {
my $fn=shift;	my $fn=shift;
$fn=~s/^\/home\/($match_username)\/public\_html/\/priv\/$1/;	$fn=~s/^\/home\/httpd\/html//;
	$fn=~s/\/\.\//\//g;
$fn=&HTML::Entities::encode($fn,'<>"&');	$fn=&HTML::Entities::encode($fn,'<>"&');
return $fn;	return $fn;
}	}

sub display {	sub display {
my $fn=shift;	my $fn=shift;
$fn=~s-^/home/($match_username)/public_html-/priv/$1-;	$fn=~s/^\/home\/httpd\/html//;
	$fn=~s/\/\.\//\//g;
return '<span class="LC_filename">'.$fn.'</span>';	return '<span class="LC_filename">'.$fn.'</span>';
}	}