loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.119, 2009/02/12 21:15:56	version 1.120, 2009/05/19 10:16:02
Line 62 sub handler {	Line 62 sub handler {
&Apache::loncacc::constructaccess(	&Apache::loncacc::constructaccess(
$fn,$r->dir_config('lonDefDomain'));	$fn,$r->dir_config('lonDefDomain'));
unless (($uname) && ($udom)) {	unless (($uname) && ($udom)) {
$r->log_reason($uname.' at '.$udom.	$r->log_reason($uname.':'.$udom.
' trying to list directory '.$env{'form.filename'}.	' trying to list directory '.$env{'form.filename'}.
' ('.$fn.') - not authorized',	' ('.$fn.') - not authorized',
$r->filename);	$r->filename);
Line 74 sub handler {	Line 74 sub handler {
$fn=~s/\/$//;	$fn=~s/\/$//;

unless ($fn) {	unless ($fn) {
$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.	$r->log_reason($env{'user.name'}.':'.$env{'user.domain'}.
' trying to list empty directory', $r->filename);	' trying to list empty directory', $r->filename);
return HTTP_NOT_FOUND;	return HTTP_NOT_FOUND;
}	}
Line 333 ENDPUBDIRSCRIPT	Line 333 ENDPUBDIRSCRIPT

if ((($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) &&	if ((($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) &&
$env{'environment.remote'} ne 'off') {	$env{'environment.remote'} ne 'off') {
$r->print('<h3>'.&mt('Co-Author').': '.$uname.' at '.$udom.	$r->print('<h3>'.&mt('Co-Author [_1]',$uname.':'.$udom).'</h3>');
'</h3>');
}	}
}	}