loncom/publisher/testbankimport.pm - diff

Return to testbankimport.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.31, 2011/10/23 01:27:34	version 1.32, 2011/10/31 01:25:32
Line 1827 sub handler {	Line 1827 sub handler {
$env{'form.filename'};	$env{'form.filename'};
}	}
($uname,$udom)=	($uname,$udom)=
&Apache::loncacc::constructaccess($env{'form.filename'},	&Apache::loncacc::constructaccess($env{'form.filename'});
$r->dir_config('lonDefDomain'));	unless (($uname ne '') && ($udom ne '')) {
unless (($uname) && ($udom)) {
$r->log_reason($uname.':'.$udom.' trying to convert testbank file '.	$r->log_reason($uname.':'.$udom.' trying to convert testbank file '.
$env{'form.filename'}.' - not authorized',$r->filename);	$env{'form.filename'}.' - not authorized',$r->filename);
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;